med under vba kode, du kan konvertere valuta nummer til engelsk ord.,, 1.presse, alat, + f11, åbne, microsoft visual basic for ansøgninger, dialog kasse., 2.In the, Microsoft Visual Basic for Applications, dialog box, click ,Insert, > ,Module., Then copy and paste the below code into the code window.,,,VBA code: Convert currency number to English Words,,,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" så xhundred = getdigit (mid (xvalue, 1, 1) & "100" slut hvis mid (xvalue, 2, 1) < > "0" så xhundred = xhundred & gettens (mid - xvalue, 2) andre xhundred = xhundred & getdigit (mid (xvalue, 3)), hvis hvis hvis xhundred < > "" så dollar = xhundred & arr (xindex) & dollars, hvis hvis len (pnumber) > 3 pnumber = venstre (pnumber, len (pnumber) - 3) andre pnumber = ", hvis xindex = xindex + 1 loop udvælge sag dollars" "dollars" dollars "sag" = = "dollars" en dollar "tilfælde andre dollar = dollars& "dollars" valget vælge sag cent "" cent = "og ingen cent" sag "en" cent = "og en cent" tilfælde andre cent = "og" & cent & "cent" ende udvælger numberstowords = $& cent ende fungere funktion gettens (ptens) dim resultat som snor resultat = "" hvis val (venstre (ptens, 1) = 1. herefter sag val (ptens) sag 10: resultat = "ti" sag 11: resultat = "elleve" sag 12: resultat = "tolv" sag 13: resultat = "tretten" sag 14: resultat = "fjorten tilfælde 15: resultat =" 15 "sag 16: resultat =" 16 "sag 17: resultat =" seventeen "sag 18: resultat =" 18 "sag 19: resultatlt = "nitten" anden ende vælge andre tilfælde vælge sag val (venstre (ptens, 1) 2. tilfælde: resultat = "20" sag 3: resultat = "30" sag 4: resultat = "40" sag 5: resultat = "50", sag 6: resultat = "60" sag 7: resultat = 70 "sag 8: resultat =" 80 "sag 9: resultat =" 90 "tilfælde anden ende udvælger resultat = resultat & getdigit ((ptens, 1)), hvis gettens = resultat ende fungere funktion getdigit (pdigit) udvælge sag val (pdigit) sag 1: getdigit =" en "2. tilfælde: getdigit =" to "sag 3: getdigit =" tre "sag 4: getdigit =" fire "sag 5: getdigit =" fem "sag 6: getdigit =" seks "sag 7: getdigit =" syv "sag 8: getdigit= "8" sag 9: getdigit = "ni" tilfælde andre: getdigit = "ende udvælger ende funktion, 3.presse, alat, +, q, nøgler samtidig til at lukke, microsoft visual basic for ansøgninger, dialog kasse.,, 4.vælg et tomt felt (b1), der støder op til den celle, vil du konvertere til ord ind i formlen = numberstowords (a1) og tryk så ind, nøgle.,,,,,, note: a1 er cellen indeholder valuta.du kan ændre det, som du har brug for. 5.vælg den celle, b1, trækker den fylde klare ned for at få alle engelske ord for den valuta, tal.,,,,,,,, konvertere valuta til ord med kutools for excel,,, så længe vba kode er kompliceret.jeg vil introducere dig et praktisk nytteværdi let at løse dette problem.med den, man numre, nytten af, kutools for omregning af valuta, excel, at ord vil ikke være et problem.gør som følger.,,, kutools for excel, med mere end 120 handy excel - tilføje ins, gratis prøve uden begrænsning i 30 dage.få det nu til 60 dage fri retssag,,, 1.udtage celler med valuta tal vil du konvertere., 2.klik, kutools, >, indhold, >, stave numre.se skærmbillede:,,,,, 3.i, stave numre, dialog kasse, udvælge, engelsk, valg, og klik, okay, eller anvende, button.,,,,, nu de udvalgte valuta numre er omregnet til engelsk ord straks.,, klik til at vide mere om, stave numre, nytten af, kutools for excel.eller 60 dage fri retssag downloader nu.,,,,