En la parte inferior, en el cuadro "Administrar", asegúrate de que esté seleccionado Complementos de Excel y haz clic en Haz clic en , busca el archivo descargado y selecciónalo.
Sí, el código que te proporcioné soporta hasta billones. En la parte inferior, en el cuadro "Administrar",
: You can paste a "SpellNumber" script directly into your workbook. Press ALT + F11 to open the VBA editor, insert a new Module , and paste the code. This allows you to use =NumLetras(A1) or =SpellNumber(A1) immediately without installing external software. Press ALT + F11 to open the VBA
Avoid any site mentioning "Generator Z Extra Quality." Stick to Microsoft's official Add-in store or trusted VBA scripts from developer communities like Microsoft Q&A step-by-step guide on how to set up the VBA macro yourself? What's new in Excel 2021 for Windows - Microsoft Support What's new in Excel 2021 for Windows -
I understand you're asking for a report on a specific search term related to an Excel add-in called "NumLetras" (which converts numbers to letters, common in Spanish-language accounting/finance), combined with suspicious keywords like "generator," "extra quality," and what appears to a modified version name.
Una vez descargado el archivo .xla o .xlam , sigue estos pasos:
Function ConvierteCientos(ByVal MyNumber As String) As String Dim Result As String Dim Numero As Integer Numero = Val(MyNumber) If Numero = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Mid(MyNumber, 1, 1) <> "0" Then Result = Choose(Mid(MyNumber, 1, 1), "Cien", "Doscientos", "Trescientos", "Cuatrocientos", "Quinientos", "Seiscientos", "Setecientos", "Ochocientos", "Novecientos") If Mid(MyNumber, 1, 1) = "1" And Mid(MyNumber, 2, 2) <> "00" Then Result = "Ciento" End If If Mid(MyNumber, 2, 1) <> "0" Then If Mid(MyNumber, 2, 1) = "1" Then Result = Result & " " & Choose(Mid(MyNumber, 3, 1) + 1, "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciseis", "Diecisiete", "Dieciocho", "Diecinueve") ConvierteCientos = Trim(Result) Exit Function Else Result = Result & " " & Choose(Mid(MyNumber, 2, 1) - 1, "Diez", "Veinte", "Treinta", "Cuarenta", "Cincuenta", "Sesenta", "Setenta", "Ochenta", "Noventa") End If End If If Mid(MyNumber, 3, 1) <> "0" Then Result = Result & " y " & Choose(Mid(MyNumber, 3, 1), "un", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve") End If ConvierteCientos = Trim(Result) End Function