parole inverse

[Cedamido]

Come si potrebbero ricavare in automatico le parole inverse, esempio:
Inversa
Roma amor

Saluti e salute perfetta

[Anthony47]

Ad esempio con questa "funzione"

Codice: Seleziona tutto

Function StrInv(Parola) As String
StrInv = LCase(StrReverse(Parola))
'
'Scommentare la prossima per ottenere la Maiuscola iniziale, es Roma ->Amor
'StrInv = UCase(Left(StrInv, 1)) & Mid(StrInv, 2, Len(StrInv) - 1)     '<<<output con Maiusc iniziale
End Function

Copia il codice, da excel apri l' editor delle macro con Alt-F11, Menu /Inserisci /Modulo, incolla nel frame di dx.

Guarda l' istruzione marcata <<<, se vuoi il risultato con Maiscola iniziale togli l' apostrofo in posizione iniziale.

Poi nel tuo foglio scriverai una tipica formula, es se la stringa iniziale e' in A1:

Codice: Seleziona tutto

=StrInv(A1)

Ovviamente potrai combinare questa funzione in formule piu' complesse, es =Se(A1="Pippo";A1;StrInv(A1))

Fai sapere se ti risolve; ciao.

[Cedamido]

Funziona sia la prima che la seconda.
Saluti e salute perfetta