Saltar para: Post [1], Comentários [2], Pesquisa e Arquivos [3]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

14
Nov07

Macro que altera texto maiúsculas, minúsculas

Uma 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

Fonte: http://jjoao2k.no.sapo.pt

1 comentário

Comentar post