Սումա՝ կուրսիվ

Ստորև դուք կգտնեք VBA-ում օգտագործողի կողմից սահմանված պատրաստի ֆունկցիա, որը թարգմանում է ցանկացած թիվ - ից մինչեւ 0 9 իր տեքստային ներկայացման մեջ, այսինքն՝ բառերի չափով։ Օգտագործելուց առաջ այս գործառույթը պետք է ավելացվի ձեր գրքում: Սրա համար:

1. սեղմեք ստեղնաշարի դյուրանցումը ALT + F11Visual Basic խմբագիր բացելու համար
2. ավելացնել նոր դատարկ մոդուլ մենյուի միջոցով Ներդիր – մոդուլ
3. պատճենեք և տեղադրեք այս ֆունկցիայի տեքստը այնտեղ.

SUM(n որպես կրկնակի) ֆունկցիա որպես տող Dim Nums1, Nums2, Nums3, Nums4 Որպես Տարբերակ Nums1 = Array("", "մեկ", "երկու", "երեք", "չորս", "հինգ", "վեց", «յոթ», «ութ», «ինը») Nums2 = Զանգված (»», «տասը», «քսան», «երեսուն», «քառասուն», «հիսուն», «վաթսուն», «յոթանասուն», _ «ութսուն» ", "իննսուն") Nums3 = Array("", "հարյուր", "երկու հարյուր", "երեք հարյուր", "չորս հարյուր", "հինգ հարյուր", "վեց հարյուր", "յոթ հարյուր", _ " ութ հարյուր», «ինը հարյուր») Nums4 = Զանգված (»», «մեկ», «երկու», «երեք», «չորս», «հինգ», «վեց», «յոթ», «ութ», «ինը» ") Nums5 = Array("տասը" , "տասնմեկ", "տասներկու", "տասներեք", "տասնչորս", _ "տասնհինգ", "տասնվեց", "տասնյոթ", "տասնութ", "տասնինը") Եթե n < = 0 Այնուհետև SUMWRITE = «զրո» Ելք ֆունկցիայի ավարտը Եթե 'թիվը թվերի բաժանեք՝ օգտագործելով օժանդակ ֆունկցիան Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'ստուգել միլիոններ Ընտրել Case decmil Case 1 mil_txt = Nums5(mil ) & «միլիոնավոր « GoTo www Case 2 To 9 decmil_txt = Nums2 (decmil) Վերջ Ընտրել Ընտրել Case mil Case 1 mil_txt = Nums1(mil) & «million» Case 2, 3, 4 mil_txt = Nums1(mil) & «million» Case 5 To 20 mil_txt = Nums1(mil) & "millions " End Ընտրել www. sottys_txt = Nums3(sottys) ' ստուգել հազարավոր Ընտրել Case dectys Case 1 tys_txt = Nums5(tys) & "հազարներ" GoTo eee Case 2 To 9 dectys_2(dtxt) Nums Վերջ Ընտրել Ընտրել Case tys Case 0 If dectys > 0 Այնուհետեւ tys_txt = Nums4(tys) & "thousands" Case 1 tys_txt = Nums4(tys) & "thousand" Case 2, 3, 4 tys_txt = Nums4(tys) & "thous Դեպք 5 Մինչև 9 tys_txt = Nums4(tys) & "հազարներ" Վերջ Ընտրել Եթե dectys = 0 Եվ tys = 0 Եվ sottys <> 0 Ապա sottys_txt = sottys_txt & "հազարներ" eee: sot_txt = Nums3(sot) Ընտրել Caseck dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 Մինչև 9 dec_txt = Nums2(dec) Վերջ Ընտրել ed_txt = Nums1 (ed) rrr. tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' օգնական ֆունկցիա՝ թվանշանների քանակից հանելու համար Մասնավոր ֆունկցիայի դաս (M, I) Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1)) Վերջի ֆունկցիա    

Պահեք ֆայլը (եթե ունեք Excel 2007 կամ 2010, ապա ֆայլի տեսակը պետք է լինի մակրո-միացված, այսինքն xlsm ֆորմատ!) և վերադարձեք Excel: Այժմ դուք կարող եք տեղադրել ստեղծված գործառույթը աշխատաթերթի ցանկացած բջիջի մեջ սովորական եղանակով՝ ֆունկցիայի մոգերի միջոցով (կոճակ f_x բանաձևի տողում, կատեգորիա Օգտագործողը սահմանվում է) կամ պարզապես ձեռքով մուտքագրելով այն բջիջում և որպես արգումենտ նշելով բջիջը՝

Եթե ​​Ձեզ անհրաժեշտ է կոպեկներ ավելացնել ստացված տեքստին, ապա կարող եք օգտագործել մի փոքր ավելի բարդ կառուցվածք.

 u3d ԳՈՒՄԱՐԸ ԳՐԵՐՈՎ (A3) & ” ռուբ. «&TEXT((A3-INTEGER(A100))*00;»XNUMX″)&»ոստիկան»: 

u3d ԳՈՒՄԱՐԸ ԳՐԵՐՈՎ (A3) & ” ռուբ. «&TEXT((A3-INT(A100))*00;»XNUMX″)&»ոստիկան»:

Այնուհետև, օրինակ, 35,15 համարի համար ֆունկցիայի արդյունքը նման կլինի «երեսունհինգ ռուբլի: 15 կոպ»։

• Գործառույթի ավելի հզոր տարբերակը ռուբլով և կոպեկներով / անգլերենով PLEX հավելումից
• Ինչ են մակրոները, որտեղ տեղադրել մակրո կոդը, ինչպես օգտագործել դրանք