एक्सेल कस्टम कार्य - कस्टम उपयोगकर्ता परिभाषित कार्य बनाएँ

कस्टम एक्सेल फ़ंक्शंस कैसे बनाएं? (उदाहरण सहित)

एक कस्टम फ़ंक्शन बनाने के लिए, हमें अपने स्वयं के कार्यों के काम के लिए एक कोड लिखना होगा, और जिसे "UDF" कहा जाता है। कस्टम फ़ंक्शंस एक्सेल में उपयोगकर्ता-परिभाषित फ़ंक्शन हैं, इसलिए इन कार्यों को बनाने के लिए, आपको VBA कोडिंग को अच्छी तरह से जानना होगा।

उदाहरण # 1 - कोई भी दो संख्याएँ जोड़ें

उदाहरण के लिए, यदि आप कोई भी दो नंबर जोड़ना चाहते हैं, तो हम आपको एक सरल उपयोगकर्ता परिभाषित फ़ंक्शन (UDF) दिखाएंगे।

• Alt + F11 दबाएं और मॉड्यूल डालें।

• कस्टम फ़ंक्शन बनाने के लिए एक मॉड्यूल में कोड लिखें।

कोई भी कस्टम फ़ंक्शन सूत्र नाम के बाद "फ़ंक्शन" शब्द से शुरू होना चाहिए।

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

एक बार जब मापदंडों को डेटा प्रकार के साथ परिभाषित किया जाता है, तो हमें परिणाम परिणाम डेटा प्रकारों को भी परिभाषित करने की आवश्यकता होती है। आइए परिणाम को "पूर्णांक" मान के रूप में परिभाषित करें।

इस "कार्य प्रक्रिया" के अंदर, हम सूत्र कोड लिखेंगे।

कोड:

समारोह परिवर्धन (Inte1 के रूप में Num1, पूर्णांक के रूप में Num2) पूर्णांक Additiona = Num1 + Num2 अंत फ़ंक्शन के रूप में

यह कहता है कि फ़ंक्शन का नाम "एडिशन" परिणाम Num1 और Num2 मानों का योग होगा।

• अब वर्कशीट पर वापस आएं और किसी भी दो पूर्णांक संख्या दर्ज करें।

• हम अब इन दो नंबरों को जोड़ देंगे। समान चिह्न खोलें और कस्टम फ़ंक्शन नाम "एडिशन" दर्ज करें।

विभाजक को अल्पविराम (,) के रूप में दर्ज करके पहले और दूसरे नंबर का चयन करें।

• परिणाम प्राप्त करने के लिए एंटर कुंजी दबाएं।

वाह क्या बात है!!! SUM फ़ंक्शन की तरह, हमें दो संख्याओं के योग का परिणाम मिला।

अब, इन संख्याओं को देखें।

अब इन दोनों संख्याओं को जोड़ने का प्रयास करें।

हमें त्रुटि मान मिला क्योंकि "Num1 & Num2" डेटा प्रकार के तर्क "पूर्णांक" हैं, अर्थात, ये दो तर्क -32767 से 32767 के बीच मान रख सकते हैं, इसलिए इससे अधिक कुछ भी इन त्रुटियों का कारण होगा।

अब इन दोनों संख्याओं को जोड़ने का प्रयास करें।

यहां तक ​​कि यह त्रुटि मान से नीचे होगा।

भले ही व्यक्तिगत तर्क मान पूर्णांक डेटा प्रकार की सीमा के भीतर हैं, फिर भी हमें यह त्रुटि मिली क्योंकि इन संख्याओं का कुल योग पूर्णांक सीमा मान से अधिक है।

चूंकि हमने परिणाम प्रकार को "पूर्णांक" भी घोषित किया है, इसलिए दो संख्याओं के जोड़ का परिणाम भी पूर्णांक संख्या सीमा होना चाहिए।

उदाहरण # 2 - सभी विषम संख्याएँ जोड़ें

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

VBA संपादक विंडो खोलें और फ़ंक्शन प्रक्रिया को एक नाम दें।

इस फ़ंक्शन के लिए पैरामीटर "श्रेणी" के रूप में दें।

इसका मतलब है कि इस फ़ंक्शन के लिए, हम इस फ़ंक्शन के लिए सेल मानों की "श्रेणी" के रूप में इनपुट मान प्रदान कर रहे हैं।

चूंकि हमें एक से अधिक सेल के माध्यम से लूप करने की आवश्यकता है, इसलिए हमें वीबीए में "प्रत्येक के लिए" लूप का उपयोग करने की आवश्यकता है, इसलिए "प्रत्येक लूप के लिए" खोलें।

इस लूप के अंदर, नीचे कोड जोड़ें।

कोड:

AddOdd (Rng As Range) प्रत्येक सेल के लिए Rng में यदि सेल। वाल्यू मॉड 2 0 फिर AddOdd = AddOdd + cell.Value अगला सेल एंड फ़ंक्शन

हमें संख्या का परीक्षण करने के लिए "MOD" फ़ंक्शन का उपयोग करना होगा। जब प्रत्येक सेल मान को संख्या 2 से विभाजित किया जाता है और शेष मूल्य शून्य के बराबर नहीं होता है, तो हमारे कोड को सभी विषम संख्या मान जोड़ना चाहिए।

अब वर्कशीट पर वापस आएं और एक्सेल कस्टम फंक्शन खोलें।

A1 से D8 तक की संख्या सीमा का चयन करें।

"विषम" संख्या परिणाम प्राप्त करने के लिए कुंजी दर्ज करें।

तो, A1 से D8 की रेंज में, हमारे पास विषम संख्याओं का योग 84 है।

उदाहरण # 3 - सभी सम संख्याएँ जोड़ें

इसी तरह, नीचे दिए गए फंक्शन में सभी सम संख्याओं को जोड़ा जाएगा।

कोड:

AddEven (Rng As Range) प्रत्येक सेल के लिए Rng में अगर सेल। वाल्यू मॉड 2 = 0 फिर AddEven = AddEven + cell।Value अगला सेल एंड फंक्शन

यह फ़ंक्शन केवल एक सम संख्या जोड़ देगा। इस मामले में, हमने तर्क का उपयोग किया है यदि प्रत्येक सेल मान 2 से विभाजित है, और शेष शून्य के बराबर है, तो कोड केवल उन सेल मानों को जोड़ देगा।

इस तरह, VBA कोडिंग का उपयोग करके, हम अपने स्वयं के कस्टम कार्य बना सकते हैं।

याद रखने वाली चीज़ें

• कस्टम कार्य बनाएं कुछ भी नहीं है, लेकिन उपयोगकर्ता परिभाषित कार्य हैं।
• कस्टम फ़ंक्शन बनाने के लिए, किसी को उन्नत VBA कोडिंग कौशल का ज्ञान होना चाहिए।
• कस्टम एक्सेल फ़ंक्शंस बनाते समय, तर्कों और उनके डेटा प्रकारों पर नज़र रखना महत्वपूर्ण है।