Para obter uma versão do Microsoft Excel 2000 deste artigo, consulte 213649.
Para obter uma versão anterior e do Microsoft Excel 98 deste artigo, consulte 141094.
Resumo
Embora o Microsoft Excel tenha funções que alteram o caso do texto, há momentos em que você pode querer alterar o caso de texto programaticamente.Este artigo contém três macros de exemplo do Microsoft Visual Basic for Applications (procedimentos sub) que você pode usar para alterar as letras em uma cadeia de texto para todas as maiúsculas maiúsculas, minúsculas ou maiúsculas inferiores (a primeira letra em cada palavra é maiúsculas). Essas ações são semelhantes às funções do Excel, =UPPER(), =LOWER() e =PROPER().
Informações adicionais
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou aptidão para uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico, mas não modificarão esses exemplos para fornecer funcionalidade ou procedimentos de construção adicionais para atender aos seus requisitos específicos.
Macro 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
Macro 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
Macro para alterar todo o texto em um intervalo de células para letras maiúsculas iniciais
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
Testando as Macros de Exemplo
Para testar as macros de exemplo, siga estas etapas:
-
Na mesma pasta de trabalho que contém as macros, insira 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 exemplo contêm texto formatado em vários casos que você pode usar para verificar como cada macro funciona.
-
Execute cada uma das macros.
O texto no intervalo especificado na macro (na linha que diz "Para cada x em ...") será formatado em maiúsculas, minúsculas ou capitais iniciais, conforme apropriado.
Referências
Para obter mais informações sobre como usar funções de planilha para alterar o caso do texto, clique no número do artigo a seguir para exibir o artigo na Base de Dados de Conhecimento da Microsoft:
263580 Como alterar o caso do texto no ExcelPara obter mais informações sobre como obter ajuda com Visual Basic for Applications, clique no número do artigo a seguir para exibir o artigo na Base de Dados de Conhecimento da Microsoft:
305326 Lista de recursos de programação para Visual Basic for Applications
