Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako pretvoriti valuto v besedilo besedila v Excelu?

Pri tujih govorcih, ki angleščino uporabljajo kot svoj drugi jezik, je včasih težko neposredno spremeniti številko valute v angleške besede, č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


Preprosto pretvorite številko v angleščino v Excel z Kutools za Excel

klik Kutools > vsebina > Izgovorite številke. Kutools za Excel's Izgovorite številke pripomoček vam lahko pomaga pri pretvorbi vseh valutnih številk v angleščino v Excelu. Glejte spodnji posnetek:


puščica modra desno mehurček Pretvorite valuto v besede s kodo VBA


Z spodnjo kodo VBA lahko številko valute pretvorite 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 kode.

VBA koda: 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 za hkratno zapiranje Microsoft Visual Basic za aplikacije pogovorno okno.

4. Izberite prazno celico (B1), ki je v bližini celice, ki jo želite pretvoriti v besede, vnesite formulo = NumberstoWords (A1), nato pa pritisnite Vnesite ključ.

Opombe: A1 je celica vsebuje številko valute. Lahko ga spremenite, kot jo potrebujete.

5. Izberite celico B1, povlecite gumb za polnjenje navzdol, da dobite vse angleške besede valutnih številk.


puščica modra desno mehurček Pretvorite valuto v besede s Kutools za Excel

Ta dolga VBA koda se zdi zapletena. Tukaj vam bom predstavil priročen pripomoček za preprosto reševanje tega problema. Z Izgovorite številke uporabnost Kutools za Excel, pretvorba valute v besede ne bo več problem. Prosimo, naredite na naslednji način.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

1. Izberite celice z valutnimi številkami, ki jih želite pretvoriti.

2. klik Kutools > vsebina > Izgovorite številke. Prikaz slike:

3. V Ljubljani Izgovorite številke pogovorno okno, izberite Slovene in kliknite na OK or Uporabi gumb.

Zdaj se izbrane številke valut takoj pretvorijo v angleške besede.

Ti lahko prenesite in poskusite brezplačno preizkusiti Kutools za Excel zdaj!

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    SAINUL · 3 years ago
    currency is always in Dollar and cents, How can we change this to other currency?