¿Cómo convertir rápidamente divisas a palabras en Excel?
Al trabajar con datos financieros en Excel, es posible que en ocasiones necesite convertir cifras monetarias en palabras, como al rellenar cheques. Aunque Excel no incluye una función integrada para ello, existen dos métodos eficaces para conseguirlo. Este artículo le guiará paso a paso por ambos enfoques, ayudándole a elegir el más adecuado según sus necesidades.
Escribir divisas en letras Convertir a palabras con código VBA
Escribir divisas en letras Convertir a palabras con Kutools para Excel 
Escribir divisas en letras Convertir a palabras con código VBA
En Excel, no puede convertir números a palabras en inglés de forma rápida a menos que utilice VBA.
1. Pulse las teclas «Alt + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue el siguiente código VBA en la nueva ventana del módulo.
VBA: Convertir cifras monetarias a palabras en inglés
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 Function3. A continuación, guarde este código y haga clic en Cerrar esta ventana para volver a la hoja de cálculo. Seleccione una celda vacía y escriba la siguiente fórmula: =SpellNumberToEnglish(A2)(A2 contiene las cifras monetarias). Pulse Intro y arrastre el controlador de relleno hacia abajo para aplicar la fórmula a las celdas que necesite. Consulte las capturas de pantalla:
Escribir divisas en letras Convertir a palabras con la práctica función de Escribir Números en Palabras
Para quienes prefieran no usar VBA, Kutools para Excel ofrece una solución sencilla y eficaz: con un solo clic, convierte números en palabras. Su función «Convertir a palabras» transforma cifras en texto monetario en más de 40 formatos de divisa distintos, lo que la convierte en la opción ideal para informes financieros y transacciones internacionales. En tan solo unos clics, los usuarios obtienen valores numéricos convertidos en texto completamente formateado en varios idiomas, incluidos USD, EUR, GBP, JPY, CNY y otros, eliminando conversiones manuales y reduciendo errores.
1. Seleccione las cifras monetarias y haga clic en «Kutools» > «Contenido» > «Convertir a palabras». Vea la captura de pantalla:
2. En el cuadro de diálogo «Convertir de minúsculas a mayúsculas», elija el idioma que desee utilizar; en este caso seleccionaré la opción «English» en el cuadro de lista «Languages». Consulte la captura de pantalla:
3. Haga clic en «Aceptar» o en «Aplicar». Las cifras monetarias seleccionadas se habrán convertido ya en palabras correspondientes a la divisa especificada.
Convertir cifras monetarias en palabras en Excel puede hacerse de forma eficiente mediante VBA o Kutools para Excel. Al aplicar cualquiera de estos métodos, podrá automatizar informes financieros y eliminar errores derivados de la escritura manual. Si desea explorar más consejos y trucos sobre Excel, nuestra página web ofrece miles de tutoriales para ayudarle a dominar Excel.
Demostración: Convertir cifras monetarias en palabras con Kutools para Excel
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