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)
Next
End 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)
Next
End 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)
Next
End Sub
Testar macros de exemplo
Para testar as macros de exemplo, execute as seguintes etapas:
-
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. -
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 Excel
Para 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
