¿Cómo convertir moneda a texto de palabras en Excel?
Para los hablantes no nativos que usan el inglés como segundo idioma, a veces es difícil cambiar directamente el número de moneda a palabras en inglés cuando el número es demasiado largo. En este artículo, aprenderá cómo convertir fácilmente moneda en texto de palabras en Excel.
Convierta moneda a palabras con código VBA
Convierta moneda a palabras con Kutools para Excel
Convierta moneda a palabras con código VBA
Con el siguiente código VBA, puede convertir el número de moneda a palabras en inglés.
1. Prensa otro + F11 para abrir el Microsoft Visual Basic para aplicaciones caja de diálogo.
2. En el Microsoft Visual Basic para aplicaciones cuadro de diálogo, haga clic en recuadro > Módulo. Luego copie y pegue el siguiente código en la ventana de código.
Código VBA: convierte el número de moneda 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 Function
3. Prensa otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones caja de diálogo.
4. Seleccione una celda en blanco (B1) que esté adyacente a la celda que desea convertir en palabras, ingrese la fórmula = Números a palabras (A1), y luego presione el Participar clave.
Note: A1 es la celda que contiene el número de moneda. Puede cambiarlo cuando lo necesite.
5. Seleccione la celda B1, arrastre el controlador de relleno hacia abajo para obtener todas las palabras en inglés de los números de moneda.
Convierta moneda a palabras con Kutools para Excel
Este largo código VBA parece complicado. Aquí les presentaré una útil utilidad para resolver fácilmente este problema. Con el Números a palabras utilidad de Kutools for Excel, convertir moneda en palabras ya no será un problema. Haz lo siguiente.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Seleccione las celdas con los números de moneda que desea convertir.
2. Hacer clic en Kutools > Contenido > Números a palabras. Ver captura de pantalla:
3. En el Números a palabras de moneda cuadro de diálogo, seleccione Inglés opción, y haga clic en OK or ¡Aplicá! del botón.
Ahora los números de moneda seleccionados se convierten inmediatamente a palabras en inglés.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!