Kako pretvoriti valuto v besedilo besed v Excelu?
Za tuje govoreče, ki uporabljajo angleščino kot drugi jezik, je včasih težko neposredno spremeniti številko valute v angleško besedo, če je številka predolga. V tem članku boste izvedeli, kako enostavno pretvoriti valuto v besedilo besedila v Excelu.
Pretvorite valuto v besede s kodo VBA
Pretvorite valuto v besede s Kutools za Excel
Pretvorite valuto v besede s kodo VBA
S spodnjo kodo VBA lahko pretvorite številko valute v angleške besede.
1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije pogovorno okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije pogovorno okno, kliknite Vstavi > Modul. Nato kopirajte in prilepite spodnjo kodo v okno s kodo.
Koda VBA: Pretvorite številko valute v angleške besede
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. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije pogovorno okno.
4. Izberite prazno celico (B1), ki je ob celici, ki jo želite pretvoriti v besede, vnesite formulo = Število besed (A1)in nato pritisnite Vnesite ključ.
Opombe: A1 je celica, ki vsebuje številko valute. Lahko ga spremenite po potrebi.
5. Izberite celico B1, povlecite ročico za polnjenje navzdol, da dobite vse angleške besede številk valut.
Pretvorite valuto v besede s Kutools za Excel
Ta dolga koda VBA se zdi zapletena. Tu vam bom predstavil priročen pripomoček za enostavno rešitev te težave. Z Številke v besede uporabnost Kutools za Excel, pretvorba valute v besede ne bo več problem. Naredite naslednje.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Izberite celice s številkami valut, ki jih želite pretvoriti.
2. klik Kutools > vsebina > Številke v besede. Oglejte si posnetek zaslona:
3. V Ljubljani Številke do valutnih besed pogovorno okno, izberite Angleščina in kliknite na OK or Uporabi gumb.
Zdaj se izbrane številke valut takoj pretvorijo v angleške besede.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!