Convertir numeros a letras en Excel

Hace mucho tiempo atrás, busque entre todas las funciones de Excel, una que me permitiera convertir los números de una celda a letras, automáticamente. Así por ejemplo, podría escribir 52.69 en la celda A1 y la formula me podría en cualquier celda que yo quisiera: CINCUENTA Y DOS 69/100.

Había una utilidad que complementaba a Excel en ese sentido, pero que presentaba ciertos problemas de incompatibilidad y era dificil de conseguir para lo cual decidí buscar en la red algo que solventara dicha situación, encontrando afortunadamente una función llamada "Pesos" hecha por alguien más, la cual me permitía pasar de números a letras cualquier cantidad.

Esta función es muy útil ya que nos permite usarla en muchas situaciones cotidianas, y además no requiere mayor conocimiento de su uso, si usted anteriormente ya ha usado otras funciones incorporadas en Excel.

Todo lo que tienes que hacer es pegar el siguiente código en un Módulo nuevo ya sea en el libro de macros Personal, o en el libro en el cual estés trabajando. Si no sabes como hacerlo, puedes leer este artículo que escribí anteriormente el cual explica como crearlo.

 

------------ INICIO DE LA FUNCION PESOS-----------------------------------

'Function Pesos(Number As Single) As String
'Comentado el 27/10/2008: La siguiente línea corrige el error de los decimales
'en cantidades grandes, gracias a Any por la corrección.

Function Pesos(Number As Double) As String

Const MinNum = 1#
Const MaxNum = 4294967295.99

Dim Numbers, Tenths, Result As String
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")

If (Number >= MinNum) And (Number <= MaxNum) Then
Result = RecurseNumber((Fix(Number)))

If Round((Number - Fix(Number)) * 100) < 10 Then
Result = Result + " 0" + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 1) + "/100 DOLARES"
Else
Result = Result + " " + Str(Round((Number - Fix(Number)) * 100)) + "/100 DOLARES"
End If
Else
Result = "Error, verifique la cantidad."

End If
Pesos = Result
End Function

Function RecurseNumber(N As Long) As String

Dim Numbers, Tenths
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
Hundrens = Array("CERO", "CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

Dim Result As String
Select Case N
Case 0
Result = ""
Case 1 To 19
Result = Numbers(N)
Case 20 To 99
If N Mod 10 <> 0 Then
Result = Tenths(N \ 10) + " Y " + RecurseNumber(N Mod 10)
Else
Result = Tenths(N \ 10) + " " + RecurseNumber(N Mod 10)
End If
Case 100 To 999
If N \ 100 = 1 Then
If N = 100 Then
Result = "CIEN" + " " + RecurseNumber(N Mod 100)
Else
Result = Hundrens(N \ 100) + " " + RecurseNumber(N Mod 100)
End If
Else
Result = Hundrens(N \ 100) + " " + RecurseNumber(N Mod 100)
End If
Case 1000 To 999999
Result = RecurseNumber(N \ 1000) + " MIL " + RecurseNumber(N Mod 1000)

Case 1000000 To 1999999
Result = RecurseNumber(N \ 1000000) + " MILLON " + RecurseNumber(N Mod 1000000)
Case 2000000 To 999999999
Result = RecurseNumber(N \ 1000000) + " MILLONES " + RecurseNumber(N Mod 1000000)
Case 1000000000 To 4294967295#
Result = RecurseNumber(N \ 1000000000) + " BILLONES " + RecurseNumber(N Mod 1000000000)

End Select
RecurseNumber = Result
End Function

'========== FIN DE LA FUNCION PESOS ============

Para usarlo es = que una funcion de excel, ejemplo:

=pesos(suma(a1:a15))

=pesos(total)

Para poder usarla solo tienes que poner, por ejemplo, lo que anteriormente se menciona, aunque en mi caso, yo siempre guardo las macros, métodos y funciones en el Libro de Macros Personal de Excel, para poder llevarme mis funciones a cualquier máquina en la cual me toque trabajar, y no se me genere ningún error de esos comunes que dicen que si desea actualizar los vínculos, o que la celda contiene referencias a información que no existe, etc.

Así uso yo la función (suponiendo que esta formula la escribo en la celda B1:

=personal.xls!pesos(A1)

En la celda A1 se colocan los números y en la celda B1 aparecerá ese número escrito en letras. Gráficamente se vería como la imagen mostrada arriba.

Cabe destacar algo importante sobre el nivel de seguridad de Excel con respecto a las macros. Si usted guarda este código en el libro en el cual esté trabajando, la próxima vez que usted abra dicho libro Excel le advertirá que se han deshabilitado las macros de este libro debido al nivel de seguridad predeterminado, lo cual lo obligará a usted a cambiar el nivel de seguridad de las macros de Excel a un nivel bajo, para efectos de poder ejecutar dicha macro y volver a abrir el libro de nuevo para que la función sea funcional.

Para evitar esta situación es recomendable que usted guarde sus Módulos, funciones, Métodos, Macros y etc, en el libro de macros PERSONAL y llamar a la función de conversión de números a letras como se muestra anteriormente, =personal.xls!pesos.....

Si les interesa también pueden ver Convertir número a letras en Excel II (LWP)