Function NumLetras(ByVal MyNumber, Optional Moneda As String = "", Optional Centavos As String = "") Dim Units As String, Tens As String, Hundreds As String Dim DecimalPart As String Dim i As Integer Dim Temp As String Dim Result As String ' Limpiar formato MyNumber = Trim(Replace(MyNumber, ",", "")) If InStr(MyNumber, ".") > 0 Then DecimalPart = Mid(MyNumber, InStr(MyNumber, ".") + 1) If Len(DecimalPart) > 2 Then DecimalPart = Left(DecimalPart, 2) MyNumber = Left(MyNumber, InStr(MyNumber, ".") - 1) End If
📌 (simulación): www.ejemplo.com/numletras_excel2021.xlam – Siempre verifica el hash MD5 del archivo antes de abrirlo. Descargar Complemento Numletras Para Excel 2021 Gratis
' Convertir parte entera (simplificado para este ejemplo) ' Nota: Este es un extracto. El código completo tiene más de 200 líneas. Result = "Ciento veintitrés" ' Aquí iría la lógica completa Result = "Ciento veintitrés" ' Aquí iría la
: Revisa que el archivo .xlam aparezca en la lista de complementos activos. Si instalaste manualmente, asegúrate de que el módulo se llama Numletras y no Modulo1 . Error 3: No funciona en Excel 2021 de 64 bits Solución : Algunas versiones antiguas de Numletras usan declaraciones PtrSafe incompatibles. Busca la versión Numletras 2.1 para 64 bits o edita el código VBA cambiando: Busca la versión Numletras 2