Scrivere parola al contrario

[Drago]

Vorrei tramite VBA scrivere in B1 la parola scritta in A1 però al contrario
Grazie

[r]

Post by Drago
Vorrei tramite VBA scrivere in B1 la parola scritta in A1 però al contrario
Grazie

vedi la funzione
StrReverse
Membro di VBA.Strings

saluti
r

[Big John]

Post by Drago
Vorrei tramite VBA scrivere in B1 la parola scritta in A1 però al contrario
Grazie

Copia questa funzione in un modulo:

Public Function ReverseCell(Rcell As Range, Optional IsText As Boolean)

Dim i As Integer
Dim StrNewNum As String
Dim strOld As String

strOld = Trim(Rcell)

For i = 1 To Len(strOld)
StrNewNum = Mid(strOld, i, 1) & StrNewNum
Next i

If IsText = False Then
ReverseCell = CLng(StrNewNum)
Else
ReverseCell = StrNewNum
End If

End Function

e scrivi in B1:

=ReverseCell(A1,TRUE)

Saluti,
Gianni.