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

Filtrado por el tag: es

<<>>

Convertir número a su valor en letras (pesos)

Excel

(5)

Publicado el 8 de Octubre del 2013 por Samuel Monjaraz Vázquez (3 códigos)

8.960 visualizaciones desde el 8 de Octubre del 2013

Macro en Excel que convierte cantidades en números a su equivalente en Pesos en formato de letras hasta octillones.

Versión 1
(5)

Publicado el 8 de Octubre del 2013

gráfica de visualizaciones de la versión: Versión 1

8.961 visualizaciones desde el 8 de Octubre del 2013

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

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

Rodrigo

8 de Octubre del 2013

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

8 de Octubre del 2013

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 [email protected]

Responder

Samuel

8 de Octubre del 2013

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

8 de Octubre del 2013

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

8 de Octubre del 2013

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