locked
Maiúsculo RRS feed

  • Pergunta

  • Bom dia galera..

    Tem como alguem me passar ai se possivel um codigo para que quando eu digitar alguma coisa no excel quando eu clicar no botão passar somente a primira letra da frase para maiúsculo e deixar as outra em minúsculo.??

    E se a frase estiver toda em maiúsculo.. fazer do mesmo jeito... primeira letra em maiúsculo e o restante em minúsculo..

     

    Abraços e obrigado

     

    sexta-feira, 31 de outubro de 2008 13:05

Respostas

  • Olá Alvinho...

     

    Vai ser como o Adilson te passou...

     

    A célula que estiver selecionada e você executar a rotina, a 1º letra ficará maiúscula e o restante ficará minúscula..

    Code Snippet

    Sub AjustarMaiúsculas()
    X = ActiveCell
    X = UCase(Left(X, 1)) + LCase(Right(X, Len(X) - 1))
    ActiveCell = X
    End Sub

     

     

    Até..
    quarta-feira, 5 de novembro de 2008 19:29

Todas as Respostas

  • Este aqui é um exemplo genérico.

    Basta substituir o x, por exemplo, por Range("A1") caso o texto digitado esteja nesta célula.

    Para executar automaticamente podemos usar um evento Change. Se puder dar mais detalhes posso detalhar o procedimento um pouco mais.

    Code Snippet

     

    Sub AjustarMaiúsculas()
    x = "texto exemplo"
    x = UCase(Left(x, 1)) + LCase(Right(x, Len(x) - 1))
    End Sub

     

     

     

    [ ]s

     

    sexta-feira, 31 de outubro de 2008 15:06
  •  

    Adilson.. eu tenho uma planilha com em que na linhas da coluna "B" estão algumas descrições.

    Só que essas descrições algumas estão por exemplo.

     

    Na célula B1 tenho uma descrição com as letras todas em maiúsculo.

    Na célula B2 tenho uma descrição com as letras todas em minúsculo.

    Na célula B3 tenho uma descrição com todo começo de uma palavra a letra é maiúsculo.

     

    Eu queria que as descrições de todas as células ficassem somente com a primeira letra da frase em Maiúsculo.

     

    Ou seja eu selecionaria uma célula,e clicasse no cammand button.. e a descrição ficasse conforme descrito acima.

     

     

    Grato..

    segunda-feira, 3 de novembro de 2008 18:06
  • Evangelista me ajuda ai por favor..

     

    Abraço

     

    quarta-feira, 5 de novembro de 2008 16:03
  • Olá Alvinho...

     

    Vai ser como o Adilson te passou...

     

    A célula que estiver selecionada e você executar a rotina, a 1º letra ficará maiúscula e o restante ficará minúscula..

    Code Snippet

    Sub AjustarMaiúsculas()
    X = ActiveCell
    X = UCase(Left(X, 1)) + LCase(Right(X, Len(X) - 1))
    ActiveCell = X
    End Sub

     

     

    Até..
    quarta-feira, 5 de novembro de 2008 19:29