¿Qué es VBA TextBox en Excel?
VBA TextBox es uno de los muchos controles de los controles de UserForm en Excel. VBA TextBox puede ser útil cuando desea recibir información del usuario como su nombre, edad, dirección, salario, etc. Al usar el control TextBox, puede permitir que los usuarios ingresen este tipo de información y ahorren mucho tiempo y errores tipográficos. . VBA TextBox puede consistir en datos estáticos o dinámicos.
UserForm en sí es una herramienta muy útil que tiene diferentes opciones de control como TextBox, MsgBox e InputBox, etc., que proporcionan una forma más práctica de obtener datos del usuario para que pueda procesar esos datos funcionalmente y descubrir algunos datos útiles. .
En este artículo, obtendrá experiencia práctica en Excel VBA TextBox.
Ejemplos de Excel VBA TextBox
A continuación se muestran los diferentes ejemplos de VBA TextBox en Excel.
Puede descargar esta plantilla Excel de VBA TextBox aquí - Plantilla Excel de VBA TextBoxEjemplo # 1 - ¿Cómo insertar TextBox en VBA?
A continuación se detallan los pasos para insertar TextBox en Excel VBA.
Paso 1: abra un archivo de Excel y presione Alt + F11 para navegar al panel VBA.
Paso 2: Como ya hemos discutido, TextBox es una opción disponible en UserForm. Entonces necesitamos insertar UserForm en VBE. Vaya a Insertar menú > Haga clic en UserForm .
Paso 3: Tan pronto como inserte un UserForm en VBA, puede ver una opción de Toolbox asociada y tener diferentes opciones asociadas con UserForm.
Paso 4: en este cuadro de herramientas, seleccione TextBox .
Paso 5: arrastre este cuadro de texto en el formulario de usuario.
Paso 6: presione F4 para ver las propiedades de UserForm (Alternativamente, puede hacer esto haciendo clic derecho en UserForm insertado). Estas propiedades le permiten realizar algunos cambios necesarios, como cambiar el nombre de UserForm para poder acceder a él fácilmente.
Algunos otros cambios básicos que puede hacer con el panel de propiedades de UserForm son como cambiar la fuente, cambiar el tamaño, etc.
Paso 7: ingrese el texto como "¡ Bienvenido a VBA TextBox! "En TextBox en UserForm.
Así es como puede crear un cuadro de texto VBA.
Ejemplo # 2 - Establecer el valor en VBA TextBox
Veamos cómo podemos establecer los valores para TextBox. A veces es obligatorio establecer los valores, de lo contrario, el usuario ingresará cualquier cosa de su interés.
Paso 1: inserte un nuevo UserForm en VBE. Vaya al menú Insertar > haga clic en UserForm.
Paso 2: desde las herramientas de UserForm, seleccione TextBox y arrástrelo a UserForm.
Paso 3: inserte un CommandButton en UserForm de la misma manera que agregó TextBox.
Paso 4: Cambie el título del botón de comando a " Enviar " en las propiedades. Puede navegar a las propiedades del botón de comando haciendo clic derecho en el botón de comando> hacer clic en Propiedades .
Paso 5: haga doble clic en el botón Enviar o haga clic derecho sobre él y seleccione Ver código .
Paso 6: en el código, inserte una línea de código nuevo dentro del subprocedimiento como se muestra a continuación.
Código:
Private Sub CommandButton1_Click () TextBox1.Value = "¡Mi nombre es Lalit!" End Sub
Este código resaltado le permite asignar el valor a la derecha entre comillas dobles al TextBox. También puede usar la propiedad TextBox.Text en lugar de TextBox.Values para establecer el valor de TextBox.
Paso 7: presione F5 o el botón Ejecutar debajo de VBE para ejecutar este código, verá un UserForm con TextBox vacío. Tan pronto como presione el botón Enviar, el texto asignado a TextBox aparecerá allí.
Ejemplo # 3 - Restrinja la entrada de TextBox para aceptar solo valores numéricos
Siga los pasos a continuación:
Paso 1: inserte un nuevo UserForm en su VBA y agregue TextBox en él.
Paso 2: Cambie el nombre de TextBox en la sección Propiedades a " My_Age ".
Paso 3: haga doble clic en TextBox o haga clic derecho sobre él y seleccione Ver código .
Podrá ver el subprocedimiento inicial de la siguiente manera:
Código:
Private Sub My_Age_Change () End Sub
Paso 4: Ahora, intente agregar una condición If que comience con If Not.
Código:
Private Sub My_Age_Change () Si no finaliza Sub
Paso 5: Solicite al compilador que compruebe si el valor de TextBox "My_Age" es numérico o no utiliza la palabra clave IsNumeric delante de la condición If Not.
Código:
Private Sub My_Age_Change () Si no es IsNumeric (My_Age.Value) End Sub
Paso 6: como cada condición IF lo solicita, agregue una palabra clave Then para ello.
Código:
Private Sub My_Age_Change () Si no es IsNumeric (My_Age.Value) entonces End Sub
En este código, le pide al compilador que verifique si el valor ingresado por el usuario en TextBox es numérico o no. Si no es numérico, ¿qué hacer? Sigue el siguiente paso.
Paso 7: Con el uso de MsgBox, agregue un comentario como "¡Lo siento! Solo se permiten números ". Se mostrará si el valor en TextBox no es numérico.
Código:
Private Sub My_Age_Change () Si no es IsNumeric (My_Age.Value) entonces MsgBox "¡Lo siento! Solo se permiten números". End Sub
Paso 8: Ahora, cierre esta declaración IF utilizando la palabra clave End IF.
Código:
Private Sub My_Age_Change () Si no es IsNumeric (My_Age.Value) entonces MsgBox "¡Lo siento! Solo se permiten números". End If End Sub
Paso 9: Ahora, ejecute este código presionando el botón F5 desde su teclado o el botón Ejecutar desde VBE y vea la salida. Obtendrá un cuadro de texto como se muestra a continuación:
Ahora, trato de ingresar un valor entero en él y ver si realmente me permite ingresar lo mismo o no.
Bingo, me permite almacenar el valor entero.
Ahora, intentemos agregar algo de flotante (Valor con puntos decimales) a este cuadro de texto y ver si nos permite ingresar lo mismo.
Verifiquemos si este cuadro de texto nos permite almacenar algunos valores negativos debajo o no. Escribiré un número negativo y lo comprobaré.
¡Bien! ¡¡Bien!! Bueno !!!, me dispara un mensaje diciendo que solo se permiten números. Sucedió porque este código escrito inicialmente está con la condición IF, no tiene ninguna solución sobre qué hacer si el número no es positivo. Además, la edad no puede ser negativa. ¿Derecho? Por lo tanto, recibo un mensaje de advertencia como puede ver arriba. Sin embargo, si hace clic en Aceptar en el cuadro de mensaje e intenta ingresar el número, le permitirá hacerlo. Pero no recomendaré romper las reglas allí.
Finalmente, intentemos una cadena de texto en el cuadro y veamos si permite que lo mismo se almacene en el cuadro de texto o no.
Como era de esperar, tan pronto como ingresé la primera letra de cadena, el sistema me lo impidió lanzando un mensaje. Esto se debe a que hemos mencionado una condición en nuestro código que dice que si el valor no es numérico, envíe un mensaje al usuario diciendo que solo se permiten valores numéricos.
Cosas para recordar
- VBA TextBox es una opción especial en UserForm. Que está diseñado para recibir información del propio usuario.
- Hay dos métodos para establecer los valores de un TextBox: mediante TextBox.Text y mediante TextBox.Value.
- A veces es obligatorio restringir la entrada del usuario para que obtengamos el tipo correcto de datos.
Artículos recomendados
Esta es una guía de VBA TextBox. Aquí discutimos cómo crear TextBox en Excel VBA junto con ejemplos prácticos y una plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:
- ¿Cómo utilizar la función VBA IsNumeric?
- Crear cuadro combinado en Excel
- Insertar CheckBox en Excel
- Función VASE UCASE en Excel
- ¿Cómo cerrar UserForm en VBA?