With nedenfor VBA-kode, kan du konvertere valuta nummer til engelske ord.
1. Trykk Alt + F11 for å åpne Microsoft Visual Basic for dialog Applications boks.
2. I Microsoft Visual Basic for dialog Applications klikker Sett > Modul. Deretter kopiere og lime inn under koden i kodevinduet
VBA-kode. Konverter valuta nummer til engelske ord
Funksjons NumberstoWords (ByVal pnumber) Dim dollar, Centsarr = Array ("", "", "tusen", "Million", "Billion", "billion") pnumber = Trim (Str (pnumber)) xDecimal = InStr (pnumber,) Hvis xDecimal > »."; 0 Then Cents = GetTens (Venstre (Mid (pnumber, xDecimal + 1) & "00", 2)) pnumber = Trim (Venstre (pnumber, xDecimal - 1)) End IfxIndex = 1Do Mens pnumber < > "" XHundred = "" xVerdi = Høyre (pnumber, 3) Dersom Val (xVerdi) < > 0 Then xVerdi = Høyre ("000" & xVerdi, 3) Dersom Mid (xVerdi, 1, 1) < > "0" Så xHundred = GetDigit (Mid (xVerdi, 1, 1)) & "Hundre" End If Hvis Mid (xVerdi, 2, 1) < > "0" Så xHundred = xHundred & GetTens (Mid (xVerdi, 2)) Else xHundred = xHundred & GetDigit (Mid (xVerdi, 3)) End If End If Hvis xHundred < > "" Så Dollars = xHundred & arr (xIndex) & Dollar End If Hvis Len (pnumber) > 3 Da pnumber = Left (pnumber, Len (pnumber) - 3) Else pnumber = "" End If xIndex = xIndex + 1LoopSelect Case-dollar veske "" Dollars = "Ingen Dollars" Case "One" Dollars = "One Dollar" Case Else dollar = Dollars & "Dollar" End SelectSelect sak Cents veske "" Cents = "og ingen Cents" case "One" Cents = "og One Cent" Case Else Cents = "og" & Cent & "Cents" End SelectNumberstoWords = Dollars & CentsEnd FunctionFunction GetTens (pTens) Dim Resultat Som StringResult = "" Hvis Val (Venstre (pTens, 1)) = 1 Da Velg sak Val (pTens) Sak 10: Resultat = "Ten" Case 11: Resultat = "Eleven" Case 12 : Resultat = "Twelve" Case 13: Resultat = "Thirteen" Case 14: Resultat = "Fjorten" Case 15: Resultat = "Fifteen" Case 16: Resultat = "Sixteen" Case 17: Resultat = "Seventeen" Case 18: Resultat = "Eighteen" Case 19: Resultat = "Nitten" Case Else End SelectElseSelect sak Val (Venstre (pTens, 1)) Sak 2: Resultat = "Tjue" Case 3: Resultat = "Thirty" Case 4: Resultat = "Forty" Sak 5: Resultat = "Femti" Case 6: Resultat = "Sixty" Case 7: Resultat = "Sytti" Case 8: Resultat = "Åtti" Case 9: Resultat = "Ninety" Case ElseEnd SelectResult = Resultat & GetDigit (Høyre (pTens, 1)) End IfGetTens = ResultEnd FunctionFunction GetDigit (pDigit) Velg sak Val (pDigit) Sak 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Tre" case 4 : GetDigit = "Four" Case 5: GetDigit = "Fem" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End SelectEnd Function3. Trykk Alt + Q tastene samtidig for å lukke Microsoft Visual Basic for dialog Applications boks.
4. Velg en tom celle (B1) som ligger ved siden av cellen du ønsker å konvertere til ord, skrive inn formelen = NumberstoWords (A1), og trykk deretter på Enter-tasten
. Merk: A1 er cellen inneholder valuta nummer. Du kan endre det som du trenger.
5. Velg celle B1, drar fyllhåndtaket ned for å få alle engelske ord valutatall.

Konverter valuta til ord med Kutools for Excel
Denne lange VBA-kode virker komplisert. Her vil jeg presentere deg et praktisk verktøy for enkelt å løse dette problemet. Med stave ut Numbers nytten av Kutools for Excel, konvertere valuta til ord vil ikke være noe problem lenger. Gjør følgende
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30 dager. Få den nå i 60-dagers gratis prøveperiode
en. Velg cellene med valutaen tallene du ønsker å konvertere.
To. Klikk Kutools > Innhold > Stave ut Numbers. Se skjermbilde:
tre. I dialogboksen stave ut Numbers boksen velge, engelsk alternativet, og klikker på OK eller Bruk.
Nå de valgte valutatall er omregnet til engelske ord umiddelbart.
Klikk for å vite mer om de stave ut Numbers nytten av Kutools for Excel. Eller 60-dagers gratis prøveversjon nedlasting nå! Anmeldelser

Previous:Hvordan konvertere små bokstaver til riktig eller setning tilfellet i

Next Page:Hvordan å telle celler med spørsmålstegn i Excel