Í þessari grein mun ég sýna þér tvær fljótlegar og ókeypis leiðir til að umbreyta gjaldeyristölum í ensk orð í Excel 2019, 2016, 2013 og öðrum útgáfum.

Microsoft Excel er frábært forrit til að reikna út hitt og þetta. Það var upphaflega þróað til að vinna úr stórum gagnafylki. Hins vegar gerir það einnig kleift að búa til bókhaldsgögn eins og reikninga, mat eða efnahagsreikninga á fljótlegan og skilvirkan hátt.

Í meira og minna traustum greiðsluskjölum er nauðsynlegt að afrita tölugildi með orðmynd þeirra. Það er miklu erfiðara að falsa vélritaðar tölur en þær sem eru skrifaðar í höndunum. Einhver svindlari getur reynt að búa til 8000 af 3000 á meðan það er nánast ómögulegt að skipta "þrjá" út fyrir "átta".

Þannig að það sem þú þarft er ekki bara að breyta tölum í orð í Excel (t.d. 123.45 til "hundrað og tuttugu og þrír, fjörutíu og fimm"), en skrifaðu upp dollara og sent (t.d. $29,95 sem "tuttugu og níu dollarar og níutíu og níu sent" ), pund og penna fyrir GBP, evrur og evrusent fyrir EUR, o.s.frv.

Jafnvel nýjustu útgáfur af Excel eru ekki með innbyggt tól til að stafa tölur, svo ekki sé minnst á fyrri útgáfur. En það er þegar Excel er mjög gott. Þú getur alltaf bætt virkni þess með því að nota formúlur í öllum

samsetningum þeirra, VBA fjölvi eða viðbótum frá þriðja aðila.

Hér að neðan finnur þú tvær leiðir til að umbreyta tölum úr tölur í orð

Og hugsanlega gætirðu þurft að gera þaðumbreyta orðum í tölur í Excel

Athugið. Ef þú ert að leita að tölu í texta umbreytingu , sem þýðir að þú vilt að Excel sjái númerið þitt sem texta, þá er það svolítið öðruvísi. Til þess er hægt að nota TEXT fallið eða nokkrar aðrar leiðir sem lýst er í Hvernig á að breyta tölum í texta í Excel.

SpellNumber VBA fjölvi til að umbreyta tölum í orð

Eins og ég hef þegar nefnt , Microsoft vildi ekki bæta við tæki fyrir þetta verkefni. Hins vegar, þegar þeir sáu hversu margir notendur þurftu það, bjuggu þeir til og birtu sérstaka VBA fjölvi á vefsíðu sinni. Fjölvi gerir það sem nafn þess SpellNumber gefur til kynna. Öll önnur makró sem ég rakst á eru byggð á Microsoft kóðanum.

Þú getur fundið makróið sem nefnt er sem "spellnumber formúla". Hins vegar er þetta ekki formúla, heldur makrófall, eða nánar tiltekið Excel notendaskilgreint fall (UDF).

Stafnúmeravalkosturinn er fær um að skrifa dollara og sent. Ef þú þarft annan gjaldmiðil geturðu breytt " dollar " og " cent " með nafninu á þínum.

Ef þú ert ekki VBA kunnátta gaur , hér að neðan finnurðu afrit af kóðanum. Ef þú vilt samt ekki eða hefur ekki tíma til að redda þessu, vinsamlegast notaðu þessa lausn.

1. Opnaðu vinnubókina þar sem þú þarft að stafa tölurnar.
2. Ýttu á Alt +F11 til að opna Visual Basic ritstjóragluggann.
3. Ef þú ert með nokkrar bækur opnaðar skaltu athuga hvort nauðsynleg vinnubók sé virk með því að notalista yfir verkefni í efra vinstra horninu á ritlinum (einn af verkefnabókarþáttunum er auðkenndur með bláu).
4. Í ritstjóravalmyndinni farðu í Insert -> Module .
5. Þú ættir að sjá glugga sem heitir YourBook - Module1. Veldu allan kóðann í rammanum fyrir neðan og límdu hann í þennan glugga.

   Valkostur skýr 'Aðalvirkni Virka SpellNumber( ByVal MyNumber) Dimmt dollara, sent, Temp Dimmt DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 Þá Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Þá Dollars = Temp & Staður (talning) & amp; Dollars If Len(MyNumber) > 3 Þá MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "Einn Dollar" Case Else Dollars = Dollarar & amp; " Dollars" End Veldu Veldu Case Cents Case "" Cents = " og Engin Cents" Case "One" Cents = " og One Cent" Case Else Cents = " og " & Cents & amp; " Cents" End Select SpellNumber = Dollarar & Cents End Function Fall GetHundreds(ByVal MyNumber) Dim Result As String Ef Val(MyNumber) = 0 Þá Hætta fallið MyNumber = Right( "000" & MyNumber, 3) ' Umbreyttu hundruðum stað. Ef Mid(MyNumber, 1, 1) "0" Þá Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Umbreyttu tugum og einum stað. Ef Mid(MyNumber, 2, 1) "0" Þá Niðurstaða = Niðurstaða & GetTens(Mid(MyNumber, 2)) Önnur Niðurstaða = Niðurstaða & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function GetTens(TensText) Dim Result As String Result = "" ' Nullið tímabundið fallgildi. Ef Val(Left(TensText, 1)) = 1 Þá ' Ef gildi á milli 10-19… Veldu Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Ellefu" Tilvik 12: Niðurstaða = "Tólf " Mál 13: Niðurstaða = "Þrettán" Mál 14: Niðurstaða = "Fjórtán" Mál 15: Niðurstaða = "Fifteen" Mál 16: Niðurstaða = "Sextán" Mál 17: Niðurstaða = "Seventeen" Mál 18: Niðurstaða = "Átján" Mál 19: Niðurstaða = "Nítján" Case Else End Veldu Annað ' Ef gildi á milli 20-99... Veldu Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Niðurstaða = "Fjörutíu " Tilfelli 5: Niðurstaða = "Fimmtíu " Tilfelli 6: Niðurstaða = "Sextíu " Tilfelli 7: Niðurstaða = "Sjötíu " Tilfelli 8: Niðurstaða = "Áttatíu " Tilfelli 9: Niðurstaða = "Níutíu " Tilfelli Annað End Veldu niðurstöðu = Niðurstaða & GetDigit _ (Right(TensText, 1)) ' Sæktu staðinn. End If GetTens = Result End Function Fall GetDigit(Digit) Veldu CaseVal(Digit) Tilvik 1: GetDigit = "Einn" Tilfelli 2: GetDigit = "Tveir" Tilfelli 3: GetDigit = "Þrír" Tilfelli 4: GetDigit = "Fjórir" Tilfelli 5: GetDigit = "Fimm" Tilfelli 6: GetDigit = " Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else : GetDigit = "" End Select End Function

6. Ýttu á Ctrl+S til að vista uppfærða vinnubók.

   Þú þarft að endurvista vinnubókina þína. Þegar þú reynir að vista vinnubókina með fjölvi færðu skilaboðin " Ekki er hægt að vista eftirfarandi eiginleika í fjölvalausri vinnubók "

   

   Smelltu á Nei. Þegar þú sérð nýjan glugga, veldu Vista sem valkostinn. Í reitnum " Vista sem tegund " velurðu valmöguleikann " Excel macro-enabled workbook ".

   

Nota SpellNumber fjölva í vinnublöðin þín

Nú geturðu notað aðgerðina Stafnúmer í Excel skjölunum þínum. Sláðu inn =SpellNumber(A2) í reitinn þar sem þú þarft að fá töluna skrifaða í orðum. Hér er A2 heimilisfang reitsins með númerinu eða upphæðinni.

Hér má sjá niðurstöðuna:

Voila!

Afritaðu SpellNumber aðgerðina fljótt yfir í aðrar frumur.

Ef þú þarf að umbreyta allri töflunni, ekki bara 1 reit, settu músarbendilinn neðst í hægra horninu á reitnum með formúlunni þar til hún breytist í lítinn svartan kross:

Vinstri smelltu og dragðu hann yfir dálki til að fylla út formúluna. Slepptu hnappinum til að sjá niðurstöðurnar:

Athugið. Vinsamlegasthafðu í huga að ef þú notar SpellNumber með tengil á annan reit verður ritaða summan uppfærð í hvert skipti sem tölunni í frumhólfinu er breytt.

Þú getur líka slegið töluna beint inn í fallið, þ. dæmi, =SpellNumber(29.95) (29,95 - án gæsalappa og dollaratáknið).

Ókostir við að nota makró til að stafa tölur í Excel

Í fyrsta lagi verður þú að kunna VBA til að breyta kóðanum í samræmi við þitt þarfir. Það er nauðsynlegt að líma kóðann fyrir hverja vinnubók, þar sem þú ætlar að breyta honum. Annars þarftu að búa til sniðmátsskrá með fjölvi og stilla Excel til að hlaða þessari skrá við hverja byrjun.

Helsti ókosturinn við að nota fjölva er að ef þú sendir vinnubókina til einhvers annars mun þessi manneskja ekki sjá textann nema makróið sé innbyggt í vinnubókina. Og jafnvel þótt það sé innbyggt, munu þeir fá viðvörun um að það séu fjölvi í vinnubókinni.

Stafa tölur í orð með sérstakri viðbót

Fyrir Excel notendur sem þurfa að stafa tölur hratt en hafa ekki tíma til að læra VBA eða finna út lausnir, bjuggum við til sérstakt tól sem getur fljótt framkvæmt umreikning upphæðar í orð fyrir nokkra vinsæla gjaldmiðla. Vinsamlegast upplifðu Spell Number viðbótina sem fylgir nýjustu útgáfunni af Ultimate Suite fyrir Excel.

Auk þess að vera tilbúið til notkunar er tólið mjög sveigjanlegt við að umbreyta upphæðum í texta:

• Þú getur valið eitt afeftirfarandi gjaldmiðla: USD, EUR, GBP, BIT, AUD.
• Stafaðu brotahlutann í sentum, smápeningum eða bitcentum.
• Veldu hvaða texta sem er fyrir niðurstöðuna: lágstafi, HÁSTÖF , Titill há- eða hástafir.
• Stafaðu aukastaf á mismunandi vegu.
• Ta með eða sleppa núll sent.

Viðbótin styður alla nútímalega útgáfur þar á meðal Excel 365, Excel 2029, Excel 2016, Excel 2013 og Excel 2010. Vinsamlegast ekki hika við að kanna aðra möguleika á heimasíðu vörunnar sem tengist hér að ofan.

Og nú skulum við sjá þetta stafsetningartól fyrir tölustafi í aðgerð :

1. Veldu tóman reit fyrir niðurstöðuna.
2. Á flipanum Ablebits , í Utilities hópnum, smelltu á Stafanúmer .
3. Í glugganum Lekanúmer sem birtist skaltu stilla eftirfarandi hluti:
   • Fyrir Veldu númerið þitt reitinn , veldu reitinn sem inniheldur upphæðina sem þú vilt fá skrifað sem texta.
   • Tilgreinið æskilegan nú , stöfum og hvernig tugastafurinn er hluti tölunnar á að stafa.
   • Skilgreinið hvort eigi að innihalda núll sent eða ekki.
   • Veldu hvort setja eigi niðurstöðuna inn sem gildi eða formúlu.
4. Neðst í glugganum, forskoða niðurstöðuna. Ef þú ert ánægður með hvernig númerið þitt er skrifað skaltu smella á Stafa . Annars skaltu prófa aðrar stillingar.

Skjámyndin hér að neðan sýnir sjálfgefiðval og stafsett númerið í B2. Vinsamlega takið eftir formúlu (nánar tiltekið, notendaskilgreint fall) í formúlustikunni:

Og þetta er fljótleg sýning á því hvernig hægt er að skrifa aðra gjaldmiðla:

Ábendingar og athugasemdir:

• Þar sem Stafnúmer viðbótin var hönnuð til að takast á við raunveruleg notkunartilvik eins og reikninga og önnur fjárhagsskjöl, getur hún aðeins umbreytt einni tölu í einu.
• Til að stafa dálk með tölum , setjið formúlu inn í fyrsta reitinn og afritaðu síðan formúluna niður.
• Ef líkur eru á því að Upprunagögnin þín gætu breyst í framtíðinni, það er best að setja niðurstöðuna inn sem formúlu , svo hún uppfærist sjálfkrafa þegar upprunalega talan breytist.
• Þegar þú velur niðurstöðuna sem formúlu valkostur, sérsniðin notendaskilgreind aðgerð (UDF) er sett inn. Ef þú ætlar að deila vinnubókinni þinni með einhverjum sem er ekki með Ultimate Suite uppsetta skaltu muna að skipta út formúlum fyrir gildi áður en þú deilir.

Undirbreyting - Ensk orð í tölur

Í hreinskilni sagt , Ég get ekki ímyndað mér hvers vegna þú gætir þurft þess. Bara ef... :)

Það virðist sem Excel MVP, Jerry Latham, hafi búið til Excel User defined aðgerð (UDF) sem WordsToDigits . Það breytir enskum orðum aftur í númer.

Þú getur halað niður Jerry's WordsToDigits vinnubók til að sjá UDF kóðann. Hér finnur þú líka dæmi hans um hvernig á að notavirka.

Þú getur séð hvernig aðgerðin virkar á blaðinu " Sample Entries ", þar sem þú munt einnig geta sett inn eigin dæmi. Ef þú ætlar að nota WordsToDigits í skjölunum þínum, vinsamlegast upplýstu að þessi aðgerð hefur takmarkanir. Til dæmis þekkir það ekki brot sem slegin eru inn í orðum. Þú finnur allar upplýsingar á blaðinu " Upplýsingar ".