सुमा in cuirsive

नीचे आपको वीबीए में एक तैयार उपयोगकर्ता-परिभाषित फ़ंक्शन मिलेगा जो किसी भी संख्या का अनुवाद करता है 0 से 9 इसके शाब्दिक प्रतिनिधित्व में, यानी शब्दों में मात्रा में। उपयोग करने से पहले, यह फ़ंक्शन आपकी पुस्तक में जोड़ा जाना चाहिए। इसके लिए:

1. कीबोर्ड शॉर्टकट दबाएं ALT + F11विजुअल बेसिक एडिटर खोलने के लिए
2. मेनू के माध्यम से नया खाली मॉड्यूल जोड़ें सम्मिलित करें - मॉड्यूल
3. इस फ़ंक्शन के टेक्स्ट को वहां कॉपी और पेस्ट करें:

फंक्शन एसयूएम (एन डबल के रूप में) स्ट्रिंग के रूप में मंद अंक 1, अंक 2, अंक 3, अंक 4 भिन्न संख्या 1 के रूप में = सरणी ("", "एक", "दो", "तीन", "चार", "पांच", "छह", "सात", "आठ", "नौ") अंक 2 = सरणी ("", "दस", "बीस", "तीस", "चालीस", "पचास", "साठ", "सत्तर", _ "अस्सी ", "नब्बे") अंक 3 = सरणी ("", "एक सौ", "दो सौ", "तीन सौ", "चार सौ", "पांच सौ", "छह सौ", "सात सौ", _ " आठ सौ", "नौ सौ") अंक 4 = सरणी ("", "एक", "दो", "तीन", "चार", "पांच", "छह", "सात", "आठ", "नौ" ") अंक 5 = ऐरे ("दस", "ग्यारह", "बारह", "तेरह", "चौदह", _ "पंद्रह", "सोलह", "सत्रह", "अठारह", "उन्नीस") यदि एन < = 0 फिर SUMWRITE = "शून्य" एग्जिट फ़ंक्शन एंड यदि 'हेल्पर फ़ंक्शन का उपयोग करके संख्या को अंकों में विभाजित करें क्लास ed = क्लास (n, 1) dec = क्लास (n, 2) sot = क्लास (n, 3) tys = क्लास (n, 4) dectys = Class(n , 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'लाखों की जाँच करें केस का चयन करें decmil केस 1 mil_txt = Nums5(mil) ) और "लाखों "GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select 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) & "मिलियन्स" एंड सेलेक्ट www: sottys_txt = Nums3(sottys) 'हजारों की जांच करें केस का चयन करें केस 1 tys_txt = Nums5(tys) & "हजारों" GoTo eee Case 2 से 9 dectys_txt = Nums2(dectys) एंड सेलेक्ट केस सेलेक्ट केस tys केस 0 यदि dectys > 0 तो tys_txt = Nums4(tys) & "हजारों" केस 1 tys_txt = Nums4(tys) & "हजार" केस 2, 3, 4 tys_txt = Nums4(tys) & "हजारों" स्थिति 5 से 9 tys_txt = अंक4(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 Case 2 to 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1 (ed) rrr: 'SUM IN Speech = decmil_txt & mil_txt & sottys_txt & dectys_txt & के साथ अंतिम पंक्ति बनाएं tys_txt और sot_txt और dec_txt और ed_txt एंड फू nction 'सहायक समारोह अंकों की संख्या से निकालने के लिए प्राइवेट फंक्शन Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1)) अंत समारोह    

फ़ाइल को सहेजें (यदि आपके पास एक्सेल 2007 या 2010 है, तो फ़ाइल प्रकार मैक्रो-सक्षम होना चाहिए, अर्थात xlsm प्रारूप!) और एक्सेल पर वापस आ जाना चाहिए। अब आप बनाए गए फ़ंक्शन को कार्यपत्रक के किसी भी कक्ष में सामान्य तरीके से सम्मिलित कर सकते हैं - फ़ंक्शन विज़ार्ड (बटन .) के माध्यम से f_x सूत्र पट्टी में, श्रेणी उपयोगकर्ता परिभाषित) या बस इसे सेल में मैन्युअल रूप से टाइप करके और सेल को एक तर्क के रूप में राशि के साथ निर्दिष्ट करके:

यदि आपको प्राप्त पाठ में पैसे जोड़ने की आवश्यकता है, तो आप थोड़ा अधिक जटिल निर्माण का उपयोग कर सकते हैं:

 u3d SUM IN WRITE (A3) और ” रगड़। "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"पुलिस।" 

u3d SUM IN WRITE (A3) और ” रगड़। "&TEXT((A3-INT(A100))*00;"XNUMX″)&"पुलिस।"

फिर, उदाहरण के लिए, संख्या 35,15 के लिए, फ़ंक्शन का परिणाम "पैंतीस रूबल" जैसा दिखेगा। 15 कोप।"

• A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
• मैक्रोज़ क्या हैं, मैक्रो कोड कहाँ डालें, उनका उपयोग कैसे करें