VBA Excel - Tornando tudo maiúsculo, minúsculo, primeira letra maiúscula - Macro

De fato não sou muito adepto na utilização do termo macro para as planilhas. Mas reconheço que a utilização destas conduzem milhões de usuários no mundo a conhecerem o VBA. Com isso em mente, compartilho as macros a seguir. Estas alteram as palavras contidas nas planilhas para Maiúsculas, Minúsculas, ou colocam a primeira letra como Maiúsculas...Divirtam-se! 

Sub nMaiuscula()
Dim C As Range
For Each C In Selection
Select Case C
Case Is = C
Let C.Value = UCase(C.Value)
End Select
Next
End Sub

Sub nMinuscula()
Dim C As Range
For Each C In Selection
Select Case C
Case Is = C
Let C.Value = LCase(C.Value)
End Select
Next
End Sub

Sub nCaptalize()
For Each C In Selection
Let C.Value = StrConv(C.Value, vbProperCase)
Next
End Sub

COMO UTILIZAR
1) Abra sua planilha
2) Acesse o painel de aplicações do VBA combinando ALT F11
3) Recorte e cole a macro.
4) Selecione as linas e colunas que você quer aplicar a macro
5) Execute a macro.


Referências

Tags: VBA, Excel, maiúsculo, minúsculo, Capitalizar, macro

2 comentários:

  1. Show, pergunto se tem como colocar primeira letra de cada palavra em maiúscula exceto - de, da, das, do, dos - ? Obrigado....

    ResponderExcluir

diHITT - Notícias