¿Cómo convertir una cantidad en moneda a texto en palabras en Excel?
Para quienes no son nativos y usan el inglés como segunda lengua, convertir directamente un número monetario en palabras puede resultar complicado cuando la cifra es muy larga. En este artículo aprenderá cómo transformar fácilmente una cantidad en moneda a texto en Excel.
Convertir moneda a palabras con código VBA
Convertir moneda a palabras con Kutools para Excel
Convertir moneda a palabras con código VBA
Con el siguiente código VBA, podrá convertir cantidades monetarias en palabras en inglés.
1. Pulse Alt+F11 para abrir el cuadro de diálogo Microsoft Visual Basic para Aplicaciones.
2. En el cuadro de diálogo Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código en la ventana de código.
Código VBA: Convertir número monetario a palabras en inglés
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Pulse Alt + Q simultáneamente para cerrar el cuadro de diálogo Microsoft Visual Basic para Aplicaciones.
4. Seleccione una celda vacía (B1) adyacente a la celda que desea convertir en palabras, introduzca la fórmula =NumberstoWords(A1) y, a continuación, pulse la tecla Intro.
Nota: A1 es la celda que contiene el importe. Puede modificarla según sus necesidades.
5. Seleccione la celda B1 y arrastre el controlador de relleno hacia abajo para obtener todas las palabras en inglés que corresponden a los importes numéricos.
Convertir moneda a palabras con Kutools para Excel
Este largo código VBA puede parecer complicado, pero ¡tenemos la solución perfecta para ti! Con la práctica utilidad Convertir a palabras de Kutools para Excel, convertir cantidades en moneda a palabras ya no será un problema. Sigue estos sencillos pasos:
Antes de usar Kutools para Excel, por favor descárguelo e instálelo primero.
1. Seleccione las celdas que contienen los importes monetarios que desea convertir.
2. Haga clic en Kutools > Contenido > Convertir a palabras. Vea la captura de pantalla:
3. En el cuadro de diálogo Convertir de minúsculas a mayúsculas, seleccione la opción Inglés y haga clic en el botón Aceptar o Aplicar.
Ahora, los números monetarios seleccionados se han convertido inmediatamente en palabras en inglés.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
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