Con Excel, puede usar Visual Basic para agregar una variedad de funciones diferentes a sus hojas de cálculo, incluidos "UserForms". A través de UserForms, puede mostrar al usuario un formulario de entrada que está separado de la hoja de trabajo principal, lo que es útil para capturar datos de personas que pueden no estar familiarizadas con las hojas de cálculo. Con un poco de código de Visual Basic, puede agregar todos estos datos a su hoja de cálculo en filas nuevas.
Defina sus campos
Inicie Excel. Ingrese los nombres de todos los campos que desea capturar en la fila superior, comenzando desde “A1” y avanzando hacia la derecha. Haga clic en "Desarrollador" y luego en "Visual Basic". Aparecerá la ventana de Visual Basic. Haga clic en el icono "A" de la Caja de herramientas, y haga clic y arrastre dentro de la ventana "UserForm1" en la ubicación donde desea que vaya su primer campo de formulario. Edite la etiqueta cambiando la propiedad "Título" a algo más descriptivo, como "Nombre", por ejemplo. Cree una etiqueta para cada uno de los campos que ingresó en su hoja de trabajo.
Agregue sus cuadros de texto
Seleccione el icono "TextBox" de la caja de herramientas y arrastre un cuadro de texto justo a la derecha de su primera etiqueta. Si solo va a utilizar unos pocos campos, es aceptable dejar la propiedad "(Nombre)" como el "Cuadro de texto1" predeterminado. Sin embargo, si necesita una gran cantidad de campos, esto podría resultar confuso, por lo que debe editarlos para que coincidan con las etiquetas que ya ha creado. Asegúrese de que cada etiqueta tenga un cuadro de texto correspondiente.
Agregar un botón Enviar
Haga clic en el icono "Botón de comando" en la Caja de herramientas, que se parece a un botón estándar al estilo de Windows. Haga clic y arrástrelo al tamaño y la ubicación que necesite en UserForm1. Por lo general, querrá esto debajo o cerca del cuadro de texto final en su formulario. Cambie la propiedad "Título" del botón a "Enviar datos" o algo similar, indicándole al usuario que debe hacer clic en este botón para enviar sus datos.
Agregar código de Visual Basic
Haga doble clic en el botón. Ingrese el siguiente código entre "Private Sub" y "End Sub":
eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row
Luego comience una nueva línea debajo de esta y luego ingrese lo siguiente:
Celdas (erow, 1) = TextBox1.Text
Si cambió el nombre de los cuadros de texto, cambie "TextBox1" por el nombre que le dio al primer cuadro de texto. Haga esto para cada cuadro de entrada que creó, comenzando una nueva línea e ingresando los nombres correctos del cuadro de texto según corresponda. Además, para cada nueva línea, incremente la cifra entre paréntesis en uno. Por ejemplo, la siguiente línea podría verse así:
Celdas (erow, 2) = TextBox2.Text
Haga clic en el botón "Reproducir" en la parte superior de la ventana para comenzar a capturar datos.
