/ / एक्सेल वीबीए में उपयोगकर्ता परिभाषित समारोह

एक्सेल वीबीए में उपयोगकर्ता परिभाषित समारोह

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो एक बनाता है उपयोगकर्ता परिभाषित समारोह। एक्सेल में कार्यों का एक बड़ा संग्रह है। ज्यादातर स्थितियों में वे कार्य पूरा करने के लिए पर्याप्त हैं। यदि नहीं, तो आप अपना खुद का फ़ंक्शन बना सकते हैं जिसे उपयोगकर्ता परिभाषित फ़ंक्शन या कहा जाता है कस्टम एक्सेल समारोह। आप किसी भी अन्य एक्सेल फ़ंक्शन की तरह उपयोगकर्ता परिभाषित फ़ंक्शन तक पहुंच सकते हैं।

हम SUMEVENNUMBERS नामक एक फ़ंक्शन बनाना चाहते हैं जो यादृच्छिक रूप से चुनी गई रेंज की संख्याओं का योग पाता है।

परिस्थिति:

एक्सेल वीबीए में उपयोगकर्ता परिभाषित समारोह

उपयोगकर्ता परिभाषित कार्यों को एक मॉड्यूल में रखा जाना चाहिए।

1. विजुअल बेसिक एडिटर खोलें और सम्मिलित करें, मॉड्यूल पर क्लिक करें।

2. निम्नलिखित कोड लाइन जोड़ें:

Function SUMEVENNUMBERS(rng As Range)

हमारे फ़ंक्शन का नाम SUMEVENNUMBERS है। ब्रैकेट्स के बीच का मतलब है कि हम एक्सेल वीबीए को इनपुट के रूप में एक रेंज देते हैं। हम अपने रेंज आरएनजी का नाम देते हैं, लेकिन आप किसी भी नाम का उपयोग कर सकते हैं।

3. अगला, हम एक रेंज ऑब्जेक्ट घोषित करते हैं और इसे सेल कहते हैं।

Dim cell As Range

4. हम प्रत्येक सेल को यादृच्छिक रूप से चयनित श्रेणी में देखना चाहते हैं (यह रेंज किसी भी आकार का हो सकती है)। एक्सेल वीबीए में, आप इसके लिए प्रत्येक अगला लूप का उपयोग कर सकते हैं। निम्नलिखित कोड लाइन जोड़ें:

For Each cell In rng

Next cell

नोट: सेल को यादृच्छिक रूप से यहां चुना गया है, आप किसी भी नाम का उपयोग कर सकते हैं।

5। इसके बाद, हम इस श्रेणी में प्रत्येक मान की जांच करते हैं चाहे वह भी हो या नहीं। हम इसके लिए मॉड ऑपरेटर का उपयोग करते हैं। मॉड ऑपरेटर शेष विभाजन देता है। तो 7 मॉड 2 देगा 1. 7 को शेष राशि देने के लिए 2 (3 गुना) से विभाजित किया गया है। यह कहकर, यह जांचना आसान है कि कोई संख्या भी है या नहीं। केवल तभी यदि संख्या 2 से विभाजित संख्या का शेष 0 है, तो संख्या भी है। 8 मॉड 2 0 देता है, 8 को 2 बार 4 बार विभाजित किया जाता है, और इसलिए 8 भी है। प्रत्येक अगला लूप के लिए निम्न अगर कथन जोड़ें।

If cell.Value Mod 2 = 0 Then

End If

6. केवल अगर यह कथन सत्य है, तो हम मूल्य SUMEVENNUMBERS में जोड़ते हैं। यदि कथन में निम्न कोड पंक्ति जोड़ें।

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. कार्य को समाप्त करने के लिए मत भूलना (लूप के बाहर)।

End Function

8. अब आप किसी भी अन्य एक्सेल फ़ंक्शन की तरह, इस फ़ंक्शन का उपयोग किसी यादृच्छिक रूप से चयनित श्रेणी की संख्या को खोजने के लिए कर सकते हैं।

परिणाम:

उपयोगकर्ता परिभाषित समारोह परिणाम

बहुत बढ़िया! यह एक्सेल वीबीए में उपयोगकर्ता परिभाषित कार्य कितना आसान है। नोट: यह फ़ंक्शन केवल इस कार्यपुस्तिका में उपलब्ध है।

यह भी पढ़ें: