It seems you are looking for a way to convert numbers to text (words) in Excel 2021, specifically mentioning a tool often called "NumLetras" and implying a high-quality, reliable solution.
: Dispone de una versión que permite personalizar la moneda de tu país fácilmente. Pasos para la Instalación It seems you are looking for a way
Function NumLetras(Numero As Double) As String Dim Unidades, Decenas, Centenas Dim Texto As String, Centavos As Integer Dim Entero As Long, Fraccion As String Unidades = Array("", "UN ", "DOS ", "TRES ", "CUATRO ", "CINCO ", "SEIS ", "SIETE ", "OCHO ", "NUEVE ") Decenas = Array("", "DIEZ ", "VEINTE ", "TREINTA ", "CUARENTA ", "CINCUENTA ", "SESENTA ", "SETENTA ", "OCHENTA ", "NOVENTA ") Centenas = Array("", "CIENTO ", "DOSCIENTOS ", "TRESCIENTOS ", "CUATROCIENTOS ", "QUINIENTOS ", "SEISCIENTOS ", "SETECIENTOS ", "OCHOCIENTOS ", "NOVECIENTOS ") Entero = Int(Numero) Centavos = Round((Numero - Entero) * 100, 0) ' Lógica simplificada para el ejemplo If Entero = 0 Then Texto = "CERO " ' (El código completo procesa miles, millones y centavos) NumLetras = Texto & "CON " & Format(Centavos, "00") & "/100" End Function Use code with caution. Copied to clipboard Paso 2: Instalar en Excel 2021 Copied to clipboard Paso 2: Instalar en Excel
: