Usted puede crear fácilmente un formulario de entrada de datos con un botón de descubrimiento en la aplicación de Microsoft Excel mediante el uso de 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 la función "Buscar" comando del método y la búsqueda de texto en la hoja de cálculo Excel. El método de "Buscar" buscará un término y devuelve el valor si lo encuentra; de lo contrario, no devuelve nada.
Instrucciones
1 Lanzamiento de Microsoft Excel, escriba "uno" en A1, "dos" en A2, "tres" en A3, "cuatro" en A4, y "cinco" en A5. Haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic." Haga clic en el menú "Insertar" y haciendo clic en "formulario de usuario" para añadir una nueva forma. Haga clic en "Cuadro de texto" en el panel de la caja de herramientas y haga clic en el formulario para agregar un nuevo cuadro de texto. Añadir un nuevo "Etiqueta", utilizando la misma técnica. Añadir un "CommandButton" a su forma también usando la misma técnica.
2 Haga 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 "Ir a" para capturar errores:
Private Sub CommandButton1_Click ()
On Error GoTo Err_CommandButton1_Click:
3 Definir la variable de cadena que va a utilizar para guardar el texto que desea buscar en la hoja de cálculo:
Dim como secuencia findstr
findstr = TextBox1.Text
4 Copia y pega el código siguiente para ejecutar el método de "Buscar" y busque en la hoja de cálculo para el valor introducido en el control de cuadro de texto:
Me.Label1.Caption = Cells.Find(What:=findStr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Value & " was found in your worksheet!"
5 Agregue el código siguiente para finalizar el evento click y mostrar un mensaje si no se encuentra la cadena:
Exit_CommandButton1_Click:
Exit Sub
Err_CommandButton1_Click:
MsgBox ("The string you entered was not found in your worksheet!")
Resume Exit_CommandButton1_Click:
End Sub
6 Pulse la tecla "F5" para ejecutar el programa y escriba "dos" en el control de cuadro de texto. Pulse "CommandButton1" para que aparezca un mensaje en la etiqueta o en un cuadro de mensaje si no se encontró el texto.