¿Cómo se crea un formulario de entrada de datos con el botón Encontrar en Excel

¿ Se puede crear fácilmente un formulario de entrada de datos con un botón Buscar en la aplicación Microsoft Excel utilizando un " formulario de usuario " y Visual Basic para Aplicaciones ( VBA) . Un " formulario de usuario " es una interfaz de usuario donde se pueden colocar controles como cuadros de texto y botones. VBA es el lenguaje de programación que puede utilizar para ejecutar el " descubrimiento" de comandos método y búsqueda de texto en la hoja de cálculo Excel. El método "Buscar" buscará un término y devuelve el valor si la encuentra , de lo contrario no devuelve nada . Instrucciones
1

lanzamiento Microsoft Excel , escriba " uno" en A1, "dos" en la A2 , "tres" en A3 , "cuatro ", en A4, y " cinco" en A5 . Haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic ". Haga clic en el menú " Insertar" y hacer clic en " formulario de usuario " para añadir un nuevo formulario. Haga clic en " cuadro de texto " en el panel Herramientas y haga clic en el formulario para agregar un cuadro de texto . Añadir una nueva " etiqueta " con la misma técnica . Añadir a " CommandButton " a su forma también con la misma técnica .
2

doble clic en el botón para crear un evento de clic del botón. Agregue el código siguiente para definir una declaración de "Ir a" para capturar errores :

Private Sub CommandButton1_Click () On Error GoTo Err_CommandButton1_Click :
3

Defina la variable de cadena que se utilizar para guardar el texto que desea buscar en la hoja de cálculo :

findstr As StringfindStr = TextBox1.Text
4

Copia y pega el siguiente código para ejecutar el método "Buscar" y buscar la hoja de cálculo para el valor introducido en el cuadro de texto :

Me.Label1.Caption = Cells.Find (What : = findstr , After: = ActiveCell , LookIn : = xlFormulas , LookAt _: = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Valor y " se encuentra en la hoja de trabajo "
5

Añada el siguiente código al terminar el evento click y mostrar un mensaje si no se encuentra la cadena :

Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox ( "¡ la cadena que ha puesto no se encuentra en la hoja de trabajo ") Reanudar Exit_CommandButton1_Click : End Sub
6 Pulse

"F5 " para ejecutar el programa y el tipo de "dos" en el cuadro de texto . Pulse " CommandButton1 " para mostrar un mensaje en la etiqueta o en un cuadro de mensaje si no se encuentra el texto.