Forzar correctamente, mayúsculas o minúsculas automáticamente - Ejemplos de código VBA

¿Necesita cambiar automáticamente el texto de una celda a Adecuado, Mayúsculas o Minúsculas después de que el usuario lo ingrese? Hay múltiples formas de lograr esto y múltiples requisitos posibles. A continuación, se muestra un ejemplo que cambia todo automáticamente después de que se ingresa en una columna en particular. ¡Ojalá puedas construir a partir de este ejemplo!

1. Presione ALT y F11 para abrir la ventana de código

2. Haga doble clic en el nombre de la hoja que desea cambiar automáticamente.

cambiar caso

3. Pon este código en la ventana de código:

Cambiar el texto a mayúsculas y minúsculas

Código para Caso apropiado

Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub

Cambiar texto a mayúsculas

Para Mayúsculas tu puedes cambiar

StrConv (destino, vbProperCase)

para

Ucase (objetivo)

Cambiar texto a minúsculas

Para Minúscula tu puedes cambiar

StrConv (destino, vbProperCase)

para

Lcase (objetivo)