Código de macro de ejemplo para cambiar el modelo de mayúsculas y minúsculas del texto en Excel


Para obtener una versión de este artículo para Microsoft Excel 2000, vea
213649 .
Para obtener una versión de este artículo para Microsoft Excel 98 y versiones anteriores, vea
141094 .

Resumen


Aunque Microsoft Excel tiene funciones que cambian las mayúsculas y minúsculas del texto, en ocasiones es posible que desee cambiarlas mediante programación.

Este artículo contiene tres macros de ejemplo de Microsoft Visual Basic para Aplicaciones (procedimientos Sub) que puede utilizar para cambiar las letras de una cadena de texto a todo en mayúsculas, todo en minúsculas o sólo la letra inicial en mayúsculas (la primera letra de cada palabra en mayúsculas). Estas acciones son similares a las funciones de Excel =UPPER(), =LOWER() y =PROPER().

Más información


Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. En este artículo se da por supuesto que ya conoce el lenguaje de programación que se muestra, así como las herramientas empleadas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

Macro para cambiar todo el texto de un rango a mayúsculas

Sub Uppercase() ' Recorrer cada celda del rango especificado. For Each x In Range("A1:A5") ' Cambiar el texto del rango a letras mayúsculas. x.Value = UCase(x.value) Next End Sub

Macro para cambiar todo el texto de un rango a minúsculas

Sub Lowercase() ' Recorrer cada celda del rango especificado. For Each x In Range("B1:B5") x.Value = LCase(x.Value) Next End Sub

Macro para cambiar todo el texto de un rango de celdas a mayúsculas iniciales

Sub Proper_Case() ' Recorrer cada celda del rango especificado. For Each x In Range("C1:C5") ' No hay una función Proper en Visual Basic para Aplicaciones. ' Por lo tanto, debe utilizar la función de hoja de cálculo de la forma siguiente: x.Value = Application.Proper(x.Value) Next End Sub

Probar las macros de ejemplo

Para probar las macros de ejemplo, siga estos pasos:

  1. En el mismo libro que contiene las macros, escriba los datos del ejemplo siguiente en una nueva hoja de cálculo:

    A1: toM B1: toM C1: toM A2: sUe B2: sUe C2: sUe A3: joe SMITH B3: joe SMITH C3: joe SMITH A4: mary B4: mary C4: mary A5: LORI B5: LORI C5: LORI
    NOTA
    Estos datos de ejemplo contienen texto con diversas combinaciones de mayúsculas y minúsculas que puede utilizar para comprobar cómo funciona cada macro.
  2. Ejecute cada macro.
Al texto del rango especificado en la macro (en la línea en la que indica "For each x in...") se le dará formato en mayúsculas, minúsculas o mayúsculas iniciales, como corresponda.

Referencias


Para obtener más información acerca de cómo utilizar las funciones de hojas de cálculo para cambiar las mayúsculas y minúsculas del texto, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
263580 Cómo cambiar el modelo de mayúsculas y minúsculas del texto en Excel

Para obtener más información acerca de cómo obtener ayuda con Visual Basic para Aplicaciones, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
305326 Lista de recursos de programación de Visual Basic para Aplicaciones