Por: Antonio

Antonio — Sat, 17 Dec 2011 00:33:47 +0000

Excelente herramienta, te agradezco por tu apoyo con la implementación del complemento, muy al detalle te felicito y agradezco.

Por: Claudio Fritz

Claudio Fritz — Thu, 03 Nov 2011 15:23:47 +0000

Hola

Buenísimo tu programa, había buscado algo así desde hace mucho tiempo , tu tutorial muy claro y practico me resulto a la primera

Saludos desde Chile
PD, cambie el peso Chileno y saque el 000/100 del final

Por: Jean

Jean — Sat, 29 Oct 2011 03:39:17 +0000

amigo excelente aporte, me has facilitado mucho el trabajo, pero tengo un problemita o un detallito, modifique la linea 119 como dices quitando la palabra MIL, el problema es cuando hay una cifra por ejemplo 200.200 dice docientos docientos y lo mismo pasa cuando esta en 300.000, 400.000 etc.

Por: Francisco García Trujillo

Francisco García Trujillo — Mon, 10 Oct 2011 22:47:13 +0000

Como no puedo adjuntar el archivo, anexo el código modificado que corrige la mayoría de los errores citados anteriormente.
La forma de uso cambia ahora a:
=num_letras( cantidad en numero , moneda [si se usa en este punto], conjuncion [si se usa], moneda [si se usa en este otro punto] ). ejemplo:

=num_letras( cantidad en numero , “Pesos”, “”, “M.N.” )
=num_letras( cantidad en numero , “”, “y”, “nuevos soles” )

Éste es el nuevo código:
‘Autor de la modificacion: Gustavo A. Sebastiani Cépeda
‘ Trujillo – Peru
‘ Excelparacontadores@hotmail.com http://www.perucontable.com/excelcontable/formula-numeros-a-letras/
‘Depurado por Francisco García Trujillo – Morelia – México – Octubre 2011
‘errores conocidos aún pendientes:
‘cien millones (de) pesos
‘treinta y uno pesos
‘no admite decenas de miles de millones (más de 7 dígitos)
‘Uso para Perú: =num_letras( cantidad en numero )
‘Uso para México: =num_letras( cantidad en numero , “Pesos”, “”, “M.N.” )
Function Num_Letras(Numero As Double, Optional Prefijo As String = “”, Optional Conjuncion As String = “y”, Optional Postfijo As String = “nuevos soles”) As String
Dim Letras As String
Dim Decimales As Double
Decimales = Numero – Int(Numero)
Numero = Int(Numero)

If Prefijo > “” Then
Prefijo = Prefijo & ” ”
End If

If Conjuncion > “” Then
Conjuncion = Conjuncion & ” ”
End If

If Postfijo > “” Then
Postfijo = ” ” & Postfijo
End If

Dim Numeros(90) As String
Numeros(0) = “Cero”
Numeros(1) = “Uno”
Numeros(2) = “Dos”
Numeros(3) = “Tres”
Numeros(4) = “Cuatro”
Numeros(5) = “Cinco”
Numeros(6) = “Seis”
Numeros(7) = “Siete”
Numeros(8) = “Ocho”
Numeros(9) = “Nueve”
Numeros(10) = “Diez”
Numeros(11) = “Once”
Numeros(12) = “Doce”
Numeros(13) = “Trece”
Numeros(14) = “Catorce”
Numeros(15) = “Quince”
Numeros(16) = “Dieciseis”
Numeros(17) = “Diecisiete”
Numeros(18) = “Dieciocho”
Numeros(19) = “Diecinueve”
Numeros(20) = “Veinte”
Numeros(21) = “Veintiuno”
Numeros(22) = “Veintidos”
Numeros(23) = “Veintitres”
Numeros(24) = “Veinticuatro”
Numeros(25) = “Veinticinco”
Numeros(26) = “Veintiseis”
Numeros(27) = “Veintisiete”
Numeros(28) = “Veintiocho”
Numeros(29) = “Veintinueve”
Numeros(30) = “Treinta”
Numeros(40) = “Cuarenta”
Numeros(50) = “Cincuenta”
Numeros(60) = “Sesenta”
Numeros(70) = “Setenta”
Numeros(80) = “Ochenta”
Numeros(90) = “Noventa”
Do
‘*—> Millares de Millón
If (Numero = 1000000000) Then
If Int(Numero / 1000000000) = 1 Then
Letras = Letras & ” Un mil millones ”
Else
Letras = Letras & Numeros(Int(Numero / 1000000000))
Letras = Letras & ” mil millones ”
End If
Numero = Numero – (Int(Numero / 1000000000) * 1000000000)
End If
‘*—> Centenas de Millón
If (Numero = 100000000) Then
If (Int(Numero / 100000000) = 1) And ((Numero – (Int(Numero / 100000000) * 100000000)) “”, ” de “, “”)
Else
Select Case Int(Numero / 100000000)
Case 1
Letras = Letras & “Ciento”
Case 5
Letras = Letras & “Quinientos”
Case 7
Letras = Letras & “Setecientos”
Case 9
Letras = Letras & “Novecientos”
Case Else
Letras = Letras & Numeros(Int(Numero / 100000000))
End Select
If (Int(Numero / 100000000) 1) And (Int(Numero / 100000000) 5) And (Int(Numero / 100000000) 7) And (Int(Numero / 100000000) 9) Then
Letras = Letras & “cientos ”
Else
Letras = Letras & ” ”
End If
End If
Numero = Numero – (Int(Numero / 100000000) * 100000000)
End If
‘*—> Decenas de Millón
If (Numero = 10000000) Then
If Int(Numero / 1000000) 1000000 Then
Letras = Letras & ” y ”
End If
End If
End If
‘*—> Unidades de Millón
If (Numero = 1000000) Then
If Int(Numero / 1000000) = 1 Then
Letras = Letras & ” Un millón ”
Else
Letras = Letras & Numeros(Int(Numero / 1000000))
Letras = Letras & ” millones ”
End If
Numero = Numero – (Int(Numero / 1000000) * 1000000)
End If
‘*—> Centenas de Millar
If (Numero = 100000) Then
If (Int(Numero / 100000) = 1) And ((Numero – (Int(Numero / 100000) * 100000)) < 1000) Then
Letras = Letras & "Cien mil "
Else
Select Case Int(Numero / 100000)
Case 1
Letras = Letras & "Ciento"
Case 5
Letras = Letras & "Quinientos"
Case 7
Letras = Letras & "Setecientos"
Case 9
Letras = Letras & "Novecientos"
Case Else
Letras = Letras & Numeros(Int(Numero / 100000))
End Select
If (Int(Numero / 100000) 1) And (Int(Numero / 100000) 5) And (Int(Numero / 100000) 7) And (Int(Numero / 100000) 9) Then
Letras = Letras & “cientos mil ”
Else
Letras = Letras & ” mil ”
End If
End If
Numero = Numero – (Int(Numero / 100000) * 100000)
End If
‘*—> Decenas de Millar
If (Numero = 10000) Then
If Int(Numero / 1000) 1000 Then
Letras = Letras & ” y ”
Else
Letras = Letras & ” mil ”
End If
End If
End If
‘*—> Unidades de Millar
If (Numero = 1000) Then
If Int(Numero / 1000) = 1 Then
Letras = Letras & “un”
Else
Letras = Letras & Numeros(Int(Numero / 1000))
End If
Letras = Letras & ” Mil ”
Numero = Numero – (Int(Numero / 1000) * 1000)
End If
‘*—> Centenas
If (Numero 99) Then
If (Int(Numero / 100) = 1) And ((Numero – (Int(Numero / 100) * 100)) < 1) Then
Letras = Letras & "Cien "
Else
Select Case Int(Numero / 100)
Case 1
Letras = Letras & "ciento"
Case 5
Letras = Letras & "quinientos"
Case 7
Letras = Letras & "setecientos"
Case 9
Letras = Letras & "novecientos"
Case Else
Letras = Letras & Numeros(Int(Numero / 100))
End Select
If (Int(Numero / 100) 1) And (Int(Numero / 100) 5) And (Int(Numero / 100) 7) And (Int(Numero / 100) 9) Then
Letras = Letras & “cientos ”
Else
Letras = Letras & ” ”
End If
End If
Numero = Numero – (Int(Numero / 100) * 100)
End If
‘*—> Decenas
If (Numero 9) Then
If Numero 0.99 Then
Letras = Letras & ” y ”
End If
End If
End If
‘*—> Unidades
If (Numero 0.99) Then
Letras = Letras & Numeros(Int(Numero)) & ” ”
Numero = Numero – Int(Numero)
End If
Loop Until (Numero = 0)
‘*—> Decimales
If (Decimales > 0) Then
Letras = Letras & Prefijo & Conjuncion
Letras = Letras & Format(Decimales * 100, “00″) & “/100″ & Postfijo
Num_Letras = Letras
Else

Num_Letras = Letras & Prefijo & Conjuncion & “00/100″ & Postfijo

End If

End Function

Por: Roberto

Roberto — Sat, 01 Oct 2011 08:03:13 +0000

Muchas gracias Sebastián, Genial aporte. Le he heccho algunas modificaciones, siguiendo tus instrucciones incluí el Euro, más abajo eliminé el “un” de “Mil” y puse en mayúscula “Ciento”, ha sido un buen ejercicio. Ahora estoy tratando de incluir “dieciseís…dicinueve” y “veintiuno…veintinueve”, pero me parece que requiero algo de ayuda.

Gracias nuevamente

Por: Rafael

Rafael — Sun, 25 Sep 2011 01:14:05 +0000

Por favor, le agradezco respuesta. Instale la funcion y me da un error. Por Que sera eso? Dice #VALOR

Por: Alejandro

Alejandro — Tue, 20 Sep 2011 20:54:53 +0000

Hola, primera agradecerte por los aportes, pero tengo un problema, voy a complementos, luego a ir, pero no aparece la función Num_letras, me puedes ayudar en este caso, muchas gracias de antemano

Por: EL_TIGRE

EL_TIGRE — Tue, 21 Jun 2011 14:16:54 +0000

Tengo problema con el complemento, ya que al ejecutar la funciòn se ejecuta bien, pero al ser modificado la celda donde se encuentra el nùmero se bloquea todo el libro de excel perdiendo toda la informaciòn realizada, serà que solo se puede ejecutar una sola vez, ademas no me permite ser ejecutado en distintos archivos de excel.
En espera de comentarios.

Por: VICTOR

VICTOR — Thu, 16 Jun 2011 16:24:05 +0000

hola sebastian no me funciona será porque cuento con el excel 2010?? te comento que no encontre el archivo complementos mas bien “ADDins” y es aquí en donde coloqué el archivo descargaDO.

la formula “Num_letras” me aparece como funcion pero cuando fijo la celda que quiero que se convierta me sale siempre el error muy conocido denominado:
VALOR

Por: Carlos Joaquin

Carlos Joaquin — Mon, 16 May 2011 03:30:53 +0000

Hola, gracias por tu aporte. Pero no veo en los comentarios como solucionar el problema de que no esta poniendo bien las cifras de 200,000, 300,000, 400,000 le falta colocar los miles.

Comentarios en: “Actualizado 20/09/09″ Fórmula Números a letras