, met de volgende code van de VBA, je kan de hoeveelheid geld, 1, de woorden Engels.Pers, alt + f11, open, Microsoft de visuele toepassingen, dialoog,., 2.In de, Microsoft visuele voor het indienen van aanvragen, de dialoog doos, klik, de naam, de >, Module. kopie en pasta, dan de onder code in de code, het omzetten van de VBA, naar het raam. - ja, het is een munt, functie, woorden, NumberstoWords (byval pNumber) dim dat lezen, Cents arr = - ("", "", "duizend", "miljoen", "ik", "genaamd") pNumber = - (STR (pNumber)) xDecimal = 24 (pNumber ".") als xDecimal > 0 dan Cents = GetTens (links. (pNumber, xDecimal + 1) & "00", 2 - pNumber = (links) (pNumber, xDecimal - 1)) aan het einde van xIndex = 1 doen zolang als pNumber < > "" "" xValue xHundred = = recht (pNumber, 3) als val (xValue) < > 0 dan xValue = recht ("xValue, 3 000" & als xValue. (),1, 1) < > "0", en dan xhundred = getdigit (half (xvalue, 1, 1, 1) & "naam" als op middellange termijn (xvalue, 2, 1) < > "0", en dan xhundred = xhundred & 格滕斯 (half (xvalue, 2) andere xhundred = xhundred & getdigit (half (xvalue, 3)) een einde te maken aan de als xhundred < > "en dan de dollar = xhundred & arr (xindex) & dollar als len (nummer) > 3 = (aantal en dan links, len (nummer) 3) andere =" als xindex = in het geval van xindex + 1 dollar = ring "dollar" dollar "situatie" dollar "=" dollar "de zaak anders dollar = dollarDe uiteindelijke keuze & "dollar" zaak "=" fee geen fee "in het geval van een" = "cent" cent "en" de zaak anders cent = & cent & "cent" uiteindelijk gekozen numberstowords = dollar & zonder einde functionele 格滕斯 (PTENs donkere resultaten voor de Resultaten van het touw. = "als val (links (PTENs, 1)) = 1 en de keuze van de zaak val (PTENs) Zaak C - 10: resultaten van de" Tien "zaak 11: = = = = = = =" elf "de zaak 12: resultaten =" twaalf "zaak 13:" de zaak 14: 13 = = = = = = = "" de zaak 15: 14. De resultaten van de "Tien" = zaak 16: resultaten = 16 "van" de zaak 17: = "17" de zaak 18: resultaten = "18" zaak 19: resultatenLT = "negentien" de zaak uiteindelijk kiezen voor een andere keuze, een andere val (links (PTENs, 1) Zaak 2: resultaten = "20" Zaak C - 3: resultaten = "30" - Zaak 4: resultaten = "40" geval 5: resultaten = "50" geval 6: resultaten van 60 = "" in zaak 7 = ": de resultaten van 70" zaak 8: resultaten = "80" Zaak C - 9: de resultaten van de uiteindelijke keuze = '90 "gevallen andere resultaten = resultaten & getdigit (rechts (PTENs, 1) als de ge - SI = resultaten in het einde van functionele getdigit (pdigit) de keuze van de zaak (zaak 1:getdigit val pdigit) Zaak 2:getdigit = =" "" twee "Zaak C - 3:getdigit =" drie "Zaak C - 4:getdigit =" vier "Zaak C - 5:getdigit =" vijf "Zaak C - 6:getdigit =" zes "Zaak C - 7:getdigit =" Zeven "Zaak C - 8:getdigit= "acht" Zaak C - 9:getdigit = "negen" geval: "uiteindelijk aan het einde van getdigit = kiezen,, 3.Alt + Q bond, terwijl het sluiten van Microsoft de visuele toepassingen, de dialoog.,, 4.De keuze van een lege cel (B1) om te zetten in de cel naast de tekst, in de formule = numberstowords (A1), en druk op 'enter',,.,,,,,, noot: A1 cel bevat een hoeveelheid geld.Je kan je de omstandigheden veranderen in nodig, 5.De keuze van de cel B1, sleept het vullen van de hoeveelheid geld naar beneden van de Engelse woorden.,,,,,,,, en de omrekening van de valuta 's van de woorden in de,,, kutools dit lange VBA code te ingewikkeld.Hier, ik zal je voorstellen aan een praktisch nut, gemakkelijk om dit probleem op te lossen.Met de cijfers, spellen, praktische, Excel, de omrekening van de valuta 's van de kutools, zou het geen probleem zijn.Alsjeblieft, doe de volgende.,,, kutools Excel,: van meer dan 120 gemakkelijk Excel plug, kunnen proberen om in de 30 dagen zonder beperkingen.En nu tot 60 dagen gratis, 1.Je moet kiezen om kwantitatieve monetaire cel 2.Klik, kutools, > >,, de inhoud, het aantal spellen.Kijk 's:,,,,, 3.In het spellen van digitale, de dialoog, de keuze van de keuze van het Engels, en klik, oké, of de toepassing van de knop.,,,,, en nu de geselecteerde monetaire nummers in het Engels woord, klikken, te weten de spellen van digitale, praktische, kutools uitblinken.60 dagen, of gratis downloaden.,,,,