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

Cum puteți converti rapid numerele valutare în cuvinte în Excel?

Să presupunem că aveți o serie de numere de monedă necesare pentru a converti în text cuvinte în Excel și aveți trucuri rapide pentru a o rezolva rapid? Acum, acest tutorial vă arată câteva modalități ușoare de a converti mai multe numere valutare în cuvinte în limba engleză simultan în Excel.

doc numărul monedei până la cuvântul 1

Exprimați numerele valutare în cuvinte cu VBA lung

Scrieți numerele valutare în cuvinte cu funcția Numere la cuvinte la îndemână idee bună3


Exprimați numerele valutare în cuvinte cu VBA lung

În Excel, nu puteți converti rapid numerele în cuvinte în limba engleză, cu excepția VBA.

1. presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.

2. clic Insera > Module și lipiți mai jos VBA la nou Module fereastră.

VBA: convertiți numerele valutare în cuvinte în limba engleză.

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. Apoi salvați acest cod și închideți fereastra pentru a reveni la foaia de lucru și selectați o celulă goală tastați această formulă = SpellNumberToEnglish (A2) (A2 reprezintă numerele valutare) și apăsați Intrați tasta, apoi glisați mânerul de umplere în jos pentru a aplica această formulă celulelor de care aveți nevoie. Vedeți capturi de ecran:

doc numărul monedei până la cuvântul 2
doc săgeată în jos
doc numărul monedei până la cuvântul 1

Scrieți numerele de monedă cu cuvinte cu funcția la îndemână Spell Out Numbers

Dacă de obicei trebuie să convertiți numerele în cuvinte, metoda de mai sus nu trebuie să fie calea bună și convenabilă pentru dvs. Cu toate acestea, puteți utiliza fișierul Numere la cuvinte funcție pentru a converti rapid numerele valutare în cuvinte în limba engleză sau în chineză, dacă aveți Kutools pentru Excel.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați numerele valutare și faceți clic pe Kutools > Conţinut > Numere la cuvinte. Vedeți captura de ecran:

doc numărul monedei până la cuvântul 7

2. În Numere la cuvinte valutare dialog, verificați Engleză or Chineză opțiune după cum aveți nevoie. Vedeți captura de ecran:

numărul doc în lumile 2

3. clic Ok or Aplică. Apoi numerele valutare pe care le-ați selectat au fost convertite în cuvinte.

Numere valutare către cuvinte în limba engleză

numărul doc în lumile 3

Numere valutare către cuvinte chinezești

numărul doc în lumile 4

Notă: puteți copia și lipi numerele valutare într-o altă foaie de lucru înainte de a aplica Numere la Cuvinte


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (2)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hai, Kim Morse, pemberi pinjaman wang persendirian. (Cod 360)
Kami menyediakan pinjaman dengan kadar faedah 2% setahun și dalam jumlah $ 10,000.00 hingga $ 500,000.00 și € 10,000.00 hingga € 500,000.00 sebagai tawaran pinjaman. Projek 100% yang dibiayai dengan pinjaman bercagar și tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej credit yang flexibilel, pinjaman boleh diproses dana dipindahkan kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individual 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.
Starea perkahwinan spune:
Alamat:
Bandar:
dan Negeri / Wilayah:
Cod pos /
Negara:
Telefon:
Email saya:
dengan tujuan pinjaman:
Jumlah pinjaman:
Tempoh pinjaman:
Pendapatan bulanan anda:
Hubungi pegawai pinjaman Prin e-mail: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

Salam sejahtera,
Puan Kim
Acest comentariu a fost redus la minimum de moderatorul de pe site
Revizuiți articolul meu Conversie de milioane de miliarde de trilioane un articol de bază pentru învățarea numerelor care vă ajută să învățați și sistemul de numere și conversia numerelor.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL