কৌতুহলে সুমা

নীচে আপনি VBA-তে একটি তৈরি ব্যবহারকারী-সংজ্ঞায়িত ফাংশন পাবেন যা যেকোনো সংখ্যাকে অনুবাদ করে 0 থেকে 9 থেকে এর পাঠ্য উপস্থাপনায়, অর্থাত্ শব্দের পরিমাণে। ব্যবহারের আগে, এই ফাংশনটি আপনার বইতে যোগ করা আবশ্যক। এই জন্য:

1. কীবোর্ড শর্টকাট টিপুন ALT + F11ভিজ্যুয়াল বেসিক এডিটর খুলতে
2. মেনুর মাধ্যমে নতুন খালি মডিউল যোগ করুন সন্নিবেশ - মডিউল
3. সেখানে এই ফাংশনের পাঠ্য অনুলিপি এবং পেস্ট করুন:

ফাংশন SUM(n হিসাবে দ্বৈত) স্ট্রিং হিসাবে Dim Nums1, Nums2, Nums3, Nums4 হিসাবে ভেরিয়েন্ট Nums1 = অ্যারে("", "এক", "দুই", "তিন", "চার", "পাঁচ", "ছয়", "সাত", "আট", "নয়") সংখ্যা2 = অ্যারে("", "দশ", "বিশ", "ত্রিশ", "চল্লিশ", "পঞ্চাশ", "ষাট", "সত্তর", _ "আশি" ", "নব্বই") সংখ্যা3 = অ্যারে("", "একশত", "দুইশ", "তিনশত", "চারশ", "পাঁচশ", "ছয়শত", "সাতশত", _" আটশত", "নয়শত") সংখ্যা4 = অ্যারে("", "এক", "দুই", "তিন", "চার", "পাঁচ", "ছয়", "সাত", "আট", নয় ") Nums5 = অ্যারে("দশ" , "এগারো", "বারো", "তের", "চৌদ্দ", _ "পনের", "ষোল", "সতের", "আঠারো", "উনিশ") যদি n < = 0 তারপর SUMWRITE = "zero" Exit Function End যদি 'সহায়ক ফাংশন ব্যবহার করে সংখ্যাটিকে সংখ্যায় ভাগ করুন 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) End সিলেক্ট কেস mil কেস 1 mil_txt = Nums1(mil) & "million" কেস 2, 3, 4 mil_txt = Nums1(mil) & "million" কেস 5 থেকে 20 mil_txt = Nums1(mil) & "millions" End সিলেক্ট করুন www: sottys_txt = Nums3(sottys) ' হাজার হাজার নির্বাচন করুন কেস ডিক্টিস কেস 1 tys_txt = Nums5(tys) & "হাজারস" GoTo eee কেস 2 থেকে 9 dectys = Nums2(dectys) শেষ নির্বাচন করুন কেস tys কেস 0 নির্বাচন করুন যদি dectys > 0 তাহলে tys_txt = Nums4(tys) & "হাজারস" কেস 1 tys_txt = Nums4(tys) & "হাজার" কেস 2, 3, 4 tys_txt = Nums4 & " হাজার " কেস 5 থেকে 9 tys_txt = Nums4(tys) & " হাজার " শেষ নির্বাচন করুন যদি dectys = 0 এবং tys = 0 এবং sottys <> 0 তারপর sottys_txt = sottys_txt & "হাজারস" eee: sot_txt = 'Nums3' দশ চেক করুন কেস ডিসি কেস 1 ed_txt = Nums5(ed) GoTo rrr কেস 2 থেকে 9 dec_txt = Nums2(dec) End নির্বাচন করুন ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = decmil_txt & এর সাথে চূড়ান্ত সারি তৈরি করুন sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt শেষ ফাংশন ' সাহায্যকারী ফাংশন সংখ্যার সংখ্যা থেকে বের করার জন্য প্রাইভেট ফাংশন ক্লাস(M, I) ক্লাস = Int(Int(M - (10 ^ I)) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) শেষ ফাংশন    

ফাইলটি সংরক্ষণ করুন (যদি আপনার এক্সেল 2007 বা 2010 থাকে, তাহলে ফাইলের ধরনটি অবশ্যই ম্যাক্রো-সক্ষম হতে হবে, যেমন xlsm ফর্ম্যাট!) এবং এক্সেলে ফিরে যান। এখন আপনি স্বাভাবিক পদ্ধতিতে ওয়ার্কশীটের যেকোনো ঘরে তৈরি ফাংশন সন্নিবেশ করতে পারেন - ফাংশন উইজার্ডের মাধ্যমে (বোতাম f_x সূত্র বারে, বিভাগে ব্যবহারকারী সংজ্ঞায়িত) বা কেবল ঘরে এটি ম্যানুয়ালি টাইপ করে এবং একটি যুক্তি হিসাবে পরিমাণ সহ ঘরটি নির্দিষ্ট করে:

আপনি যদি প্রাপ্ত পাঠ্যে পেনি যোগ করতে চান তবে আপনি কিছুটা জটিল নির্মাণ ব্যবহার করতে পারেন:

 u3d SUM IN WRITE (A3) এবং ” ঘষা। "&TEXT((A3-পূর্ণসংখ্যা(A100))*00;"XNUMX″)&"পুলিশ।" 

u3d SUM IN WRITE (A3) এবং ” ঘষা। "&TEXT((A3-INT(A100))*00;"XNUMX″)&"পুলিশ।"

তারপরে, উদাহরণস্বরূপ, 35,15 নম্বরের জন্য, ফাংশনের ফলাফলটি "পঁয়ত্রিশ রুবেল" এর মতো দেখাবে। 15 কোপ।"

• PLEX অ্যাড-অন থেকে / ইংরেজিতে রুবেল এবং কোপেক সহ ফাংশনের আরও শক্তিশালী সংস্করণ
• ম্যাক্রো কি, কোথায় ম্যাক্রো কোড ঢোকাতে হয়, কিভাবে ব্যবহার করতে হয়