Codificar números en letras con exel
Hola la verdad llevo ya varios meces investigando pero no logro resolver un problemilla con un código, aber si me puede orientar, lo que sucede es que solotengo que ir codificando cantidades por ejem:
$ 223´468,450.00
Que quedara asi todo codificado en letras
$ CCD´EGI,EFA.AA
DONDE:
0=A
1=B
2=C
3=D
4=E
5=F
6=G
7=H
8=I
9=J
Estaré muy agradecido si algún experto en exel y en códigos me puede ayudar gracias:D
$ 223´468,450.00
Que quedara asi todo codificado en letras
$ CCD´EGI,EFA.AA
DONDE:
0=A
1=B
2=C
3=D
4=E
5=F
6=G
7=H
8=I
9=J
Estaré muy agradecido si algún experto en exel y en códigos me puede ayudar gracias:D
1 respuesta
Respuesta de Carlos soloffice
1
Te propongo esto.
Crea un módulo y copia este código:
Function CODIFICAR(numero As String) As String
Dim sNumeros As String
Dim sLetras As String
Dim i As Integer
Dim sResultado As String
sNumeros = "0123456789"
sLetras = "ABCDEFGHIJ"
sResultado = numero
For i = 1 To 10
sResultado = Replace(sResultado, Mid(sNumeros, i, 1), Mid(sLetras, i, 1))
Next
CODIFICAR = sResultado
End Function
En la celda A1 escribe:
$ 223´468,450.00
En la celda B1 escribe:
=CODIFICAR(A1)
Y tendrás lo que buscas,
Saludos,
Carlos
[email protected]
Crea un módulo y copia este código:
Function CODIFICAR(numero As String) As String
Dim sNumeros As String
Dim sLetras As String
Dim i As Integer
Dim sResultado As String
sNumeros = "0123456789"
sLetras = "ABCDEFGHIJ"
sResultado = numero
For i = 1 To 10
sResultado = Replace(sResultado, Mid(sNumeros, i, 1), Mid(sLetras, i, 1))
Next
CODIFICAR = sResultado
End Function
En la celda A1 escribe:
$ 223´468,450.00
En la celda B1 escribe:
=CODIFICAR(A1)
Y tendrás lo que buscas,
Saludos,
Carlos
[email protected]
