The biggest "con" regarding NumLetras in 2021 is that Microsoft officially solved this problem.
Verdict: ⭐⭐⭐⭐☆ (4/5) Numletras remains one of the most essential utilities for Excel users in Spanish-speaking regions. While the "2021 Gratis" version is often just the classic legacy add-in repackaged, it solves a critical gap in Excel’s native functionality—converting numbers to written text (e.g., "1500" to "Mil quinientos")—instantly and accurately.
Sí, la versión estándar llega hasta billones (en español: un billón = 1.000.000.000.000). Para cifras mayores, busca una versión extendida.
Sigue estos pasos exactos para evitar errores de seguridad o compatibilidad. Descargar Complemento Numletras Para Excel 2021 Gratis
Si descargas de fuentes conocidas (GitHub, foros de Excel) y verificas el hash del archivo, es seguro. Escanea siempre con Windows Defender.
No descargues de banners sospechosos. Usa sitios conocidos de macros Excel como:
⚠️ Advertencia: Evita páginas que pidan "registro con tarjeta de crédito" o "prueba gratis de 7 días". El verdadero Numletras libre no requiere datos bancarios. The biggest "con" regarding NumLetras in 2021 is
Si prefieres crear tu propia función sin descargar nada, copia este código en un módulo VBA:
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 ' 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 ' Agregar moneda If Moneda <> "" Then Result = Result & " " & Moneda If DecimalPart <> "" And Centavos <> "" Then Result = Result & " " & DecimalPart & "/100 " & Centavos ElseIf DecimalPart <> "" Then Result = Result & " punto " & DecimalPart End If End If NumLetras = Trim(Result)
End Function
⚠️ Advertencia: El código completo real es extenso. Te recomendamos buscar en GitHub "Numletras full VBA" para obtener la versión con soporte a miles, millones, etc.
Si no confías en archivos externos, puedes copiar el código VBA oficial y crear tu propio complemento. Al final del artículo te dejamos el código completo.