Note: The other languages of the website are Google-translated. Back to English

¿Cómo convertir rápidamente números a palabras en inglés en Excel?

Si tiene una columna de valores numéricos en una hoja de trabajo, y ahora necesita convertirlos en sus palabras equivalentes en inglés o palabras en moneda inglesa como se muestra en la siguiente captura de pantalla. Aquí hablaré sobre cómo cambiar los números a palabras en inglés de forma rápida y sencilla.

Convierta números a palabras en inglés con la función definida por el usuario

Convierta números en palabras de moneda con la función definida por el usuario

Convierta números en palabras de moneda con una función útil


Convierta números a palabras en inglés con la función definida por el usuario

No hay funciones o fórmulas que puedan ayudarlo a resolver esta tarea directamente en Excel, pero puede crear una función definida por el usuario para finalizarla. Siga los siguientes pasos:

1. Mantenga pulsado el botón ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Guarde y cierre este código y vuelva a la hoja de trabajo, en una celda en blanco, ingrese esta fórmula = Números a palabras (A2)( A2 es la celda en la que desea convertir el número a una palabra en inglés), vea la captura de pantalla:

4. Entonces presione Enviar y seleccione la celda C2, luego arrastre el controlador de relleno al rango que desea que contenga esta fórmula. Todos los valores numéricos se han convertido en sus correspondientes palabras en inglés.

Nota:: Este código solo funciona para números enteros, pero no se aplica a números decimales.


Convierta números en palabras de moneda con la función definida por el usuario

Si desea convertir los números en palabras de moneda en inglés, debe aplicar el siguiente código VBA.

1. Mantenga pulsado el botón ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
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. Guarde este código y vuelva a la hoja de trabajo, en una celda en blanco, ingrese esta fórmula = SpellNumberToEnglish (A2)( A2 es la celda en la que desea convertir el número en una palabra de moneda en inglés), y luego arrastre el controlador de relleno hacia las celdas en las que desea aplicar esta fórmula, todos los números se han escrito en palabras de moneda en inglés, vea la captura de pantalla:


Convierta números en palabras de moneda con una función útil

El código anterior es algo problemático para los principiantes de Excel, aquí, presentaré una característica útil, Kutools for Excel's Números a palabras, con esta utilidad, puede deletrear rápidamente los números en palabras en inglés o en palabras de moneda.

Consejos:Para aplicar esto Números a palabras función, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione la lista de números que desea convertir y luego haga clic en Kutools > Contenido > Números a palabras, ver captura de pantalla:

2. En la Números a palabras de moneda cuadro de diálogo, comprobar Inglés Opción de la Idiomas cuadro de lista y luego haga clic en Ok , verá que todos los números se han escrito en palabras de moneda inglesa:

Consejos: Si desea obtener las palabras en inglés, marque la No convertido a moneda casilla de verificación del Opciones De sección, ver capturas de pantalla:

¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (62)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola buenos díasHola.. Buenos días.. Encantado de conocerte.
Este comentario fue minimizado por el moderador en el sitio
este codigo no funciona
Este comentario fue minimizado por el moderador en el sitio
Señor, ¿cómo puedo convertir números a palabras con la última palabra "Solo"?
Este comentario fue minimizado por el moderador en el sitio
¿¿¿¿¿problema resuelto?????
Este comentario fue minimizado por el moderador en el sitio
Tienes que agregar una fórmula adicional más en otra columna
="Rs."&""&F6&"Solo"&"."
Este comentario fue minimizado por el moderador en el sitio
¿Qué tal si el número tiene un (.) como 150.75 o 3.35? ayuda por favor gracias...
Este comentario fue minimizado por el moderador en el sitio
Gracias por su amable apoyo para crear la fórmula. ¿Puede decirnos si necesitamos agregar el nombre de la moneda, como riales saudíes o libras esterlinas?
Este comentario fue minimizado por el moderador en el sitio
Por ejemplo, convertimos 4000 en la palabra "Cuatro mil", quiero traducirlo como "Riales saudíes Sólo cuatro mil", por lo que falta en la fórmula "Riales saudíes y sólo".
Por favor, ayuda
Este comentario fue minimizado por el moderador en el sitio
La fórmula mencionada anteriormente en el módulo se repite y se copia del sitio web de Microsoft.

Consulte el enlace original y siga Microsoft Update.

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
Este comentario fue minimizado por el moderador en el sitio
estimado, este código muestra un error de sintaxis en esta línea
Centavos = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &_"00", 2))

me pueden ayudar..?? Respondanme lo mas pronto posible
Este comentario fue minimizado por el moderador en el sitio
AGREGAR LA PALABRA Y ENTRE PALABRAS. Ciento cuarenta mil quinientos veintiséis en lugar de ciento cuarenta mil quinientos veintiséis. Es posible que la oración no se entienda bien ya que no es un inglés adecuado.
Este comentario fue minimizado por el moderador en el sitio
este codigo no funciona permanentemente... si cerramos y abrimos la hoja no funciona
Este comentario fue minimizado por el moderador en el sitio
Guarde el archivo como "Libro de trabajo habilitado para macros" y habilite las macros cuando lo abra
Este comentario fue minimizado por el moderador en el sitio
muchas gracias por tu código
Este comentario fue minimizado por el moderador en el sitio
Por ejemplo, convertimos 2500 en la palabra "Dos mil quinientos", quiero traducirlo como "Solo dos mil quinientos", por lo que falta en la fórmula "Solo".
Por favor, ayuda
Este comentario fue minimizado por el moderador en el sitio
use =CONCATENAR(NúmerosaPalabras(A1),"Solo")
Este comentario fue minimizado por el moderador en el sitio
Realmente gracias querida, tu fórmula fue perfecta, buena, que Allah te bendiga.
Saludos.
Este comentario fue minimizado por el moderador en el sitio
lakh crore no en la fórmula. Amablemente ayúdame.
Este comentario fue minimizado por el moderador en el sitio
Por ejemplo, convertimos 2500 en la palabra "Two Thousand Five Hundred", quiero traducirlo como "Two Thousand Five Hundred & Fifty Only" así que, ¿podrían ayudarme?
Este comentario fue minimizado por el moderador en el sitio
No puedo deletrear los centavos... mi cantidad es 123.50 y obtuve "ciento veintitrés"... copié toda la fórmula, por favor ayuda
Este comentario fue minimizado por el moderador en el sitio
¿Qué hay de lakhs y crores?
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
BIEN. Pero lamento decir que esta fórmula NO funciona de forma permanente... Cerré el libro de trabajo para el almuerzo. Después del almuerzo abrí el archivo pero la fórmula no funcionaba. mostrando un error como #NOMBRE?. Amablemente soluciones íntimas por favor.
Este comentario fue minimizado por el moderador en el sitio
Muchas Gracias


¡Esta funcionando! :)
Este comentario fue minimizado por el moderador en el sitio
hay un error cuando mi cantidad es "618475", dice "Seiscientos dieciocho mil cuatrocientos setenta y cinco" en lugar de "seis lac dieciocho mil cuatrocientos setenta y cinco".
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema
Este comentario fue minimizado por el moderador en el sitio
Esto no es un problema, es un formato de escritura en palabras.
Este comentario fue minimizado por el moderador en el sitio
Gracias extendOfficea
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL