¿Cómo forzar la entrada de texto en mayúsculas en un cuadro de texto?
En Excel, podemos convertir rápidamente las minúsculas a mayúsculas en el texto de la celda usando la función SUPERIOR, pero, ¿alguna vez ha intentado forzar que el texto ingresado esté en mayúsculas en un cuadro de texto? En este artículo, presentaré un código simple para terminar este trabajo.
Forzar la entrada de texto en mayúsculas en un cuadro de texto con código VBA
Forzar la entrada de texto en mayúsculas en un cuadro de texto con código VBA
Al forzar que el texto se ingrese en mayúsculas en un cuadro de texto, el siguiente código VBA puede hacerle un favor:
1. En primer lugar, inserte el cuadro de texto haciendo clic en Developer > recuadro > Cuadro de texto (control ActiveX), y luego dibuje un cuadro de texto como lo necesite, vea la captura de pantalla:
2. Después de insertar el cuadro de texto, haga clic derecho en él y seleccione Ver código desde el menú contextual para abrir el Microsoft Visual Basic para aplicaciones ventana, y luego reemplace el código original con el siguiente código VBA en el módulo en blanco:
Código de VBA: Forzar el texto a estar en mayúsculas en el cuadro de texto:
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub
3. Luego guarde y cierre la ventana de código y salga del Modo de diseño, ahora, cuando escribe texto en el cuadro de texto, se verá obligado a ingresar en mayúsculas, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!