In Excel, kan du ikke raskt konvertere tallene til engelske ord unntatt VBA.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Trykk ALT + F11-tastene for å åpne Microsoft Visual Basic for Application vinduet.
2. Klikk Sett > Modul og lim under VBA til den nye modulen vindu
VBA:.. Konverter valutatall til engelske ord
Funksjon SpellNumberToEnglish (ByVal pnumber) 'Updateby20131113Dim 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 SelectSpellNumberToEnglish = 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. Deretter lagre denne koden og lukke vinduet for å gå tilbake til regnearket, og velg en tom celle type denne formelen = SpellNumberToEnglish (A2) (A2 er valutaen tall), og trykk på Enter-tasten, deretter drar fyllhåndtaket ned for å bruke denne formelen til cellene du trenger. Se skjermbilder:
Stav valutatall til ord med praktiske stave Numbers funksjon
Hvis du trenger å vanligvis konvertere tall til ord, må de ovennevnte metoden ikke er den god og praktisk måte for deg . Du kan imidlertid bruke stave ut Numbers funksjon for raskt å konvertere valutatall til engelske ord eller kinesiske ord hvis du har Kutools for Excel.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre jobbe tid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Velg valutatall og klikk Kutools > Innhold > Stave ut Numbers. Se skjermbilde:
to. I Spell Out dialog Antall, sjekk engelsk eller kinesisk alternativ som du trenger. Se skjermbilde:
tre. Klikk OK eller Bruk. Deretter valuta tallene du utvalgte har blitt konvertert til ord
Valuta tall til engelske ord
Valuta tall til kinesiske ord
. Merk: Du kan kopiere og lime inn valutatall til et annet regneark før du søker på Stav ut Numbers.
Hvis du er interessert i dette Addi-in, klikk her for å laste ned 60-dagers gratis prøveperiode.
Currency Conversion
Kutools "Currency Conversion-funksjonen gir deg den siste valutakursen, og hjelpe deg konvertere mellom multuple valutaer. For å få dette gratis nå !!!
vite mer om Currency Conversion Klikk Kutools > Innhold > Valutakonvertering for raskt å konvertere mellom to valutaer. Se skjermbilde:
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser
Kutools "Currency Conversion-funksjonen gir deg den siste valutakursen, og hjelpe deg konvertere mellom multuple valutaer. For å få dette gratis nå !!!
vite mer om Currency Conversion Klikk Kutools > Innhold > Valutakonvertering for raskt å konvertere mellom to valutaer. Se skjermbilde:
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser