Excel – Número a texto

Macro para Excel que agrega la función de números a texto

• Agregar una macro nueva con el nombre PesosMN
• Modificar la macro en Visual Basic con el código de abajo
• Agregar a una celda la formula =PesosMN(A1) donde A1 es la celda con la cantidad 12354565.012 que daría la función el resultado DOCE MILLONES TRESCIENTOS CINCUENTA Y CUATRO MIL QUINIENTOS SESENTA Y CINCO PESOS 01/100 M.N.
• Puedes usar la versión descargando el siguiente archivo que ya tiene la función PesosMN incluida PesosMN.xlsm

<br /> Function PesosMN(tyCantidad As Currency) As String</p> <p>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</p> <p>Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant ‘Si esta como Option Explicit</p> <p>tyCantidad = Round(tyCantidad, 2)</p> <p>lyCantidad = Int(tyCantidad)</p> <p>lyCentavos = (tyCantidad – lyCantidad) * 100</p> <p>laUnidades = Array(“UN”, “DOS”, “TRES”, “CUATRO”, “CINCO”, “SEIS”, “SIETE”, “OCHO”, “NUEVE”, “DIEZ”, “ONCE”, “DOCE”, “TRECE”, “CATORCE”, “QUINCE”, “DIECISEIS”, “DIECISIETE”, “DIECIOCHO”, “DIECINUEVE”, “VEINTE”, “VEINTIUN”, “VEINTIDOS”, “VEINTITRES”, “VEINTICUATRO”, “VEINTICINCO”, “VEINTISEIS”, “VEINTISIETE”, “VEINTIOCHO”, “VEINTINUEVE”)</p> <p>laDecenas = Array(“DIEZ”, “VEINTE”, “TREINTA”, “CUARENTA”, “CINCUENTA”, “SESENTA”, “SETENTA”, “OCHENTA”, “NOVENTA”)</p> <p>laCentenas = Array(“CIENTO”, “DOSCIENTOS”, “TRESCIENTOS”, “CUATROCIENTOS”, “QUINIENTOS”, “SEISCIENTOS”, “SETECIENTOS”, “OCHOCIENTOS”, “NOVECIENTOS”)</p> <p>lnNumeroBloques = 1</p> <p>Do</p> <p>lnPrimerDigito = 0</p> <p>lnSegundoDigito = 0</p> <p>lnTercerDigito = 0</p> <p>lcBloque = “”””</p> <p>lnBloqueCero = 0</p> <p>For I = 1 To 3</p> <p>lnDigito = lyCantidad Mod 10</p> <p>If lnDigito <> 0 Then</p> <p>Select Case I</p> <p>Case 1</p> <p>lcBloque = ” ” & laUnidades(lnDigito – 1)</p> <p>lnPrimerDigito = lnDigito</p> <p>Case 2</p> <p>If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, ” Y”, Null) & lcBloque</p> <p>End If</p> <p>lnSegundoDigito = lnDigito</p> <p>Case 3</p> <p>lcBloque = ” ” & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, “CIEN”, laCentenas(lnDigito – 1)) & lcBloque</p> <p>lnTercerDigito = lnDigito</p> <p>End Select</p> <p>Else</p> <p>lnBloqueCero = lnBloqueCero + 1</p> <p>End If</p> <p>lyCantidad = Int(lyCantidad / 10)</p> <p>If lyCantidad = 0 Then</p> <p>Exit For</p> <p>End If</p> <p>Next I</p> <p>Select Case lnNumeroBloques</p> <p>Case 1</p> <p>PesosMN = lcBloque</p> <p>Case 2<br /> ‘rnl<br /> ‘If PesosMN = Chr(34) Then<br /> ‘PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, ” MIL”)<br /> ‘Else<br /> ‘PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, ” MIL”) & PesosMN<br /> ‘End If<br /> ‘rnl</p> <p>PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, ” MIL”) & PesosMN</p> <p>‘rnl<br /> ‘duda = lcBloque & IIf(lnBloqueCero = 3, Null, ” MIL”) & PesosMN<br /> ‘duda = lcBloque ::::tien UN<br /> ‘duda = IIf(lnBloqueCero = 3, Null, ” MIL”)</p> <p>Case 3</p> <p>PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, ” MILLON”, ” MILLONES”) & PesosMN</p> <p>End Select</p> <p>lnNumeroBloques = lnNumeroBloques + 1</p> <p>Loop Until lyCantidad = 0</p> <p>‘PesosMN = “SON: (” & PesosMN & IIf(tyCantidad > 1, ” PESOS “, ” PESO “) & Format(Str(lyCentavos), “00?) & “/100 M.N.)”<br /> ‘PesosMN = ” ” & PesosMN & IIf(tyCantidad > 1, ” PESOS “, ” PESO “) & Format(Str(lyCentavos), “00”) & “/100 M.N. ”<br /> ‘PesosMN = PesosMN & IIf(tyCantidad > 1, ” PESOS “, ” PESO “) & Format(Str(lyCentavos), “00”) & “/100 M.N. ” & duda<br /> PesosMN = PesosMN & IIf(tyCantidad > 1, ” PESOS “, ” PESO “) & Format(Str(lyCentavos), “00”) & “/100 M.N. ”<br /> PesosMN = Replace(PesosMN, Chr(34), “”, , , vbTextCompare)<br /> End Function<br />