¿Cómo forzar el uso de mayúsculas al ingresar texto en un cuadro de texto?

En Excel, podemos convertir rápidamente el texto en minúsculas a mayúsculas dentro de una celda utilizando la función MAYUSC, pero, ¿has intentado alguna vez forzar que el texto ingresado sea en mayúsculas dentro de un cuadro de texto? En este artículo, te mostraré un código sencillo para realizar esta tarea.

Forzar el uso de mayúsculas al ingresar texto en un cuadro de texto con código VBA

Forzar el uso de mayúsculas al ingresar texto en un cuadro de texto con código VBA

Para forzar que el texto se ingrese en mayúsculas en un cuadro de texto, el siguiente código VBA puede ayudarte:

1. Primero, inserta el cuadro de texto haciendo clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX), y luego dibuja un cuadro de texto según lo necesites, como se muestra en la captura de pantalla:

2. Después de insertar el cuadro de texto, haz clic derecho sobre él y selecciona Ver Código desde el menú contextual para abrir la ventana de Microsoft Visual Basic para Aplicaciones, y luego reemplaza el código original con el siguiente código VBA en el módulo en blanco:

Código VBA: Forzar texto en mayúsculas dentro del cuadro de texto:

Private Sub TextBox1_Change()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

3. Luego guarda y cierra la ventana de código, y sal del Modo Diseño; ahora, cuando escribas texto en el cuadro de texto, se forzará a ingresar en mayúsculas, como se muestra en la captura de pantalla: