Vai al contenuto principale

Come convertire rapidamente i numeri di valuta in parole in Excel?

Supponendo che tu abbia una gamma di numeri di valuta necessari per convertire in testo di parole in Excel e hai qualche trucco veloce per risolverlo rapidamente? Ora questo tutorial ti spiega alcuni modi semplici per convertire più numeri di valuta in parole inglesi contemporaneamente in Excel.

numero di valuta doc alla parola 1

Scrivi i numeri di valuta in parole con VBA lungo

Scrivi i numeri di valuta in parole con la pratica funzione Numbers to Words buona idea 3


Scrivi i numeri di valuta in parole con VBA lungo

In Excel, non è possibile convertire rapidamente i numeri in parole inglesi tranne VBA.

1. Stampa Alt + F11 chiavi per aprire il Microsoft Visual Basic per l'applicazione finestra.

2. Clic inserire > Moduli e incolla sotto VBA nel nuovo Moduli finestra.

VBA: converti i numeri di valuta in parole inglesi.

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. Quindi salvare questo codice e chiudere la finestra per tornare al foglio di lavoro e selezionare una cella vuota digitare questa formula = SpellNumberToEnglish (A2) (A2 sono i numeri di valuta) e premere entrare , quindi trascina il quadratino di riempimento verso il basso per applicare questa formula alle celle che ti servono. Vedi screenshot:

numero di valuta doc alla parola 2
doc freccia giù
numero di valuta doc alla parola 1

Scrivi i numeri delle valute in parole con la pratica funzione Spell Out Numbers

Se di solito hai bisogno di convertire i numeri in parole, il metodo sopra non deve essere il modo buono e conveniente per te. Tuttavia, puoi utilizzare l'estensione Numeri in parole funzione per convertire rapidamente i numeri di valuta in parole inglesi o cinesi, se ne hai Kutools for Excel.

Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. 

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Selezionare i numeri di valuta e fare clic su Kutools > Contenuti > Numeri in parole. Vedi screenshot:

numero di valuta doc alla parola 7

2. Nel Numeri in parole di valuta dialogo, controlla Inglese or Cinese opzione di cui hai bisogno. Vedi screenshot:

numero doc ai mondi 2

3. Clic Ok or APPLICA. Quindi i numeri di valuta selezionati sono stati convertiti in parole.

Valuta i numeri in parole inglesi

numero doc ai mondi 3

Valuta i numeri in parole cinesi

numero doc ai mondi 4

Nota: puoi copiare e incollare i numeri di valuta in un altro foglio di lavoro prima di applicare Numbers a Words

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Review my article Million billion trillion conversion a basic number learning article that helps one to learn number system and number conversion as well.
This comment was minimized by the moderator on the site
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: () Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

Salam sejahtera,
Puan Kim
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations