Այս հոդվածում ես ձեզ ցույց կտամ արժույթի թվերը անգլերեն բառերի փոխարկելու երկու արագ և անվճար եղանակներ Excel 2019, 2016, 2013 և այլ տարբերակներում:

Microsoft Excel-ը հիանալի տարբերակ է: այս ու այն հաշվարկելու ծրագիր։ Այն ի սկզբանե մշակվել է տվյալների մեծ զանգվածներ մշակելու համար: Այնուամենայնիվ, այն նաև թույլ է տալիս արագ և արդյունավետ կերպով ստեղծել հաշվապահական գրառումներ, ինչպիսիք են հաշիվ-ապրանքագրերը, գնահատումները կամ հաշվեկշիռները:

Քիչ թե շատ ամուր վճարային փաստաթղթերում անհրաժեշտ է կրկնօրինակել թվային արժեքները իրենց բառային ձևով: Մուտքագրված թվերը կեղծելը շատ ավելի դժվար է, քան ձեռքով գրվածները։ Որոշ խարդախներ կարող են փորձել 3000-ից 8000-ը կազմել, մինչդեռ գրեթե անհնար է գաղտնի «երեք»-ը փոխարինել «ութ»-ով:

Այնպես որ ձեզ հարկավոր է ոչ միայն թվերը բառերի վերածել Excel-ում (օրինակ՝ 123.45 «հարյուր քսաներեք, քառասունհինգ»), բայց գրեք դոլար և ցենտ (օրինակ՝ 29,95 դոլար որպես «քսանինը դոլար և իննսունինը ցենտ» ), ֆունտ և պենս՝ ֆունտ ստեռլինգով, եվրո և եվրոցենտ՝ եվրոյով և այլն:

Նույնիսկ Excel-ի վերջին տարբերակները չունեն թվերի ուղղագրության ներկառուցված գործիք, էլ չեմ խոսում ավելի վաղ տարբերակների մասին: Բայց դա այն դեպքում, երբ Excel-ը իսկապես լավն է: Դուք միշտ կարող եք բարելավել դրա ֆունկցիոնալությունը՝ օգտագործելով բանաձևերն իրենց բոլոր

համակցումներով, VBA մակրոներով կամ երրորդ կողմի հավելումներով:

Ստորև դուք կգտնեք թվեր փոխարկելու երկու եղանակ թվեր բառերով

Եվ, հնարավոր է, ձեզ անհրաժեշտ լինիExcel-ում բառերը վերածել թվերի

Նշում. Եթե ​​դուք փնտրում եք թիվը տեքստի փոխակերպում , ինչը նշանակում է, որ ցանկանում եք Excel-ում ձեր համարը տեսնել որպես տեքստ, դա մի փոքր այլ բան է: Դրա համար կարող եք օգտագործել TEXT ֆունկցիան կամ մի քանի այլ եղանակներ, որոնք նկարագրված են «Ինչպես փոխել թվերը Excel-ում տեքստի» բաժնում:

SpellNumber VBA մակրո՝ թվերը բառերի փոխարկելու համար

Ինչպես արդեն նշեցի , Microsoft-ը չէր ցանկանում գործիք ավելացնել այս առաջադրանքի համար: Սակայն, երբ նրանք տեսան, թե քանի օգտատերերի կարիք ունի, նրանք ստեղծեցին և իրենց կայքում հրապարակեցին հատուկ VBA մակրոն։ Մակրոն անում է այն, ինչ հուշում է իր անունը SpellNumber: Բոլոր մյուս մակրոները, որոնք ես հանդիպեցի, հիմնված են Microsoft-ի կոդի վրա:

Դուք կարող եք գտնել մակրո, որը նշված է որպես «ուղղագրության համարների բանաձև»: Այնուամենայնիվ, դա ոչ թե բանաձև է, այլ մակրո ֆունկցիա, կամ ավելի ստույգ Excel User-ի կողմից սահմանված գործառույթ (UDF):

Ուղղագրության համարի տարբերակը կարող է գրել դոլար և ցենտ: Եթե ​​ձեզ այլ արժույթ է անհրաժեշտ, կարող եք փոխել « դոլար » և « ցենտ » ձեր արժույթի անունով:

Եթե դուք VBA-ի խելացի տղա չեք: , ստորև դուք կգտնեք կոդի պատճենը: Եթե ​​դեռ չեք ցանկանում կամ ժամանակ չունեք դա կարգավորելու, խնդրում ենք օգտագործել այս լուծումը:

1. Բացեք աշխատանքային գրքույկը, որտեղ դուք պետք է գրեք թվերը:
2. Սեղմեք Alt: +F11 Visual Basic խմբագրիչի պատուհանը բացելու համար:
3. Եթե ունեք բացված մի քանի գրքեր, ստուգեք, որ անհրաժեշտ աշխատանքային գիրքն ակտիվ է` օգտագործելովխմբագրիչի վերին ձախ անկյունում գտնվող նախագծերի ցանկը (աշխատանքային գրքի տարրերից մեկը ընդգծված է կապույտով):
4. Խմբագրի ընտրացանկում անցեք Տեղադրել -> Մոդուլ .
5. Դուք պետք է տեսնեք «YourBook - Module1» անունով պատուհան: Ընտրեք ներքևի շրջանակում գտնվող բոլոր կոդը և տեղադրեք այն այս պատուհանում:

   Բացահայտ տարբերակ «Հիմնական ֆունկցիայի գործառույթը SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim Decimal Place, Count ReDim Place(9) As String Place(2) = «Housand» Place(3) = «Million» Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 Հետո ցենտներ = GetTens (Ձախ (Միջ (Իմ համարը, տասնորդական տեղ + 1) & _ «00», 2)) Իմ համարը = կտրել (Ձախ (Իմ համարը, տասնորդական տեղ - 1)) Ավարտ, եթե Հաշվել = 1 Կատարել իմ համարը «» ջերմաստիճանում = GetHundreds (Right (MyNumber, 3)) Եթե Temp "" Ապա Dollars = Temp & AMP; Տեղ (հաշվարկ) & 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 = "One Dollar" Case Else Dollars = Dollars & AMP; " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Ցենտ & AMP; « Cents» Վերջ Ընտրել SpellNumber = դոլար & AMP; Cents End ֆունկցիայի GetHundreds (ByVal MyNumber) Dim արդյունքը որպես տող Եթե Val(MyNumber) = 0 Ապա Դուրս եկեք MyNumber ֆունկցիայից = Right( "000" & amp; MyNumber, 3) ' Փոխարկեք հարյուրավոր տեղը: Եթե ​​Mid(MyNumber, 1, 1) "0" Ապա Արդյունք = GetDigit(Mid(MyNumber, 1, 1)) & «Հարյուր» Ավարտը, եթե «Փոխակերպեք տասնյակները և միավորները: Եթե ​​Mid(MyNumber, 2, 1) «0» Ապա Արդյունք = Արդյունք & amp; GetTens(Mid(MyNumber, 2)) Այլ արդյունք = Արդյունք & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Արդյունք Ավարտ Ֆունկցիան GetTens(TensText) Dim Result As String Result = "" ' Չեղարկեք ժամանակավոր ֆունկցիայի արժեքը: Եթե ​​Val(Left(TensText, 1)) = 1 Ապա 'Եթե արժեքը 10-19-ի միջև… Ընտրեք Case Val(TensText) Դեպք 10: Արդյունք = «Տասը» Դեպք 11: Արդյունք = «Տասնմեկ» Դեպք 12: Արդյունք = «Տասներկու». Դեպք 13. Արդյունք = «Տասներեք» Դեպք 14. Արդյունք = «Տասնչորս» Դեպք 15. Արդյունք = «Տասնհինգ» Դեպք 16. Արդյունք = «Տասնվեց» Դեպք 17. Արդյունք = «Տասնյոթ» Դեպք 18. Արդյունք = «Տասնութ» դեպք. 19. Արդյունք = «Տասնինը» Դեպք Այլ Վերջ Ընտրել Այլ «Եթե արժեքը 20-99-ի միջև… Ընտրեք Case Val(Left(TensText, 1)) Դեպք 2. Արդյունք = «Twenty» Դեպք 3. Արդյունք = «Երեսուն» Դեպք 4: Արդյունք = «Քառասուն» Դեպք 5. Արդյունք = «Հիսուն» Դեպք 6. Արդյունք = «Վաթսուն» Դեպք 7. Արդյունք = «Յոթանասուն» Դեպք 8. Արդյունք = «Ութսուն» Դեպք 9. Արդյունք = «Իննսուն» Դեպք Այլ Վերջ Ընտրել արդյունք = Արդյունք & AMP; GetDigit _ (Right(TensText, 1)) ' Վերցրեք նրանց տեղը: End If GetTens = Արդյունք Ավարտ Ֆունկցիան Գործառույթ GetDigit(Թվանշան) Ընտրեք CaseVal(Թվանշան) Դեպք 1. GetDigit = «Մեկ» Դեպք 2. GetDigit = «Երկու» Դեպք 3. GetDigit = «Երեք» Դեպք 4. GetDigit = «Չորս» Դեպք 5. GetDigit = «Հինգ» Դեպք 6. GetDigit = « Վեց» դեպք 7. GetDigit = «Յոթ» Դեպք 8. GetDigit = «Ութ» դեպք 9. GetDigit = «Ինը» դեպք Ուրիշ. թարմացված աշխատանքային գրքույկը պահպանելու համար:

   Դուք պետք է նորից պահեք ձեր աշխատանքային գրքույկը: Երբ փորձում եք պահպանել աշխատանքային գիրքը մակրոյով, դուք կստանաք հաղորդագրություն « Հետևյալ հնարավորությունները չեն կարող պահպանվել մակրո ազատ աշխատանքային գրքում »

   

   Սեղմեք No. Երբ տեսնեք. նոր երկխոսություն, ընտրեք Պահել որպես տարբերակը: « Պահպանել որպես տեսակ » դաշտում ընտրեք « Excel մակրո-միացված աշխատանքային գրքույկ » տարբերակը։

   

Օգտագործեք SpellNumber մակրո ձեր աշխատաթերթերը

Այժմ կարող եք օգտագործել SpellNumber ֆունկցիան ձեր Excel փաստաթղթերում: Մուտքագրեք =SpellNumber(A2) այն բջիջը, որտեղ դուք պետք է ստանաք բառերով գրված թիվը: Այստեղ A2-ը թվով կամ գումարով բջիջի հասցեն է:

Այստեղ կարող եք տեսնել արդյունքը.

Voila!

Արագ պատճենեք SpellNumber ֆունկցիան այլ բջիջներում:

Եթե դուք պետք է փոխարկեք ամբողջ աղյուսակը, ոչ միայն 1 բջիջ, մկնիկի կուրսորը դրեք բանաձևով բջիջի ստորին աջ անկյունում, մինչև այն վերածվի փոքր սև խաչի.

Ձախ սեղմեք և քաշեք այն սյունակ՝ բանաձևը լրացնելու համար: Արդյունքները տեսնելու համար բաց թողեք կոճակը.

Նշում. Խնդրում եմՀիշեք, որ եթե դուք օգտագործում եք SpellNumber-ը մեկ այլ բջիջի հղումով, գրված գումարը կթարմացվի ամեն անգամ, երբ սկզբնաղբյուր բջիջի թիվը փոխվի:

Դուք կարող եք նաև մուտքագրել թիվը անմիջապես ֆունկցիայի մեջ, օրինակ՝ =SpellNumber(29.95) (29.95 - առանց չակերտների և դոլարի նշանի):

Excel-ում թվերը գրելու համար մակրո օգտագործելու թերությունները

Նախ, դուք պետք է իմանաք VBA՝ կոդը ըստ ձեր փոփոխության: կարիքները. Անհրաժեշտ է տեղադրել յուրաքանչյուր աշխատանքային գրքի կոդը, որտեղ նախատեսում եք փոխել այն։ Հակառակ դեպքում, դուք պետք է ստեղծեք ձևանմուշ ֆայլ մակրոներով և կարգավորեք Excel-ը՝ այս ֆայլը յուրաքանչյուր սկզբում բեռնելու համար:

Մակրո օգտագործելու հիմնական թերությունն այն է, որ եթե աշխատանքային գիրքը ուղարկեք մեկ ուրիշին, այս անձը չի անի: տեսեք տեքստը, եթե մակրոները ներկառուցված չեն աշխատանքային գրքում: Եվ եթե նույնիսկ այն ներկառուցված է, նրանք ահազանգ կստանան, որ աշխատանքային գրքում մակրոներ կան:

Ուղղագրեք թվերը բառերի միջոցով՝ օգտագործելով հատուկ հավելում

Excel-ի օգտատերերի համար, ովքեր պետք է արագ տառադարձեն գումարները, բայց ժամանակ չունեն VBA սովորելու կամ լուծումներ գտնելու համար, մենք ստեղծել ենք հատուկ գործիք: որը կարող է արագ կատարել մի քանի հանրաճանաչ արժույթների քանակի բառերի փոխարկումը: Խնդրում ենք ծանոթանալ Spell Number հավելվածին, որը ներառված է Excel-ի համար նախատեսված մեր Ultimate Suite-ի վերջին թողարկման մեջ:

Բացի օգտագործման համար պատրաստ լինելուց, գործիքն իսկապես ճկուն է գումարները տեքստի փոխակերպելու հարցում.

• Դուք կարող եք ընտրել որևէ մեկըՀետևյալ արժույթները՝ USD, EUR, GBP, BIT, AUD:
• Կոտորակային մասը գրեք ցենտներով, կոպեկներով կամ բիթցենտներով:
• Արդյունքի համար ընտրեք ցանկացած տեքստային մեծատառ՝ փոքրատառ, մեծատառ , վերնագրի մեծատառ կամ նախադասություն:
• Տասական մասը գրեք տարբեր ձևերով:
• Ներառեք կամ բաց թողեք զրո ցենտ:

Հավելվածն աջակցում է բոլոր ժամանակակիցներին: տարբերակները, ներառյալ Excel 365, Excel 2029, Excel 2016, Excel 2013 և Excel 2010: Խնդրում ենք ազատ զգալ ուսումնասիրել այլ հնարավորություններ արտադրանքի վերևում գտնվող գլխավոր էջում:

Եվ հիմա, եկեք տեսնենք այս թվերի ուղղագրության ծրագիրը գործողության մեջ: :

1. Ընտրեք դատարկ բջիջ արդյունքի համար:
2. Ablebits ներդիրում, Կոմունալ ծառայություններ խմբում սեղմեք Spell Number :
3. Spill Number , որը երևում է երկխոսության պատուհանում, կազմաձևեք հետևյալ բաները.
   • Ընտրեք ձեր համարը տուփի համար: , ընտրեք այն բջիջը, որը պարունակում է այն քանակությունը, որը ցանկանում եք ստանալ որպես տեքստ:
   • Նշեք ցանկալի ներկայումս , տառի մեծատառը և տասնորդականի ձևը: թվի մասը պետք է գրվի:
   • Սահմանեք՝ ներառե՞լ զրո ցենտ, թե՞ ոչ:
   • Ընտրեք՝ մուտքագրել արդյունքը որպես արժեք կամ բանաձև:
4. Երկխոսության պատուհանի ներքևում, նախադիտեք արդյունքը: Եթե ​​գոհ եք ձեր համարի գրառման ձևից, սեղմեք Ուղղագրություն : Հակառակ դեպքում փորձեք տարբեր կարգավորումներ:

Սքրինշոթը ստորև ցույց է տալիս կանխադրվածըընտրությունները և B2-ում գրված թիվը: Խնդրում ենք ուշադրություն դարձնել բանաձևի (ավելի ճիշտ՝ օգտագործողի կողմից սահմանված ֆունկցիայի) բանաձևերի տողում.

• Քանի որ Spell Number հավելումը նախատեսված է իրական կյանքում օգտագործման դեպքերը լուծելու համար, ինչպիսիք են հաշիվ-ապրանքագրերը և այլ ֆինանսական փաստաթղթերը, այն կարող է փոխակերպել միայն մեկ թիվը միաժամանակ:
• թվերի սյունակ գրելու համար , տեղադրեք բանաձև առաջին բջիջում, այնուհետև պատճենեք բանաձևը:
• Եթե կա հնարավորություն, որ Ձեր սկզբնաղբյուրի տվյալները կարող են փոխվել ապագայում, ավելի լավ է մուտքագրեք արդյունքը որպես բանաձև , այնպես որ այն ինքնաբերաբար թարմացվում է սկզբնական համարի փոփոխության հետ մեկտեղ:
• Արդյունքը որպես բանաձև ընտրելիս 2>տարբերակ, տեղադրվում է հատուկ օգտագործողի կողմից սահմանված ֆունկցիա (UDF): Եթե ​​նախատեսում եք ձեր աշխատանքային գրքույկը կիսել մեկի հետ, ով չունի Ultimate Suite-ը տեղադրված, հիշեք, որ նախքան համօգտագործումը փոխարինեք բանաձևերը արժեքներով:

Հակադարձ փոխակերպում - անգլերեն բառերը թվերի

Անկեղծ ասած , ես չեմ կարող պատկերացնել, թե ինչու կարող է դա ձեզ անհրաժեշտ լինել: Ամեն դեպքում… :)

Երևում է, որ Excel MVP-ն՝ Ջերի Լաթամը, ստեղծել է Excel User-ի կողմից սահմանված գործառույթ (UDF), ինչպես WordsToDigits : Այն անգլերեն բառերը վերածում է թվի:

Դուք կարող եք ներբեռնել Jerry's WordsToDigits աշխատանքային գիրքը՝ UDF կոդը տեսնելու համար: Այստեղ դուք կգտնեք նաև նրա օրինակները, թե ինչպես օգտագործել այնֆունկցիան։

Դուք կարող եք տեսնել, թե ինչպես է գործում գործառույթը « Նմուշների նմուշներ » թերթում, որտեղ կարող եք նաև մուտքագրել ձեր սեփական օրինակները: Եթե ​​նախատեսում եք օգտագործել WordsToDigits-ը ձեր փաստաթղթերում, տեղեկացրեք, որ այս գործառույթը սահմանափակումներ ունի: Օրինակ, այն չի ճանաչում բառերով մուտքագրված կոտորակները: Բոլոր մանրամասները կգտնեք « Տեղեկություններ » թերթում: 3>