Ayuda Numeros a Letras

26/01/2006 - 03:11 por achicarcas | Informe spam
Hola A Todos Los De Este Importande Foro
El Problema Que Tengo Es Que Necesito Cambiar Un Numero A Letras (PERO NO EN
A CANTIDAD DE MONEDA), Para Explicarme Mejor LEs Dejo Un Ejemplo

En a1 Tengo 1505254687
y En b1 (AQUI ES DONDE NECESITO SU AYUDA) deveria de arojarme: uno, cinco,
cero, cinco, dos, cinco, cuatro, seis, ocho, siete.

Saludos y Espero Me puedan auxiliar
mi correo: arturomtz68@hotmail.com

Preguntas similare

Leer las respuestas

#1 KL
26/01/2006 - 04:10 | Informe spam
Hola achicarcas,

Prueba copiar el codigo que te pongo a continuacion a un modulo estandar (p.ej.: Modulo1) y llamar la funcion desde la hoja
introduciendo en una celda:

=NumLetras(A1)

o

=NumLetras(A1;"-")

Donde A1 contiene el numero a convertir y el segundo parametro (opcional) es el separador deseado. Si no se indica el separador sera
por defecto la coma (,).

Saludos,
KL


Function NumLetras(Numero As String, _
Optional Separador As String = ",") As String
Dim x, i As Long
x = Array("cero", "uno", "dos", "tres", "cuatro", _
"cinco", "seis", "siete", "ocho", "nueve")
For i = 1 To Len(Numero)
If NumLetras <> "" Then NumLetras = NumLetras & Separador
NumLetras = NumLetras & x(Mid(Numero, i, 1))
Next i
End Function
Respuesta Responder a este mensaje
#2 achicarcas
01/02/2006 - 23:11 | Informe spam
Estimado KL MUCHAS GRACIAS FUNCIONA DEL UNO

"KL" escribió:

Hola achicarcas,

Prueba copiar el codigo que te pongo a continuacion a un modulo estandar (p.ej.: Modulo1) y llamar la funcion desde la hoja
introduciendo en una celda:

=NumLetras(A1)

o

=NumLetras(A1;"-")

Donde A1 contiene el numero a convertir y el segundo parametro (opcional) es el separador deseado. Si no se indica el separador sera
por defecto la coma (,).

Saludos,
KL


Function NumLetras(Numero As String, _
Optional Separador As String = ",") As String
Dim x, i As Long
x = Array("cero", "uno", "dos", "tres", "cuatro", _
"cinco", "seis", "siete", "ocho", "nueve")
For i = 1 To Len(Numero)
If NumLetras <> "" Then NumLetras = NumLetras & Separador
NumLetras = NumLetras & x(Mid(Numero, i, 1))
Next i
End Function


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida