Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo convertir rápidamente números de moneda a palabras en Excel?

Supongamos que tiene un rango de números de moneda necesarios para convertir el texto de las palabras en Excel, y ¿tiene algún truco rápido para resolverlo rápidamente? Ahora este tutorial le dice algunas formas fáciles de convertir múltiples números de moneda a palabras en inglés a la vez en Excel.

número de moneda del doc. a la palabra 1

Deletrear números de moneda a palabras con VBA largo

Deletrear números de moneda a palabras con la práctica función de números deletrear buena idea3

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Deletrear números de moneda a palabras con VBA largo


En Excel, no puede convertir números rápidamente a palabras en inglés, excepto VBA.

1. Prensa Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicación ventana.

2. Hacer clic recuadro > Módulo y pegue debajo de VBA al nuevo Módulo ventana.

VBA: convierte números de moneda 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 Function

3. A continuación, guarde este código y cierre la ventana para volver a la hoja de trabajo, y seleccione una celda en blanco escriba esta fórmula = SpellNumberToEnglish (A2) (A2 es el número de moneda), y presione entrar clave, luego arrastre el controlador de relleno hacia abajo para aplicar esta fórmula a las celdas que necesita. Ver capturas de pantalla:

número de moneda del doc. a la palabra 2
flecha doc abajo
número de moneda del doc. a la palabra 1

Deletrear números de moneda a palabras con la práctica función de números deletrear

Si necesita convertir números en palabras, el método anterior no debe ser la manera más conveniente para usted. Sin embargo, puedes usar el Deletrear números función para convertir rápidamente números de moneda a palabras en inglés o en chino si tiene Kutools for Excel.

Kutools for Excel, con más de 120 prácticas funciones de Excel, mejore su eficiencia de trabajo y ahorre su tiempo de trabajo.

después instalación gratuita Kutools para Excel, haz lo siguiente:

1. Seleccione los números de moneda y haga clic Kutools > Contenido > Deletrear números. Ver captura de pantalla:

número de moneda del doc. a la palabra 7

2. En el Deletrear número diálogo, verificar Inglés or 中文 opción que necesita. Ver captura de pantalla:

número de moneda del doc. a la palabra 4

3. Hacer clic Ok or Aplicar. Luego, los números de moneda que seleccionó se convirtieron en palabras.

Números de moneda a palabras inglesas

número de moneda del doc. a la palabra 5

Números de moneda a palabras chinas

número de moneda del doc. a la palabra 6

Nota: Puede copiar y pegar los números de moneda en otra hoja de trabajo antes de aplicar los números de deletreo.


buena ideaConversión de Moneda

Kutools'Conversión de Moneda función le proporciona la última tasa de cambio y lo ayuda a convertir monedas multuple.
Haz click Kutools > Contenido > Conversio de divisasn para convertir rápidamente entre dos monedas. Ver captura de pantalla:
conversión de moneda doc 1

Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kim Morse · 6 months ago
    Hai, Kim Morse, pemberi pinjaman wang persendirian. (Code360)
    Kami menyediakan pinjaman dengan kadar faedah 2% setahun dan dalam jumlah $ 10,000.00 hingga $ 500,000.00 dan € 10,000.00 hingga € 500,000.00 sebagai tawaran pinjaman. Projek 100% yang dibiayai dengan pinjaman bercagar dan tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej kredit yang fleksibel, pinjaman boleh diproses dan dana dipindahkan kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individu swasta dan pelabur hartanah yang berminat. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
    Butiran pengguna:
    Nama-nama:
    Tarikh lahir:
    Jantina.
    Status perkahwinan saya:
    Alamat:
    Bandar:
    dan Negeri / Wilayah:
    Kod pos /
    Negara:
    Telefon:
    Email saya:
    dengan tujuan pinjaman:
    Jumlah pinjaman:
    Tempoh pinjaman:
    Pendapatan bulanan anda:
    Hubungi pegawai pinjaman Via Email: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

    Salam sejahtera,
    Puan Kim