Cuadro de texto VBA

Excel VBA TextBox

El cuadro de texto es simplemente como un cuadro que se usa para obtener información de un usuario, los cuadros de texto son parte de los formularios de usuario y en la pestaña de desarrollador en cualquier hoja de trabajo de Excel, si queremos hacer cuadros de texto en un formulario de usuario, podemos seleccionar la opción de cuadro de texto desde los controles de formulario de usuario en VBA o en la hoja de trabajo, podemos seleccionarlo desde la pestaña de diseño.

VBA TextBox es uno de los controles de los muchos controles del formulario de usuario. Al mostrar el cuadro de texto en el formulario de usuario, podemos pedirles que ingresen los datos en el cuadro de texto y los datos ingresados ​​por el usuario se pueden almacenar en la hoja de trabajo con códigos simples.

Los formularios de usuario son muy atractivos en la codificación VBA. Nos ayuda enormemente, especialmente cuando necesitamos obtener información de los usuarios. Con los formularios de usuario, tenemos muchos controles y obtener el valor de entrada de los usuarios "Cuadro de texto" es la opción ideal en un formulario de usuario. Al poner un cuadro de texto en el formulario de usuario, podemos decirle al usuario que ingrese el valor requerido en el cuadro de texto que estamos mostrando. Si no tiene idea sobre los cuadros de texto de VBA, este artículo hará un recorrido por los cuadros de texto de VBA.

¿Cómo insertar TextBox en VBA UserForm?

Puede descargar esta plantilla de cuadro de texto VBA aquí - Plantilla de cuadro de texto VBA

Para insertar un cuadro de texto primero, necesitamos insertar el formulario de usuario. Para insertar un formulario de usuario, vaya a Insertar> Formulario de usuario.

Tan pronto como haga clic en Formulario de usuario, lo haremos como otro módulo.

Haga clic en Formulario de usuario para ver los controles del formulario de usuario.

Desde esta caja de herramientas de Controles, seleccione “TextBox” y arrastre el formulario de usuario.

Con esto, podemos ver muchas propiedades asociadas con este cuadro de texto.

Propiedades de TextBox

Presione la tecla F4 para ver las Propiedades del cuadro de texto.

Como podemos ver, el cuadro de texto tiene Nombre, color, Borde como este. Ahora dé un nombre propio para que podamos referirnos fácilmente a este cuadro de texto mientras codificamos.

Ejemplo para usar TextBox en Userform

Realizaremos uno de los proyectos con texto VBA. Crearemos un formulario de usuario de entrada de datos para almacenar los detalles de los empleados.

Paso 1: en el formulario de usuario, dibuje Etiqueta.

Paso 2: cambie el texto predeterminado de la etiqueta a "Nombre del empleado".

Paso 3: Delante de la etiqueta, dibuje un cuadro de texto.

Paso 4: Dé un nombre propio al cuadro de texto como "EmpNameTextBox".

Paso 5: Ahora dibuje una etiqueta más debajo de la primera etiqueta e ingrese el texto como "ID de empleado".

Paso 6: Delante de la segunda etiqueta, dibuje un cuadro de texto más y asígnele el nombre "EmpIDTextBox".

Paso 7: Dibuja una etiqueta más e ingresa el texto como "Salario".

Paso 8: Dibuje un cuadro de texto más delante de la etiqueta "Salario" y asígnele el nombre "Cuadro de texto de salario".

Paso 9: Ahora inserte el "Botón de comando" de la Caja de herramientas.

Paso 10: cambie el texto del botón de comando a "Enviar".

Ok, hemos terminado con la parte de diseño del formulario de usuario. Ahora necesitamos escribir el código para almacenar los datos ingresados ​​en este formulario de usuario. A partir de ahora, ejecute el formulario de usuario presionando la tecla F5, deberíamos ver un formulario de usuario como este.

Paso 11: cambie el título del formulario de usuario en la ventana Propiedades.

Paso 12: Ahora haga doble clic en el botón Enviar comando. Tan pronto como haga doble clic, verá este subprocedimiento automático como el siguiente.

Aquí es cuando hace clic en el botón Enviar lo que debería suceder. Necesitamos mencionar las tareas en el código VBA. En este proyecto, nuestro objetivo es almacenar los datos ingresados ​​en el cuadro de texto tan pronto como hagamos clic en el botón Enviar.

Para esto, primero cree una plantilla como esta en la hoja de trabajo llamada "Hoja de empleados".

Paso 13: Ahora regrese al editor visual básico. Dentro del botón, haga clic en la subrutina en VBA, primero determine la última fila utilizada utilizando el siguiente código.

Código:

 Private Sub CommandButton1_Click () Dim LR As Long LR = Hojas de trabajo ("Hoja de empleado"). Celda (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub 

Paso 14: Lo primero es que en la primera columna almacenaremos el Nombre del empleado. Entonces, para esto, necesitamos acceder al cuadro de texto llamado "EmpNameTextBox".

Código:

 Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value End Sub 

Paso 15: En la segunda columna necesitamos almacenar la identificación del empleado. Entonces esto se obtendrá accediendo al cuadro de texto llamado “EmpIDTextBox”.

Código:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub 

Step 16: At last we need to store the salary part, for this, we need to access to text box named “SalaryTextBox”.

Code:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub 

Ok, we are done with the coding part as well. Now run the code using the F5 key we should see a User Form like the below.

As of now, all the boxes are empty.

Fill the details first.

Now click on the “Submit” button, it will store the data to the worksheet.

Like this, you can keep entering the data and hit and submit button. This is the simple data entry user form with a text box.