Este post faz parte de uma série de pedidos de ajuda que ao longo dos anos me foram chegando. (Fev/2001)
Converter texto em maiúsculas, minúsculas, e 1ª maiúscula
Duvida colocada: “..eu queria saber se no excel tem como transformar o texto usando os menus, não as fórmulas, a exemplo do Word, menu Formatar – Maiúsculo/Minúsculo, após o texto ser digitado, tem como fazer ?“
Solução: Macro que altera o texto seleccionado para maiúsculas, minúsculas ou a 1ª letra de cada palavra em maiúsculas alternado entre estes formatos. Para a execução da macro pode ser criado uma tecla de atalho ou ligá-la a um botão de uma das barras de ferramentas.
Sub Alternar_Maiusc_Minusc_1Maiusc()
Dim celula As Range
'em todas as celulas dentro da selecção
For Each celula In Selection
'variavel a comparar
Select Case celula
'comparando se está com letra minuscula
Case LCase(celula)
'converte para maiusculas
celula = UCase(celula)
'comparando se está com letra maiuscula
Case UCase(celula)
'converte para a 1º letra de cada palavra em maiuscula
celula = Application.WorksheetFunction.Proper(celula.Text)
'outro caso que não se incluia nos dois primeiro
Case Else
'converte para minusculas
celula = LCase(celula.Text)
End Select
Next
End Sub