Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rgpagani

Maiuscula e Minuscula no Excel

8 posts neste tópico

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...

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara postei em um tópico atrás desse!

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
    • 3 Mensagens
    • 280 Visualizações
    • 1 Mensagens
    • 1186 Visualizações
    • 6 Mensagens
    • 10729 Visualizações
    • 2 Mensagens
    • 457 Visualizações
    • 3 Mensagens
    • 4081 Visualizações