Cum se convertește moneda în text cuvinte în Excel?
Pentru vorbitorii non-nativi care folosesc limba engleză ca a doua limbă, uneori este greu să schimbi direct numărul monedei în cuvinte în limba engleză atunci când numărul este prea lung. În acest articol, veți afla cum să convertiți cu ușurință moneda în textul cuvintelor în Excel.
Convertiți moneda în cuvinte cu cod VBA
Convertiți moneda în cuvinte cu Kutools pentru Excel
Convertiți moneda în cuvinte cu cod VBA
Cu codul VBA de mai jos, puteți converti numărul monedei în cuvinte în limba engleză.
1. presa Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații căsuță de dialog.
2. În Microsoft Visual Basic pentru aplicații casetă de dialog, faceți clic pe Insera > Modul. Apoi copiați și lipiți codul de mai jos în fereastra codului.
Cod VBA: convertiți numărul monedei în cuvinte în limba engleză
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. presa Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații căsuță de dialog.
4. Selectați o celulă goală (B1) care este adiacentă celulei pe care doriți să o convertiți în cuvinte, introduceți formula = NumberstoWords (A1), apoi apăsați tasta Intrați cheie.
notițe: A1 este celula care conține numărul monedei. Îl puteți schimba după cum aveți nevoie.
5. Selectați celula B1, trageți mânerul de umplere în jos pentru a obține toate cuvintele în limba engleză ale numerelor valutare.
Convertiți moneda în cuvinte cu Kutools pentru Excel
Acest cod VBA lung pare complicat. Aici vă voi prezenta un utilitar util pentru a rezolva cu ușurință această problemă. Cu Numere la cuvinte utilitatea Kutools pentru Excel, conversia monedei în cuvinte nu va mai fi o problemă. Vă rugăm să faceți următoarele.
Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.
1. Selectați celulele cu numerele valutare pe care doriți să le convertiți.
2. clic Kutools > Conţinut > Numere la cuvinte. Vedeți captura de ecran:
3. În Numere la cuvinte valutare fereastră de dialog, selectați Engleză și faceți clic pe OK or Aplică butonul.
Acum numerele valutare selectate sunt convertite imediat în cuvinte în limba engleză.
Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.
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!