سوما په کرسیو کې

لاندې به تاسو په VBA کې د کارونکي لخوا ټاکل شوي چمتو شوي فنکشن ومومئ کوم چې هر شمیره ژباړي له 0 ته 9 په متني نمایش کې، د بیلګې په توګه په کلمو کې مقدار کې. د کارولو دمخه، دا فنکشن باید ستاسو په کتاب کې اضافه شي. د دى لپاره:

1. د کیبورډ شارټ کټ فشار ورکړئ ALT + F11د بصری اساسی مدیر خلاصولو لپاره
2. د مینو له لارې نوی خالي ماډل اضافه کړئ داخل کړئ - ماډل
3. د دې فنکشن متن دلته کاپي او پیسټ کړئ:

فنکشن SUM(n As Double) د سټرینګ په توګه Dim Nums1, Nums2, Nums3, Nums4 لکه د ویرینټ نمبر1 په توګه = Array("", "یو"، "دوه"، "درې"، "څلور"، "پنځه"، "شپږ"، "اووه"، "اته"، "نهه") شمېره 2 = سرې (""، "لس"، "شل"، "دېرش"، "څلوېښت"، "پنځوس"، "شپږ"، "اويا"، _ "اته" "، "نوی") شمیره 3 = سریزه(""، "یو سل"، "دوه سوه"، "درې سوه"، "څلور سوه"، "پنځه سوه"، "شپږ سوه"، "اووه سوه"، _" اته سوه، "نهه سوه") شمیره 4 = لړۍ (""، "یو"، "دوه"، "درې"، "څلور"، "پنځه"، "شپږ"، "اوه"، "اته"، نهه ") Nums5 = سریزه("لس"، "یوولس"، "دوولس"، "ديارلس"، "څلورلس"، _ "پنځلس"، "شپږم"، "اوولس"، "اتلس"، "نولس") که 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) 'ملیونونه چک کړئ د ډیسمیل قضیه 1 mil_txt = شمیره 5(میل) وټاکئ ) & "میلیونونه " GoTo www قضیه 2 څخه تر 9 decmil_txt = Nums2(decmil) پای ته وټاکئ د قضیې میل قضیه 1 mil_txt = Nums1(mil) & "million" قضیه 2, 3, 4 mil_txt = Nums1(mil) & "میلیون" قضیه 5 څخه تر 20 پورې mil_txt = Nums1(mil) او "میلیونونه" پای www وټاکئ: sottys_txt = Nums3(sottys) ' د زرګونو په اړه چک کړئ د قضیې ډیکټیس قضیه 1 tys_txt = Nums5(tys) او "زرګونو" GoTo eee قضیه 2 څخه تر 9 dectys_txt(Nums2) پای وټاکئ قضیه tys قضیه 0 غوره کړئ که dectys > 0 بیا tys_txt = Nums4(tys) & "زرګونو" قضیه 1 tys_txt = Nums4(tys) & "زرګونو" قضیه 2, 3, 4 tys_txt = شمیره 4(tys) & "thousand" قضیه 5 څخه تر 9 tys_txt = Nums4(tys) & "زرګونو" پای وټاکئ که dectys = 0 او tys = 0 او sottys <> 0 بیا sottys_txt = sottys_txt & "زرګونو" eee: sot_txt = Nums3(sot) کیچ انتخاب کړئ dec Case 1 ed_txt = Nums5(ed) GoTo rrr قضیه 2 څخه تر 9 پورې dec_txt = شمیره 2(دسمبر) پای ed_txt = شمیره 1 (ed) rrr غوره کړئ: 'وروستۍ قطار د وینا سره سم جوړ کړئ = decmil_ txt & mil_txt_txt & sotty_txt & sotty_txt tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' مددگار فنکشن د عددونو له شمیر څخه استخراج لپاره د خصوصي فنکشن کلاس(M,I) کلاس = Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1)) پای فعالیت    

فایل خوندي کړئ (که تاسو Excel 2007 یا 2010 لرئ، نو د فایل ډول باید میکرو فعال وي، د بیلګې په توګه xlsm بڼه!) او بیرته Excel ته لاړ شئ. اوس تاسو کولی شئ رامینځته شوی فنکشن په معمول ډول د ورک شیټ هرې حجرې ته دننه کړئ - د فنکشن وزرډ (تڼۍ) له لارې f_x په فورمول بار، کټګورۍ کې کارن ټاکل شوی) یا په ساده ډول دا په حجره کې په لاسي ډول ټایپ کړئ او حجره د مقدار سره د دلیل په توګه مشخص کړئ:

که تاسو اړتیا لرئ چې ترلاسه شوي متن ته پیسې اضافه کړئ، نو تاسو کولی شئ یو څه پیچلي ساختمان وکاروئ:

 u3d SUM in Write (A3) او " رپ کړئ. "&TEXT((A3-InTEGER(A100))*00;"XNUMX″)&"cop." 

u3d SUM in Write (A3) او " رپ کړئ. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."

بیا، د مثال په توګه، د 35,15 شمیرې لپاره، د فعالیت پایله به د "پنځه دېرش روبل" په څیر ښکاري. 15 کلوپ."

• د PLEX اضافو څخه په انګلیسي کې / روبل او کوپیک سره د فنکشن خورا پیاوړی نسخه
• میکرو څه شی دي، چیرته چې میکرو کوډ داخل کړئ، څنګه یې وکاروئ