Ir para conteúdo
Entre para seguir isso  
rgpagani

Maiuscula e Minuscula no Excel

Mensagem Recomendada

rgpagani   

ai pessoal.....alguém sabe me dizer como converter um conteúdo digitado em Minusculo para Maiusculo sem ter que digitar novamente.....no Word tem como fazer...já o Excel não consegui......Alguém sabe se tem como???

valeu...

Compartilhar este post


Link para o post
Compartilhar em outros sites

rgpagani   

dessa maneira da certo...mas oque eu queria mesmo é selecionar e alterar como no Word....pois o documento já estaria pronto.

mesmo assim agradeço pela antenção....valeu...

rgpagani

Compartilhar este post


Link para o post
Compartilhar em outros sites
boxmga   

voce pode criar uma macro

é um procedimento lento, mas funciona

o texto ficaria +/- assim

--->>>

Sub LOWERtoUP()

    Selection.Replace What:="a", Replacement:="A", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False

    Selection.Replace What:="b", Replacement:="B", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False

    Selection.Replace What:="b", Replacement:="C", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False

End Sub

---->>

Usando a macro acima, você teriar que repetir as linhas iniciadas por "Selection." e "SearchOrder" para cada letra, colcando em What:="??" a letra em minúsculo e em Replacement:="???" ela maiúscula.

você tem que fazer um bloco destes para cada letra, inclusíve as vogais com acentos (´`^~¨Ç).

Outro detalhe. Antes de executar a macro, você deve selecionar a área da planilha. Para evitar erros, esta macro só se aplica à região selecionada. Se você num selecionar nada, aplicará apenas à célula ativa.

Mas já te aviso, o processo vai ser bastante lento.


"Viver é a coisa mais rara neste mundo. A maioria das pessoas apenas existe"

Oscar Wilde

Compartilhar este post


Link para o post
Compartilhar em outros sites
Benjamim   

Amigos,

A opção postada pelo colega boxmga... serve, porém abaixo escrevi um código em VBA para o próprio excel, que justamente faz isso solicitado pelo rgpagani, segue abaixo:

Sub TodasMaiúsculas()

If Selection.Value = "" Then

Exit Sub

Else

Selection = Ucase(Selection)

End If

End Sub

Este é de Mai -> Min.

Sub TodasMinúsculas()

If Selection.Value = "" Then

Exit Sub

Else

Selection = Lcase(Selection)

End If

End Sub

Basta selecionar a área e executar a macro. (Alt+F8)


Ass-Benja.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites
boxmga   

hehehe a opção do benjamin foi bem mais Inteligente. serviu, inclusive a mim, que conheço muito pouco de VB...

contudo, ao testa-la tive o seguinte erro:

"tipos incompatíveis"

o que houve?


"Viver é a coisa mais rara neste mundo. A maioria das pessoas apenas existe"

Oscar Wilde

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  

×