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

36 respostas adicionais

Classificar por: Mais Novo
Mais útil Mais Novo Mais Antigo
  1. Anônima
    2017-07-29T19:10:51+00:00

    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

    tem que tornar a função "PUBLICA" assim ela roda em qualquer planilha

    Public 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

    Esta resposta foi útil?

    0 comentários
  2. Anônima
    2017-07-29T19:09:46+00:00

    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

    tem que tornar a função "PUBLICA" assim ela roda em qualquer planilha

    Public 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

    Esta resposta foi útil?

    0 comentários
  3. 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
  4. Anônima
    2016-09-13T19:31:20+00:00

    Excelente!!!!

    Esta resposta foi útil?

    0 comentários