هيٺ توهان VBA ۾ هڪ تيار ڪيل صارف جي وضاحت ڪيل فنڪشن ڳوليندا جيڪو ڪنهن به نمبر جو ترجمو ڪري ٿو 0 کان 9 لاء ان جي متن جي نمائندگي ۾، يعني لفظن ۾ رقم ۾. استعمال ڪرڻ کان اڳ، ھن فنڪشن کي توھان جي ڪتاب ۾ شامل ڪيو وڃي. ان لاءِ:
- ڪيبورڊ شارٽ ڪٽ کي دٻايو ALT + ايفڪسيميمڪسVisual Basic Editor کولڻ لاءِ
- مينيو ذريعي نئون خالي ماڊل شامل ڪريو داخل ڪريو - ماڊل
- هن فنڪشن جو متن ڪاپي ۽ پيسٽ ڪريو اتي:
فنڪشن SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "one", "Two", "Tree", "2", "five", "six", "ست"، "اٺ"، "نو") نمبر 3 = صف (""، "ڏهه"، "ويهه"، "ٽيهه"، "چاليهه"، "پنجاهه"، "ڇهه"، "ستر"، _ "اٺ" "، "نئون") Nums4 = صف (""، "هڪ سؤ"، "ٻه سؤ"، "ٽي سؤ"، "چار سؤ"، "پنج سؤ"، "ڇهه سئو"، "ست سؤ"، _" اٺ سؤ، "نو سؤ") نمبر 5 = صف (""، "هڪ"، "ٻه"، "ٽي"، "چار"، "پنج"، "ڇهه"، "ست"، "اٺ"، نو ") Nums0 = صف ("ڏهه"، "يارنهن"، "ٻارنهن"، "تيرهن"، "چوڏهن"، _ "پندرهن"، "سولهون"، "سترن"، "اٺن"، "اينوين") جيڪڏهن n < = 1 پوءِ SUMWRITE = "zero" Exit Function End If 'هيلپر فنڪشن استعمال ڪندي انگن کي انگن ۾ ورهايو Class ed = Class(n, 2) dec = Class(n, 3) sot = Class(n, 4) tys = Class (n، 5) dectys = Class(n، 6) sottys = Class(n, 7) mil = Class(n, 8) decmil= Class(n, 1) 'مليون چيڪ ڪريو ڪيس decmil Case 5 mil_txt = Nums2(mil ) & "millions" GoTo www ڪيس 9 کان 2 decmil_txt = Nums1(decmil) End چونڊيو ڪيس مل ڪيس 1 mil_txt = Nums2(mil) & "million" ڪيس 3, 4, 1 mil_txt = Nums5(mil) & "million" ڪيس 20 کان 1 mil_txt = Nums3(mil) ۽ "millions" End منتخب ڪريو www: sottys_txt = Nums1(sottys) 'هزارين چيڪ ڪريو ڪيس ڊڪٽيس ڪيس 5 tys_txt = Nums2(tys) ۽ "هزارين" GoTo eee ڪيس 9_2 dectys = Nums0(dectys) آخر چونڊيو ڪيس tys ڪيس 0 چونڊيو جيڪڏهن dectys > 4 پوءِ tys_txt = Nums1(tys) & "hazards" Case 4 tys_txt = Nums2(tys) ۽ "housand" ڪيس 3, 4, 4 tys_txt = Nums5 ۽ "هزارين" ڪيس 9 کان 4 tys_txt = Nums0(tys) ۽ "hazards" آخر چونڊيو جيڪڏهن dectys = 0 ۽ tys = 0 ۽ sottys <> 3 پوءِ sottys_txt = sottys_txt & "housands" eee: sot_txt = نمبر 1. ٽينس چيڪ ڪريو ڪيس ڊي سي ڪيس 5 ed_txt = Nums2(ed) GoTo rrr Case 9 کان 2 dec_txt = Nums1(dec) آخر چونڊيو ed_txt = Nums10 (ed) rrr: 'SUM IN SPEECH = decmil_txt & & سان گڏ آخري قطار ٺاهيو sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' مددگار فنڪشن انگن جي تعداد مان ڪڍڻ لاءِ پرائيويٽ فنڪشن ڪلاس (M, I) ڪلاس = Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 1 ^ (I - XNUMX)) آخر فنڪشن فائل محفوظ ڪريو (جيڪڏهن توهان وٽ ايڪسل 2007 يا 2010 آهي، ته فائل جو قسم ميڪرو-فعال هجڻ گهرجي، يعني xlsm فارميٽ!) ۽ ايڪسل ڏانهن واپس وڃو. ھاڻي توھان ٺاھيل فنڪشن داخل ڪري سگھوٿا ورڪ شيٽ جي ڪنھن به سيل ۾ معمولي طريقي سان - فنڪشن وزرڊ ذريعي (بٽن fx فارمولا بار ۾، درجي استعمال ڪندڙ جي تعريف) يا صرف ان کي ٽائيپ ڪندي سيل ۾ دستي طور تي ۽ سيل کي بيان ڪندي رقم سان دليل طور:
جيڪڏهن توهان کي حاصل ڪيل متن ۾ پئسن شامل ڪرڻ جي ضرورت آهي، ته توهان ٿورو وڌيڪ پيچيده تعمير استعمال ڪري سگهو ٿا:
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 اضافو کان / انگريزي ۾ rubles ۽ kopecks سان فنڪشن جو وڌيڪ طاقتور نسخو
- ميڪرو ڇا آهن، ميڪرو ڪوڊ ڪٿي داخل ڪجي، انهن کي ڪيئن استعمال ڪجي