¿Cómo escribir o convertir números en palabras en inglés en Excel?
Convertir números en sus equivalentes en palabras en inglés en Excel puede resultar muy útil, especialmente en informes financieros, facturas o cheques. Aunque Excel no incluye una función integrada para ello, existen varios métodos eficaces para lograrlo. Este artículo le guiará por las formas más eficientes de convertir números a palabras en Excel, junto con consejos prácticos para optimizar el proceso.
Escriba o convierta números en palabras en inglés con código VBA
El siguiente código VBA le permite convertir números en palabras dentro de cadenas de texto. Siga estos pasos:
1. Mantenga pulsadas las teclas «ALT + F11» para abrir la ventana de «Microsoft Visual Basic para Aplicaciones».
2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del módulo.
VBA: Escriba números monetarios 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. A continuación, guarde el código y regrese a la hoja de cálculo. En la celda adyacente B2, introduzca la fórmula =SpellNumberToEnglish(A2). Consulte la captura de pantalla:
4. Pulse la tecla Intro, seleccione la celda C2 y arrastre el controlador de relleno hasta el rango que necesite para aplicar esta fórmula. Así, todos los importes monetarios se convertirán automáticamente en palabras en inglés. Consulte la captura de pantalla:
Escriba o convierta números en palabras en inglés con Kutools para Excel
Agilice sus tareas en Excel y potencie su productividad con Kutools para Excel. Su potente función «Convertir a palabras» incluye más de 40 opciones de conversión de moneda, permitiéndole transformar números en palabras —ya sea en dólares estadounidenses, yuanes chinos u otras divisas— con solo unos pocos clics.
1. Seleccione el rango de números que desea convertir en palabras y haga clic en «Kutools» > «Contenido» > «Convertir a palabras».
2. En el cuadro de diálogo emergente, seleccione «Inglés» en «Idiomas». Además, podrá previsualizar los resultados en el panel derecho «Vista previa». Consulte la captura de pantalla:
3. A continuación, haga clic en Aceptar o en Aplicar. De este modo, todos los valores numéricos se convertirán en cadenas de texto dentro del rango original.
Nota: Si solo desea convertir números en palabras en inglés (sin formato monetario), active la casilla «No convertir a moneda».
Siguiendo los pasos y optimizaciones descritos en esta guía, podrá convertir eficazmente números a palabras y agilizar su flujo de trabajo. Tanto si prepara informes financieros como si genera facturas, dominar esta habilidad le ahorrará tiempo y esfuerzo. Si desea explorar más consejos y trucos de Excel, nuestra web ofrece miles de tutoriales.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos