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

Seleccione idioma Seleccione idioma
Id. de artículo: 291323 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E291323
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.
Expandir todo | Contraer todo

En esta página

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

Propiedades

Id. de artículo: 291323 - Última revisión: martes, 26 de diciembre de 2006 - Versión: 5.0
La información de este artículo se refiere a:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X para Macintosh
  • Microsoft Excel 2001 para Macintosh
Palabras clave: 
kbdtacode kbhowto kbprogramming KB291323

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com