, efter lange vba kode kan hjælpe dig med at præcisere antallet til tekst tråde.gør som følger:,,,.,.hold den, alat + f11, nøgler, og det åbner, microsoft visual basic for ansøgninger, vindue.,,,. 2.Click ,Insert, >, Module,, and paste the following macro in the, Module,window.,,Function SpellNumberToEnglish(ByVal pNumber) 'Updateby20131113 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 "hvis 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 = "ingen dollars" sag ", en" dollars = "en dollar" tilfælde andre dollar = $& "dollars" valget vælge sag cent "" cent = "og ingen cent.""en" cent = "og en cent" tilfælde andre cent = "og" & cent & "cent" ende udvælger spellnumbertoenglish = $& cent ende fungere funktion gettens (ptens) dim resultat som snor resultat = "" hvis val (venstre (ptens, 1) = 1 så vælg 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: resultat =" nitten "tilfælde andre ende vælge andre særlige tilfælde val (venstre (ptens, 1)) sag 2: 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 =" - "sagen 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 "tilfælde 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 endefunktion, 3.så gem den kode, og vende tilbage til den arbejdsplan, i det tilstødende celle, e1, ind i formlen, = spellnumbertoenglish (d1), se skærmbillede:,,,,,,. 4.så tryk ind, centrale og vælge den celle, e1, så trækker de udfylde klare over for det interval, der indeholder denne formel, som du har brug for.og alle numrene er blevet præciseret, at engelsk ord.se skærmbillede:,,,,,, note, som er de formler, når du har brug for til at kopiere og pasta dem pasta som værdier.,,,,, stave eller konvertere tal engelsk ord med kutools for excel, måske over lang kode kan gøre dig vred, bekymre dig ikke, jeg kan give dig en let og hurtig måde at løse det. med, kutools for excel, er tydeligt numre, funktion, kan du hurtigt og hensigtsmæssigt konvertere antallet til tekst i.,,, kutools for excel, omfatter mere end 120 handy excel - regneark.gratis prøve uden begrænsning i 30 dage.få det nu,.,,, når du har installeret kutools for excel, gør følgende:,,,.,.vælg de tal, som de ønsker at skære ud i pap.,,,. 2.klik, kutools, >, indhold, >, stave numre.se skærmbillede:,,,,,, 3.i, stave numre, dialog kasse, vælge engelsk fra, sprog.og du kan se resultaterne fra højre, forpremiere rude.se skærmbillede:,,,,,,. 4.så klik, - eller anvendelse.og alle de pris antal er blevet omregnet til tekst tråde i den oprindelige rækkevidde.,,,,,, hvis du har brug for den kinesiske pris ord klik, kinesiske, valg af sprog,.,,, klik, tal til at vide mere om dette aspekt,.,,,