¿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
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.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos