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.
Exprimați numerele valutare în cuvinte cu VBA lung
Scrieți numerele valutare în cuvinte cu funcția Numere la cuvinte la îndemână
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:
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:
2. În Numere la cuvinte valutare dialog, verificați Engleză or Chineză opțiune după cum aveți nevoie. Vedeți captura de ecran:
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ă
Numere valutare către cuvinte chinezești
Notă: puteți copia și lipi numerele valutare într-o altă foaie de lucru înainte de a aplica Numere la Cuvinte
Conversia numărului valutar în cuvinte
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!