¿Cómo escribir o convertir números en palabras en inglés en Excel?

Convertir números a sus equivalentes en palabras en inglés en Excel puede ser una habilidad valiosa, especialmente para informes financieros, facturación o la creación de cheques. Aunque Excel no tiene una función integrada para este propósito, existen varios métodos para lograrlo. Este artículo te guiará a través de las formas más eficientes de convertir números en palabras en Excel, junto con consejos para optimizar el proceso.

Escribir o convertir números en palabras en inglés con código VBA

Escribir o convertir números en palabras en inglés con Kutools para Excel

Escribir o convertir números en palabras en inglés con código VBA

El siguiente código VBA largo puede ayudarte a escribir números como cadenas de texto. Sigue estos pasos:

1. Mantén presionadas las teclas "ALT + F11", y se abrirá la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz clic en "Insertar" > "Módulo", y pega la siguiente macro en la ventana del Módulo.

VBA: Escribir números de moneda en palabras en inglés en Excel

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. Luego guarda el código y regresa a la hoja de cálculo; en la celda adyacente B2, introduce la fórmula =SpellNumberToEnglish(A2), ver captura de pantalla:

4. Luego presiona la tecla Enter, selecciona la celda C2, y arrastra el controlador de relleno sobre el rango que contiene esta fórmula según sea necesario. Todos los números de moneda se habrán escrito en palabras en inglés. Ver captura de pantalla:

Escribir o convertir números en palabras en inglés con Kutools para Excel

Simplifica tus tareas en Excel y aumenta tu productividad utilizando Kutools para Excel. Su poderosa función Números a Palabras proporciona más de 40 opciones de conversión de moneda, permitiéndote convertir números en palabras para Dólares Estadounidenses, YUAN Chino u otra moneda con solo unos pocos clics.

1. Selecciona el rango de números que deseas escribir y haz clic en "Kutools" > "Texto" > "Números a Palabras".

2. En el cuadro de diálogo emergente, selecciona "Inglés" en "Idioma". Puedes previsualizar los resultados en el panel "Vista previa" de la derecha. Ver captura de pantalla:

3. Luego haz clic en Aceptar o Aplicar. Todos los números de importe se habrán convertido en cadenas de texto en el rango original.

Nota: Si solo quieres convertir números a palabras en inglés (no moneda), marca la casilla No convertir a Moneda.

Siguiendo los pasos y optimizaciones descritos en esta guía, puedes convertir números en palabras de manera eficiente y agilizar tu flujo de trabajo. Ya sea que estés preparando informes financieros o creando facturas, dominar esta habilidad te ahorrará tiempo y esfuerzo. Si estás interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales.