Convertir números a letras en Excel II (LWP)

Antes que nada quiero hacer un énfasis especial en que el código a continuación presentado no es de mi autoría sino que ha sido tomado de la La Web del Programador y ya no me acuerdo de que parte pero ahí lo ví hace tiempo y es mejor que el artículo escrito anteriormente en este blog, por lo tanto cualquier duda o pregunta los invito a que visiten LWP y ayuden a esa excelente comunidad.

Ok, ya para entrar en el asunto de explicar cómo se van a convertir los números a letras en Excel les diré que ahora van usar la función =letras(#COL,#FILA) en cualquier celda de Excel, pero previamente deberán haber creado un método o macro que contenga el código que les mostraré a continuación.

Antes que nada y para aquellos que no les gusta buscar mucho por todos lados, les haré una breve explicacioncita de como entrar al editor de Visual Basic de Excel. Yo se que a veces suena tonto y ridículo explicar esto pero los que ya saben no necesitan saber leer esta parte ya que es dirigido a los principiantes o personas no acostumbradas a las interfaces de programación.

Ingresar al Editor de Visual Basic en Excel

En Office 2003, Office XP, Office 2000, etc, singa estos pasos:

1. Ir al menú "Herramientas"


2. Ir a "Macro"


3. Seleccionar "Editor de Visual Basic"

Luego que entren al Editor de Visual Basic seleccionen el libro en el que vayan a necesitar la función que veremos luego y vayan al menú:

1. Insertar


2. Módulo

Luego pegan todo el código y después lo guardan y cierran el Editor de Visual Basic. Aclaro de manera especial que si es un libro nuevo en donde van a guardar el código, Excel automáticamente pedirá que se guarde el libro en donde quedará la macro.

Y en la ventanita que se abra pegaran el código siguiente (también pueden hacer click desde ya en "copy to clipboard" para copiar todo este texto)

Dim Texto
Dim Millones
Dim Miles
Dim Cientos
Dim Decimales
Dim Cadena
Dim CadMillones
Dim CadMiles
Dim CadCientos
Dim caddecimales
Texto = Round(Numero, 2)
Texto = FormatNumber(Texto, 2)
Texto = Right(Space(14) & Texto, 14)
Millones = Mid(Texto, 1, 3)
Miles = Mid(Texto, 5, 3)
Cientos = Mid(Texto, 9, 3)
Decimales = Mid(Texto, 13, 2)
CadMillones = ConvierteCifra(Millones, False)
CadMiles = ConvierteCifra(Miles, False)
CadCientos = ConvierteCifra(Cientos, True)
caddecimales = ConvierteDecimal(Decimales)

If Trim(CadMillones) > "" Then
If Trim(CadMillones) = "UN" Then
Cadena = CadMillones & " MILLON"
Else
Cadena = CadMillones & " MILLONES"
End If
End If
If Trim(CadMiles) > "" Then
If Trim(CadMiles) = "UN" Then
CadMiles = ""
Cadena = Cadena & "" & CadMiles & "MIL"
CadMiles = "UN"
Else
Cadena = Cadena & " " & CadMiles & " MIL"
End If
End If
If Trim(CadMiles) > "001" Then
CadMiles = "MIL"
End If
If Decimales = "00" Then
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO "
Else
If Miles & Cientos = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos)
Else
Cadena = Cadena & " " & Trim(CadCientos)
End If
letra = Trim(Cadena)
End If
Else
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO " & "CON " & Trim(caddecimales)
Else
If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If
letra = Trim(Cadena)
End If
End If

End Function
Function ConvierteCifra(Texto, IsCientos As Boolean)
Dim Centena
Dim Decena
Dim Unidad
Dim txtCentena
Dim txtDecena
Dim txtUnidad
Centena = Mid(Texto, 1, 1)
Decena = Mid(Texto, 2, 1)
Unidad = Mid(Texto, 3, 1)

Select Case Centena
Case "1"
txtCentena = "CIEN"
If Decena & Unidad <> "00" Then
txtCentena = "CIENTO"
End If
Case "2"
txtCentena = "DOSCIENTOS"
Case "3"
txtCentena = "TRESCIENTOS"
Case "4"
txtCentena = "CUATROCIENTOS"
Case "5"
txtCentena = "QUINIENTOS"
Case "6"
txtCentena = "SEISCIENTOS"
Case "7"
txtCentena = "SETECIENTOS"
Case "8"
txtCentena = "OCHOCIENTOS"
Case "9"
txtCentena = "NOVECIENTOS"
End Select

Select Case Decena
Case "1"
txtDecena = "DIEZ"
Select Case Unidad
Case "1"
txtDecena = "ONCE"
Case "2"
txtDecena = "DOCE"
Case "3"
txtDecena = "TRECE"
Case "4"
txtDecena = "CATORCE"
Case "5"
txtDecena = "QUINCE"
Case "6"
txtDecena = "DIECISEIS"
Case "7"
txtDecena = "DIECISIETE"
Case "8"
txtDecena = "DIECIOCHO"
Case "9"
txtDecena = "DIECINUEVE"
End Select
Case "2"
txtDecena = "VEINTE"
If Unidad <> "0" Then
txtDecena = "VEINTI"
End If
Case "3"
txtDecena = "TREINTA"
If Unidad <> "0" Then
txtDecena = "TREINTA Y "
End If
Case "4"
txtDecena = "CUARENTA"
If Unidad <> "0" Then
txtDecena = "CUARENTA Y "
End If
Case "5"
txtDecena = "CINCUENTA"
If Unidad <> "0" Then
txtDecena = "CINCUENTA Y "
End If
Case "6"
txtDecena = "SESENTA"

If Unidad <> "0" Then
txtDecena = "SESENTA Y "
End If
Case "7"
txtDecena = "SETENTA"
If Unidad <> "0" Then
txtDecena = "SETENTA Y "
End If
Case "8"
txtDecena = "OCHENTA"
If Unidad <> "0" Then
txtDecena = "OCHENTA Y "
End If
Case "9"
txtDecena = "NOVENTA"
If Unidad <> "0" Then
txtDecena = "NOVENTA Y "
End If
End Select
If Decena <> "1" Then
Select Case Unidad
Case "1"
If IsCientos = False Then
txtUnidad = "UN"
Else
txtUnidad = "UNO"
End If
Case "2"
txtUnidad = "DOS"
Case "3"
txtUnidad = "TRES"
Case "4"
txtUnidad = "CUATRO"
Case "5"
txtUnidad = "CINCO"
Case "6"
txtUnidad = "SEIS"
Case "7"
txtUnidad = "SIETE"
Case "8"
txtUnidad = "OCHO"
Case "9"
txtUnidad = "NUEVE"
End Select
End If
ConvierteCifra = txtCentena & " " & txtDecena & txtUnidad
End Function

Function ConvierteDecimal(Texto)
Dim Decenadecimal
Dim Unidaddecimal
Dim txtDecenadecimal
Dim txtUnidaddecimal
Decenadecimal = Mid(Texto, 1, 1)
Unidaddecimal = Mid(Texto, 2, 1)

Select Case Decenadecimal
Case "1"
txtDecenadecimal = "DIEZ"
Select Case Unidaddecimal
Case "1"
txtDecenadecimal = "ONCE"
Case "2"
txtDecenadecimal = "DOCE"
Case "3"
txtDecenadecimal = "TRECE"
Case "4"
txtDecenadecimal = "CATORCE"
Case "5"
txtDecenadecimal = "QUINCE"
Case "6"
txtDecenadecimal = "DIECISEIS"
Case "7"
txtDecenadecimal = "DIECISIETE"
Case "8"
txtDecenadecimal = "DIECIOCHO"
Case "9"
txtDecenadecimal = "DIECINUEVE"
End Select
Case "2"
txtDecenadecimal = "VEINTE"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "VEINTI"
End If
Case "3"
txtDecenadecimal = "TREINTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "TREINTA Y "
End If
Case "4"
txtDecenadecimal = "CUARENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "CUARENTA Y "
End If
Case "5"
txtDecenadecimal = "CINCUENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "CINCUENTA Y "
End If
Case "6"
txtDecenadecimal = "SESENTA"

If Unidaddecimal <> "0" Then
txtDecenadecimal = "SESENTA Y "
End If
Case "7"
txtDecenadecimal = "SETENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "SETENTA Y "
End If
Case "8"
txtDecenadecimal = "OCHENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "OCHENTA Y "
End If
Case "9"
txtDecenadecimal = "NOVENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "NOVENTA Y "
End If
End Select

If Decenadecimal <> "1" Then
Select Case Unidaddecimal
Case "1"
txtUnidaddecimal = "UNO"
Case "2"
txtUnidaddecimal = "DOS"
Case "3"
txtUnidaddecimal = "TRES"
Case "4"
txtUnidaddecimal = "CUATRO"
Case "5"
txtUnidaddecimal = "CINCO"
Case "6"
txtUnidaddecimal = "SEIS"
Case "7"
txtUnidaddecimal = "SIETE"
Case "8"
txtUnidaddecimal = "OCHO"
Case "9"
txtUnidaddecimal = "NUEVE"
End Select
End If
If Decenadecimal = 0 And Unidaddecimal = 0 Then
ConvierteDecimal = ""
Else
ConvierteDecimal = txtDecenadecimal & txtUnidaddecimal
End If
End Function

Para el caso de Office 2007 que en algunas instalaciones no trae consigo habilitado la pestaña (tab o ficha) "Programador" debemos habilitarla haciendo click en el "botón de Office" y luego clickar las "Opciones de Excel" tal como se ve en los siguientes dibujos, y luego marcar la casilla de verificación "Mostrar ficha Programador en la cinta de Opciones". Al hacer esto verán que aparecerá al final de las demás fichas de Excel la ficha que necesitamos para ingresar al Editor de Visual Basic que es el primer icono que aparece a la izquierda con el texto "Visual Basic".

Para ver un poco más de detalle de como insertar un nuevo módulo en el libro en que queramos la función pueden hacer click aquí para leer un poco más al respecto y complementar este procedimiento.

Una vez hecho todo lo anterior no queda más que guardar en el Editor de Visual Basic, cerrarlo, y luego probar que la función haga su trabajo en una celda cualquiera, asi:

Supongamos que la celda A1 tiene el número 15,958.76
Llamamos a la función letras en la celda A2: =letra(A1)
Y aparecerá el resultado:

Importantes notas a destacar

:

• Puesto que la función muestra PESOS como moneda local no quiere decir que así debe ser siempre, ya que esto debe ser cambiado a cualquiera que sea nuestra moneda local, ya sean DOLARES, QUETZALES, EUROS, SOLES, ETC., al igual que las letras M.N. (Moneda Nacional) que aparece al final del texto. Para efectuar este cambio nada más deberán reemplazar la palabra PESOS de las filas número 61 y 63 por el nombre de su moneda pero sin borrar nada más, y de igual forma, al final de esas mismas líneas de texto aparece M.N. el cual pueden cambiar por lo que mejor les convenga.
  


• Me ha pasado en algunas situaciones que he querido ver el Editor de Visual Basic en Office 2007 y simplemente no está porque dependiendo de la instalación que se haya hecho, no siempre se instala por lo cual deberán tener a la mano el CD de instalación de Office 2007 y añadir ese complemento.

Como les mencionaba al principio, los créditos no son míos, no he hecho yo está importante función, nada más me he limitado a compartirla con todos añadiendo algo de contenido. Yo vi hace mucho tiempo el código en La Web del Programador y puesto que la primera vez que publiqué mi ejemplo tenía cierto problema con ciertas cantidades, he decidido poner este nuevo método, aunque si quieren comentar, pues bienvenidos sean sus comentarios.