¿Cómo remplazo números por letras?
Hola!
Quiero saber si pueden ayudarme a convertir el número que digite en la celda D8 a la celda H12 en letras constando de que 1=H, 2=O, 3=S, 4=T, 5=A, 6=C, 7=I, 8=L, 9=E, 0=N, mi ejemplo sería que si digito en D8 120.15 me presente en H12 HONHA. Gracias
Quiero saber si pueden ayudarme a convertir el número que digite en la celda D8 a la celda H12 en letras constando de que 1=H, 2=O, 3=S, 4=T, 5=A, 6=C, 7=I, 8=L, 9=E, 0=N, mi ejemplo sería que si digito en D8 120.15 me presente en H12 HONHA. Gracias
1 respuesta
Respuesta de Elsa Matilde
1
No podemos seguir agregando comentarios o respuestas en una consulta que se finaliza.
Por suerte recordé que tenías una anterior, así que aquí va la función completa, que te reconocerá también los 0.
Misletras(nros As Variant) As Variant
valor = Application.WorksheetFunction.Fixed(nros)
largo = Len(valor)
letras = Array("C", "U", "D", "T", "A", "N")
For i = 1 To 8
nro = Mid(valor, i, 1)
If IsNumeric(nro) Then
cadena = cadena & letras(nro)
End If
Next i
misletras = cadena
End Function
Solo tenés que ajustar las letras dentro del array, empezando con la del 0.
Por suerte recordé que tenías una anterior, así que aquí va la función completa, que te reconocerá también los 0.
Misletras(nros As Variant) As Variant
valor = Application.WorksheetFunction.Fixed(nros)
largo = Len(valor)
letras = Array("C", "U", "D", "T", "A", "N")
For i = 1 To 8
nro = Mid(valor, i, 1)
If IsNumeric(nro) Then
cadena = cadena & letras(nro)
End If
Next i
misletras = cadena
End Function
Solo tenés que ajustar las letras dentro del array, empezando con la del 0.
