Convertir Numeros A Letras En Excel

Convertir numeros a letras en Excel
Una de las funciones de Microsoft Excel más buscadas en la red y en los foros, es como convertir un número a texto o número a letras, esta función no vieneintegrada en las formulas propias de Microsoft Excel, esto lo podemos hacer insertando un código llamado “Macro”, que no son más que instrucciones que nos ayudan a automatizar tareas en Excel (también seusa en Word, Access etc.).
En la red se puede encontrar muchos de estos “códigos”, algunos permiten manejar varias monedas, dólares, Euros etc.
Desde que uso Microsoft Excel he probado varios deesos códigos, he visto como mucha gente se atribuye la autoría de dichos códigos, que vergüenza pero en fin. Dentro de las diferencias que he encontrado en la conversión a texto es algo así como esto:23 = Veintitrés
23 = Veinte y tres
Yo me inclinaría más por el primero, No es que la segunda conversión este mal, cualquiera de las dos formas son correctas, pongamos un ejemplo, cuando voy a latienda de la esquina y pregunto ¿Cuánto cuesta este pan? El anciano muy amablemente me dice “son veintitrés Quetzales joven”.
Vamos a empezar, primero necesitamos el código, vamos a usar este:Function Quetzales(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte,lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta comoOption Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades= Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE",...