El Peligro de las Descargas con Etiquetas "Generator Z" o "Extra Quality"
Estos parches alteran el registro de Office, provocando cierres inesperados de Excel 2021 y la pérdida de documentos importantes. El Peligro de las Descargas con Etiquetas "Generator
Function NumLetras(Numero As Double) As String Dim Texto As String Dim Millones As Long, Miles As Long, Unidades As Long Dim Decimales As Integer If Numero = 0 Then NumLetras = "CERO" Exit Function End If Decimales = Round((Numero - Fix(Numero)) * 100, 0) Numero = Fix(Numero) Millones = Fix(Numero / 1000000) Numero = Numero - (Millones * 1000000) Miles = Fix(Numero / 1000) Unidades = Numero - (Miles * 1000) If Millones > 0 Then If Millones = 1 Then Texto = "UN MILLON " Else Texto = Centenas(Millones) & " MILLONES " End If End If If Miles > 0 Then If Miles = 1 Then Texto = Texto & "UN MIL " Else Texto = Texto & Centenas(Miles) & " MIL " End If End If If Unidades > 0 Then Texto = Texto & Centenas(Unidades) End If If Decimales > 0 Then Texto = Texto & " CON " & Format(Decimales, "00") & "/100" Else Texto = Texto & " CON 00/100" End If NumLetras = Trim(Texto) End Function Private Function Centenas(ByVal Num As Integer) As String Dim U As Integer, D As Integer, C As Integer Dim Cadena As String C = Fix(Num / 100) Num = Num - (C * 100) D = Fix(Num / 10) U = Num - (D * 10) Select Case C Case 1: If D = 0 And U = 0 Then Cadena = "CIEN " Else Cadena = "CIENTO " Case 2: Cadena = "DOSCIENTOS " Case 3: Cadena = "TRESCIENTOS " Case 4: Cadena = "CUATROCIENTOS " Case 5: Cadena = "QUINIENTOS " Case 6: Cadena = "SEISCIENTOS " Case 7: Cadena = "SETECIENTOS " Case 8: Cadena = "OCHOCIENTOS " Case 9: Cadena = "NOVECIENTOS " End Select Select Case D Case 1: Select Case U Case 0: Cadena = Cadena & "DIEZ" Case 1: Cadena = Cadena & "ONCE" Case 2: Cadena = Cadena & "DOCE" Case 3: Cadena = Cadena & "TRECE" Case 4: Cadena = Cadena & "CATORCE" Case 5: Cadena = Cadena & "QUINCE" Case Else: Cadena = Cadena & "DIECISEIS" End Select Centenas = Cadena: Exit Function Case 2: If U = 0 Then Cadena = Cadena & "VEINTE" Else Cadena = Cadena & "VEINTI" Case 3: Cadena = Cadena & "TREINTA" Case 4: Cadena = Cadena & "CUARENTA" Case 5: Cadena = Cadena & "CINCUENTA" Case 6: Cadena = Cadena & "SESENTA" Case 7: Cadena = Cadena & "SETENTA" Case 8: Cadena = Cadena & "OCHENTA" Case 9: Cadena = Cadena & "NOVENTA" End Select If D > 2 And U > 0 Then Cadena = Cadena & " Y " Select Case U Case 1: Cadena = Cadena & "UN" Case 2: Cadena = Cadena & "DOS" Case 3: Cadena = Cadena & "TRES" Case 4: Cadena = Cadena & "CUATRO" Case 5: Cadena = Cadena & "CINCO" Case 6: Cadena = Cadena & "SEIS" Case 7: Cadena = Cadena & "SIETE" Case 8: Cadena = Cadena & "OCHO" Case 9: Cadena = Cadena & "NUEVE" End Select Centenas = Cadena End Function Use code with caution. Paso 3: Guardar el archivo correctamente Aquí te presento una guía completa y segura
Select it and ensure the checkbox next to "NumLetras" is ticked. Click . How to Use the Function Miles As Long
: Configura pesos, dólares, euros o soles.
Encontrar un complemento confiable para convertir números a letras en Excel 2021 puede ser un desafío, especialmente con versiones que prometen "calidad extra" o activadores externos. Aquí te presento una guía completa y segura para obtener esta función sin poner en riesgo tu equipo. El Mito de "NumLetras Generator Z Extra Quality"