consegui a respota para quem quiser,

TECLE ALT F11 -inserir-modulo -copie e cole as linhas abaixo

Public Function Contrario(Campo As String)
Dim contador As Integer
For contador = 1 To Len(Campo)
Contrario = Contrario & Mid(Right(Campo, contador), 1, 1)
Next contador
End Function

Entre em Funções definidas pelo Usuário

=Contrario( A1) Supor A1=Cade a Palavra espelhada "OVO"

ficará "OVO" adahlepse arvalaP a edaC

to com 1 problema , quando eu faço essa inversao quando eu tenho 7 ou 07 ele nao retorna 70 fica apenas 7 alguem tem alguma ideia ?

desculpa gente, mas to ficando bom nesse excel , para resolver o problema eu usei
=valor(se(xx<10;xx*10;Contrario(xx)))
valeu x)

Esta manha navegando na net achei essa pagina :
http://exceletudo.webnode.com.br/news/f ... r%20texto/
Foi mais uma opção ...
Excel é isso mesmo ...pratica.

Alguém poderia me ajudar a converter a função para o Excel 2007 / 2010?

Fiz assim:

Public Function Contrario(Campo As String)
Dim contador As Integer
For contador = 1 To Ext.Texto(Campo, 1, 1)
Contrario = Contrario & Ext.Texto(Direita(Campo, contador), 1, 1)
Next contador
End Function

... Mas não funcionou!!

tristão,

eu não entendi o teu problema.

Usei o mesmo código que o hamilton.gazim informou lá acima. Coloquei no Excel 2010, e funcionou perfeitamente.

Como já informado pelo colega gtsalikis, o código proposto pelo colega hamilton.gazim deve funcionar no 2007 e acima sem problema algum.

Contudo na modificação efetuada:
O editor VBA utiliza obrigatoriamente termos e funções em inglês; então Ext.Texto /Direita, não deve ser utilizado.
Também para a variável contador o "termo" to deve retornar um valor numérico, e não um texto : For contador = 1 To Ext.Texto(Campo, 1, 1)(aqui retornará o primeiro caracter do campo

Veja se ajuda o modelo,

Modelo retirado da Microsoft Community

Até 15 caracteres é tranquilo por fórmula.

Veja o anexo.

Abs,

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.