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