segunda-feira, 17 de outubro de 2011

Excel - Função para inverter conteúdo de células

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)

Nenhum comentário :

Postar um comentário

Related Posts Plugin for WordPress, Blogger...