Excel – Converter texto em maiúsculas, minúsculas, e primeira em maiúsculas

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