सुमा कुर्सिभमा

तल तपाईंले VBA मा एक तयार-निर्मित प्रयोगकर्ता-परिभाषित प्रकार्य फेला पार्नुहुनेछ जुन कुनै पनि नम्बर अनुवाद गर्दछ 0 देखि 9 सम्म यसको शाब्दिक प्रतिनिधित्वमा, अर्थात् शब्दहरूमा रकममा। प्रयोग गर्नु अघि, यो प्रकार्य तपाईंको पुस्तकमा थपिएको हुनुपर्छ। यसका लागि:

1. किबोर्ड सर्टकट थिच्नुहोस् ALT+F11भिजुअल बेसिक सम्पादक खोल्न
2. मेनु मार्फत नयाँ खाली मोड्युल थप्नुहोस् घुसाउनुहोस् - मोड्युल
3. त्यहाँ यस प्रकार्यको पाठ प्रतिलिपि गरेर टाँस्नुहोस्:

प्रकार्य SUM(n को रूपमा डबल) String Dim Nums1, Nums2, Nums3, Nums4 को रूपमा भेरियन्ट Nums1 = एरे("", "एक", "दुई", "तीन", "चार", "पाँच", "छ", "सात", "आठ", "नौ") संख्या २ = एरे("", "दस", "बीस", "तीस", "चालीस", "पचास", "साठ", "सत्तरी", _ "असी" ", "नब्बे") Nums2 = एरे("", "एक सय", "दुई सय", "तीन सय", "चार सय", "पाँच सय", "छ सय", "सात सय", _ " आठ सय", "नौ सय") संख्या ४ = एरे("", "एक", "दुई", "तीन", "चार", "पाँच", "छ", "सात", "आठ", "नौ" ") Nums3 = एरे ("दस" , "एघार", "बाह्र", "तेरह", "चौध", _ "पन्ध्र", "सोलह", "सातह्र", "अठार", "उन्नाइस") यदि n < = 4 त्यसपछि SUMWRITE = "zero" Exit Function End यदि 'सहायक प्रकार्य प्रयोग गरेर संख्यालाई अंकहरूमा विभाजन गर्नुहोस् Class ed = Class(n, 5) dec = Class(n, 0) sot = Class(n, 1) tys = Class (n, 2) dectys = Class(n, 3) sottys = Class(n, 4) mil = Class(n, 5) decmil= Class(n, 6) 'लाखौं जाँच गर्नुहोस् केस decmil केस 7 mil_txt = संख्या ५(मिल ) & "मिलियन" GoTo www केस 8 देखि 1 decmil_txt = Nums5(decmil) End चयन गर्नुहोस् केस mil केस 2 mil_txt = Nums9(mil) & "million" केस 2, 1, 1 mil_txt = Nums2(mil) & "million" केस 3 देखि 4 mil_txt = Nums1(mil) & "millions " End चयन गर्नुहोस् www: sottys_txt = Nums5(sottys) ' हजारहरू जाँच गर्नुहोस् केस डिक्टिस केस 20 tys_txt = Nums1(tys) र "हजारहरू" GoTo eee केस 3_1 dectys = Nums5(dectys) End चयन गर्नुहोस् केस tys केस 2 चयन गर्नुहोस् यदि dectys > 9 त्यसपछि tys_txt = Nums2(tys) & "हजार" केस 0 tys_txt = Nums0(tys) & "हजार" केस 4, 1, 4 tys_txt = Nums2 & "हजार" केस 3 देखि 4 tys_txt = Nums4(tys) & "हजार" अन्त्य चयन गर्नुहोस् यदि dectys = 5 र tys = 9 र sottys <> 4 त्यसपछि sottys_txt = sottys_txt & "हजार" eee: sot_txt = nums0' tens चेक गर्नुहोस् केस डिसेम्बर केस 0 ed_txt = Nums0(ed) GoTo rrr केस 3 देखि 1 dec_txt = Nums5(dec) End चयन गर्नुहोस् ed_txt = Nums2 (ed) rrr: 'SUM IN SPEECH = decmil_ txt & साथ अन्तिम पङ्क्ति बनाउनुहोस्। sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End फंक्शन ' सहायक प्रकार्य अंकहरूको संख्याबाट निकाल्न निजी प्रकार्य वर्ग(M, I) वर्ग = Int(Int(M - (9 ^ I)) * Int(M / ( 2 ^ I))) / 1 ^ (I - 10)) अन्त्य प्रकार्य    

फाइल बचत गर्नुहोस् (यदि तपाईंसँग एक्सेल 2007 वा 2010 छ भने, फाइल प्रकार म्याक्रो-सक्षम हुनुपर्छ, अर्थात् xlsm ढाँचा!) र एक्सेलमा फर्कनुहोस्। अब तपाइँ कार्यपत्रको कुनै पनि कक्षमा सामान्य तरिकामा सिर्जना गरिएको प्रकार्य घुसाउन सक्नुहुन्छ - प्रकार्य विजार्ड (बटन) मार्फत 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 kop।"

• PLEX एड-अनबाट / अंग्रेजीमा रूबल र kopecks संग प्रकार्य को एक अधिक शक्तिशाली संस्करण
• म्याक्रोहरू के हुन्, म्याक्रो कोड कहाँ घुसाउने, कसरी प्रयोग गर्ने