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

Versión 1
estrellaestrellaestrellaestrellaestrella(5)

Publicado el 8 de Octubre del 2013gráfica de visualizaciones de la versión: Versión 1
8.350 visualizaciones desde el 8 de Octubre del 2013
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)

Imágen de perfil
8 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
8 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 [email protected]
Responder
8 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
8 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
8 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2503