inverter o texto de trás para frente

Anônima
2010-04-30T19:36:43+00:00

pessoal

como faço para que o texto digitado numa célula apareça escritop de trás para fernte ou seja, do último caractere para o primeiro.

exemplo:

  • BERNARDO
  • ODRANREB
  • MARIA JOSÉ
  • AIRAM ÉSOJ

Como viram se o nome for duplo ou triplo ele esatrá sendo excrito da direita para esquerda em seu posicionamento.

QUEM AJUFA?

GRATO


tack så mycket

Microsoft 365 e Office | Instalar, resgatar, ativar | Para uso doméstico | Outro

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários
Resposta aceita pelo autor da pergunta
Anônima
2010-04-30T23:39:29+00:00

Veja resposta em:

http://info.abril.com.br/forum-antigo/forum.php?topico=151796

PS.: testei e funciona (abaixo replicada)

No Excel digite ALT-F11, vá em Inserir/módulo e digite:

Function inverter(inverte As Variant) As String

Dim txt As String

For i = 0 To Len(inverte) - 1

txt = txt & Mid(CStr(inverte), Len(CStr(inverte)) - i, 1)

Next

inverter = txt

End Function

De volta ao Excel, use a nova função:

=INVERTER(A1)

Esta resposta foi útil?

100+ pessoas acharam esta resposta útil.
0 comentários Sem comentários

36 respostas adicionais

Classificar por: Mais útil
  1. Anônima
    2010-05-11T19:37:41+00:00

    Se retorna #NOME é porque o Excel não está entendendo seu código como uma nova função.

    Experimente teclar ALT-F11. Vá em "inserir módulo". Copie e cole o código acima.

    Esta resposta foi útil?

    2 pessoas acharam esta resposta útil.
    0 comentários Sem comentários
  2. Anônima
    2016-09-21T15:10:23+00:00

    =

    SE(NÚM.CARACT(C4)>0;EXT.TEXTO(C4;NÚM.CARACT(C4)-0;1);"")&

    SE(NÚM.CARACT(C4)>1;EXT.TEXTO(C4;NÚM.CARACT(C4)-1;1);"")&

    SE(NÚM.CARACT(C4)>2;EXT.TEXTO(C4;NÚM.CARACT(C4)-2;1);"")&

    SE(NÚM.CARACT(C4)>3;EXT.TEXTO(C4;NÚM.CARACT(C4)-3;1);"")&

    SE(NÚM.CARACT(C4)>4;EXT.TEXTO(C4;NÚM.CARACT(C4)-4;1);"") &

    SE(NÚM.CARACT(C4)>5;EXT.TEXTO(C4;NÚM.CARACT(C4)-5;1);"") &

    SE(NÚM.CARACT(C4)>6;EXT.TEXTO(C4;NÚM.CARACT(C4)-6;1);"") &

    SE(NÚM.CARACT(C4)>7;EXT.TEXTO(C4;NÚM.CARACT(C4)-7;1);"") &

    SE(NÚM.CARACT(C4)>8;EXT.TEXTO(C4;NÚM.CARACT(C4)-8;1);"") &

    SE(NÚM.CARACT(C4)>9;EXT.TEXTO(C4;NÚM.CARACT(C4)-9;1);"") &

    SE(NÚM.CARACT(C4)>10;EXT.TEXTO(C4;NÚM.CARACT(C4)-10;1);"")

    Esta resposta foi útil?

    1 pessoa achou esta resposta útil.
    0 comentários Sem comentários
  3. Anônima
    2010-05-12T03:23:36+00:00

    oi

    eu fiz exatamente isso

    teclei Alt+F11 e  abriu o editor VBA, daí fui em inserir módulo e colei o código.

    daí apertei o diqsquetezinho na barra de ferramentas para salvar.

    voltei ao Excel e o erro apareceu.

    já é a segunda vez que me passam uma solução pra VBA e esse erro aparece.

    não sei onde errei.

    abraço


    tack så mycket

    Esta resposta foi útil?

    1 pessoa achou esta resposta útil.
    0 comentários Sem comentários
  4. Anônima
    2010-05-11T16:30:19+00:00

    oi

    fiz como dise,

    mas retorna #nome?

    onde errei?

    como não seu usar VBA pode ser que eu tenha feito algo errado e que seja simples demais, mas desconehço.

    pode ajudar nessa.

    grato


    tack så mycket

    Esta resposta foi útil?

    0 comentários Sem comentários