Para obter uma versão deste artigo para o Microsoft Excel 2000, consulte 213649.

Para o Microsoft Excel 98 e versões anteriores deste artigo, consulte 141094.

Sumário

Embora o Microsoft Excel tenha funções que alteram as maiúsculas e minúsculas do texto, haverá situações em que talvez você queira alterá-las programaticamente.Este artigo contém três exemplos de macros para o Microsoft Visual Basic for Applications (procedimentos Sub) que podem ser usadas para alterar as letras em uma cadeia de texto para todas as maiúsculas, todas as minúsculas ou a capitalização de título (a primeira letra de cada palavra é maiúscula). Essas ações são semelhantes para as funções do Excel, =UPPER(), =LOWER() e =PROPER().

Mais Informações

A Microsoft fornece exemplos de programação apenas por questões ilustrativas, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um determinado propósito. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos específicos para atender às suas necessidades específicas.

Macros para alterar todo o texto em um intervalo para letras maiúsculas

Sub Uppercase()   ' Loop to cycle through each cell in the specified range.   For Each x In Range("A1:A5")      ' Change the text in the range to uppercase letters.      x.Value = UCase(x.value)   NextEnd Sub

Macros para alterar todo o texto em um intervalo para letras minúsculas

Sub Lowercase()   ' Loop to cycle through each cell in the specified range.   For Each x In Range("B1:B5")      x.Value = LCase(x.Value)   NextEnd Sub

Macros para alterar todo o texto em um intervalo de célula para primeira letra da sentença em maiúscula

Sub Proper_Case()   ' Loop to cycle through each cell in the specified range.   For Each x In Range("C1:C5")      ' There is not a Proper function in Visual Basic for Applications.      ' So, you must use the worksheet function in the following form:      x.Value = Application.Proper(x.Value)   NextEnd Sub

Testar macros de exemplo

Para testar as macros de exemplo, execute as seguintes etapas:

  1. Na mesma pasta de trabalho que contém as macros, digite os seguintes dados de exemplo em uma nova planilha: 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 OBSERVAÇÃO: Esses dados de exemplos contêm textos sem formatação em vários casos que podem ser usados para verificar como cada macro funciona.

  2. Execute cada uma das macros.

O texto no intervalo especificado na macro (na linha que informa "Para cada x em ...") será formatado em maiúsculas, minúsculas, ou iniciais maiúsculas, conforme o caso.

Referências

Para obter mais informações sobre como usar funções de planilha para alterar as maiúsculas e minúsculas do texto, clique no número abaixo para exibir o artigo na Base de Dados de Conhecimento Microsoft:

263580 Como alterar as maiúsculas e minúsculas do texto no ExcelPara obter mais informações sobre como obter ajuda com o Visual Basic for Applications, clique no número abaixo para exibir o artigo na Base de Dados de Conhecimento Microsoft:

305326 Lista de recursos de programação para o Visual Basic for Applications

Precisa de mais ajuda?

Quer mais opções

Explore os benefícios da assinatura, procure cursos de treinamento, saiba como proteger seu dispositivo e muito mais.