EXCEL - Sostituire cifre con lettere

[commerciale]

Buongiorno,
oggi sono fuori forma...
In excel vorrei sostituire dei numeri con determinate lettere:
esempio:
0 sostituire con W
1 sostituire con V
2 sostituire con Z
3 sostituire con A
4 sostituire con B
5 sostituire con C
6 sostituire con F
7 sostituire con J
8 sostituire con K
9 sostituire con P

Sempre per esempio quindi in cella A1 ho 123,45, vorrei in B2 che appaia VZA,BC (massimo 2 decimali)
in cella A2 ho 7865,00 in B2 deve apparire JKFC,WW

Grazie anticipato

[Anthony47]

Se vuoi farlo con formule, basta annidare 10 volte la funzione SOSTITUISCI; es (limitandomi a 0 e 1)

Codice: Seleziona tutto

=SOSTITUISCI(SOSTITUISCI(A2;0;"W");1;"V")

Ma forse il metodo migliore e' tramite questa "Funzione Personalizzata":

Codice: Seleziona tutto

Function myCript(ByVal myNum As Double) As String
Dim newC, oldC, I As Long, StrNum As String
'
StrNum = CStr(myNum)
oldC = Array("0", "1", "2")     '<<< Da completare
newC = Array("W", "V", "Z")     '<<< Da completare
'
For I = LBound(oldC) To UBound(oldC)
    StrNum = Replace(StrNum, oldC(I), newC(I), , , vbTextCompare)
Next I
myCript = StrNum
End Function

Le righe marcate <<< sono da completare inserendo tutti i 10 digit
Metti il codice in un Modulo standard del vba; myCript si usa come una normale funzione, quindi ad esempio potresti usare la formula

Codice: Seleziona tutto

=myCript(A1)

Ciao