Código de Excel - Convertir número a su valor en letras (pesos)

Convertir número a su valor en letras (pesos)gráfica de visualizaciones


Excel

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 08 de Octubre del 2013 por Samuel Monjaraz Vázquez
4.444 visualizaciones desde el 08 de Octubre del 2013. Una media de 28 por semana
Macro en Excel que convierte cantidades en números a su equivalente en Pesos en formato de letras hasta octillones.

Versión 1
estrellaestrellaestrellaestrellaestrella(5)

Publicado el 08 de Octubre del 2013gráfica de visualizaciones de la versión: Versión 1
4.445 visualizaciones desde el 08 de Octubre del 2013. Una media de 28 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (5)

Rodrigo
08 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
Cuando activas las macros te cambia los valores, ¿esta en un idioma o configuración especial para que tome correcto los números?, ya que sin activar la macro no funciona y cuando la activas el valor mínimo es mil y muestra el número 1,00 que debería ser uno solamente. Lo estoy probando en el Microsoft Office Excel 2007 instalado en Windows 7 profesional. Gracias.
Responder
Samuel
08 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
Si debes activar las macros, el idioma es español, así como bajas el archivo este tiene algunas pruebas por ejemplo 0, 0.01, 1.00 y superiores, tal vez, el separador de decimales (el punto o la coma) este haciendo algo raro, esta planchado para ser "PUNTO", chequea como estas metiendo la cantidad en la función, puedes hacer de dos formas un numero o letra sigue =n2w("1.22") ó =n2w(1.22). me cuentas si se arreglo smonjaraz@hotmail.com
Responder
Samuel
08 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
Si efectivamente, es por el punto y la coma, por el momento solo cambia tu configuración regional para que el separador de decimales sea el punto.
Saludos
Responder
Samuel
08 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
Modifica en estas líneas, el punto por la coma y ya cambias la configuración regional SALUDOS.

Es por la línea 15 de la macro

cNumStr = Format(nNum, "#.00")
End If
' Separando parte entera de la decimal
nPos = InStr(1, cNumStr, ".")
Responder
Samuel
08 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
Rodrigo, puedes modificar el código con estas líneas, la primera se incrementa, es el mismo trozo de arriba, con esto no importa que separador decimal tengas configurado regionalmente, solo debes tener cuidado cuando metas cantidades en formato de texto.

charsepa = "#" + Application.DecimalSeparator + "00"
cNumStr = Format(nNum, charsepa)
End If
' Separando parte entera de la decimal
nPos = InStr(1, cNumStr, Application.DecimalSeparator)
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s2503