Saltar al contenido

como programar el boton de consulta en excel

Ahora a programar el botón consulta
Private Sub CommandButton2_Click()
Rem se translada a la celda a8
Range(“a8”).Select
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de Leer (input) en el área de almacenamiento #1
Open “c:\datos.txt” For Input As 1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
    Do While Not EOF(1)
        Rem lee un dato
        Input #1, nombre
        Rem lo escribe en la celda
        ActiveCell.FormulaR1C1 = nombre
        Rem baja un renglón para el siguiente nombre
        ActiveCell.Offset(1, 0).Select
     Rem activa el ciclo Do While-que regrese hasta
     Rem que se cumpla la condición
     Loop
Rem cierra el archivo
Close #1
End Sub
Que te parece archivar los datos aparte sin que nadie pueda observarlos, esta es la magia de los archivos secuénciales. Este ejemplo viene indexado en un archivo con el nombre de Macros VI.
El siguiente código archiva el nombre, la dirección y el teléfono en el archivo, crea un formulario igual con dos botones.
Private Sub CommandButton1_Click()
Rem se traslada a la celda a8
Range(“a8”).Select
Rem si no hay ningún dato en a8 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de añadir Temporal(output) en el área de almacenamiento #1
Open “c:\datos.txt” For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el nombre en una variable
nombre = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem captura la direccion en una variable
direccion = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem captura el telefono en una variable
telefono = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem escribe los datos nombre, direccion y telefono en el archivo
Write #1, nombre, direccion, telefono
Rem baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem retrocede dos columnas
ActiveCell.Offset(0, -2).Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End Sub
Private Sub CommandButton2_Click()
Rem se translada a la celda a8
Range(“a8”).Select
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de Leer (input) en el área de almacenamiento #1
Open “c:\datos.txt” For Input As 1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
    Do While Not EOF(1)
        Rem lee los datos
        Input #1, nombre, direccion, telefono
        Rem escribe en la celda el nombre
        ActiveCell.FormulaR1C1 = nombre
        Rem se mueve una columna a la derecha
        ActiveCell.Offset(0, 1).Select
        Rem escribe en la celda la direccion
        ActiveCell.FormulaR1C1 = direccion
        Rem se mueve una columna a la derecha
        ActiveCell.Offset(0, 1).Select
        Rem escribe en la celda el telefono
        ActiveCell.FormulaR1C1 = telefono
        Rem baja un renglón para el siguiente nombre
        ActiveCell.Offset(1, 0).Select
        Rem retrocede dos columnas
        ActiveCell.Offset(0, -2).Select
     Rem activa el ciclo Do While-que regrese hasta
     Rem que se cumpla la condición
     Loop
Rem cierra el archivo
Close #1
End Sub

Créditos & citaciones en formato APA: Revista educativa Arquitectura21.com, equipo de redacción profesional. (2010, 12). como programar el boton de consulta en excel. Manuelette Ramirez Bencosme. Obtenido en fecha , desde el sitio web: https://www.arquitectura21.com/2010/12/como-programar-el-boton-de-consulta-en-excel.html.