Saltar al contenido principal

¿Cómo forzar la cadena de texto a mayúsculas / minúsculas / mayúsculas y minúsculas en Excel?

En Excel, cuando ingresa algunas letras o palabras en las celdas, desea forzar las cadenas de texto a mayúsculas aunque haya ingresado las minúsculas o las letras mayúsculas adecuadas y viceversa. La mayoría de nosotros puede considerar la función de Validación de datos en Excel, con esta función, recibiremos una advertencia cuando no escribimos el texto en mayúsculas y minúsculas. En este artículo, presentaré algunas formas interesantes de forzar el texto a mayúsculas, minúsculas o el caso adecuado según sea necesario.

Forzar las cadenas de texto a mayúsculas / minúsculas / caso adecuado con Validación de datos

Forzar las cadenas de texto a mayúsculas / minúsculas / mayúsculas y minúsculas con código VBA

Cambie el texto a MAYÚSCULAS / minúsculas / Caso apropiado con Kutools para Excel buena idea3


La Validación de Datos es una herramienta poderosa en Excel, puede ayudarnos a hacer muchas operaciones, con su ayuda, también podemos forzar las mayúsculas, minúsculas o el caso apropiado de las cadenas de texto al escribir, por favor haga lo siguiente:

1. Ir a hacer clic Datos > Validación de datos > Validación de datos, ver captura de pantalla:

doc-force-mayúsculas-1

2. En la Validación de datos diálogo, bajo el Ajustes pestaña, haga clic en Permitir lista desplegable y elija Personalizado opción, luego en la Fórmula cuadro de texto, ingrese esta fórmula = EXACTO (SUPERIOR (A1), A1), (A1 representa una columna en la que aplicará esta función, puede cambiarla según sus necesidades), vea la captura de pantalla:

doc-force-mayúsculas-1

3. Luego puede crear una alerta cuando lo necesite, haga clic en Alerta de error pestaña y seleccione Detener del desplegable Estilo lista desplegable, en la esquina derecha de la Mensaje de error cuadro de texto, ingrese su propio mensaje de advertencia, vea la captura de pantalla:

doc-force-mayúsculas-1

4. Y luego haz clic OK para cerrar el diálogo, ahora, cuando ingrese la cadena de texto que no está en mayúsculas en la columna A, aparecerá un cuadro de advertencia para recordarle que ingrese las letras mayúsculas.

doc-force-mayúsculas-1

Nota:

Si necesita forzar las cadenas de texto a minúsculas o en mayúsculas, aplique las siguientes fórmulas en el Validación de datos en el paso 2.

Forzar a minúsculas: = EXACT (LOWER (A1), A1);

Forzar al caso apropiado: = EXACTO (ADECUADO (A1), A1)


Con el siguiente código VBA, cuando ingresa las palabras en minúscula en una celda, el texto en minúsculas se cambiará a letras mayúsculas automáticamente.

1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Luego elija su hoja de trabajo usada de la izquierda Proyecto Explorer, haga doble clic en él para abrir el Módulo, y luego copie y pegue el siguiente código VBA en el Módulo en blanco:

Código de VBA: forzar la cadena de texto a mayúsculas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-mayúsculas-1

3. Luego guarde y cierre este código para regresar a la hoja de trabajo, ahora cuando ingrese una cadena de texto siempre que esté en minúsculas o en mayúsculas, se convertirá en mayúscula después de tocar el Participar clave automáticamente.

Notas:

1. Este código se aplica a toda la hoja de trabajo.

2. Si no puede encontrar la PPanel del explorador de proyectos en la ventana, puede hacer clic Ver > Proyecto Explorer Para abrirlo.

3. Para forzar las palabras en minúsculas o en mayúsculas y minúsculas, puede aplicar el siguiente código VBA: (El procedimiento es el mismo que el anterior)

Código de VBA: Forzar la cadena de texto a minúsculas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

Código de VBA: fuerza la cadena de texto al caso correcto

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Si solo desea cambiar algunos textos específicos a MAYÚSCULAS, minúsculas o mayúsculas y minúsculas, puede aplicar el Cambiar caso utilidad de Kutools for Excel para hacerlo rápidamente.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Seleccione los textos que desea cambiar entre mayúsculas y minúsculas y haga clic en Kutools > Texto > Cambiar caso. Ver captura de pantalla:
doc cambiar caso 6

2. En el Cambiar caso cuadro de diálogo, marque la opción de operación que necesite, y puede obtener una vista previa del resultado en el Vista previa cristal. Ver captura de pantalla:
doc cambiar caso 2

3. Hacer clic en Ok or ¡Aplicá! y los textos han sido cambiados de caso.

 Cambiar a MAYÚSCULAS  Cambiar a la funda adecuada  Cambiar a caso de sentencia
 doc cambiar caso 3  doc cambiar caso 4 doc cambiar caso 5 

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations