/ / एक्सेल वीबीए में कस्टम औसत समारोह

एक्सेल वीबीए में कस्टम औसत समारोह

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो एक बनाता है उपयोगकर्ता परिभाषित समारोह जो गणना करता है औसत एक या अधिक मूल्यों को छोड़कर यादृच्छिक रूप से चुनी गई रेंज का जो बहिष्कार हैं और औसत नहीं होना चाहिए।

परिस्थिति:

एक्सेल वीबीए में कस्टम औसत समारोह

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

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

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

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

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

3. अगला, हम एक रेंज ऑब्जेक्ट और टाइप इंटेजर के दो चर घोषित करते हैं। हम रेंज ऑब्जेक्ट सेल को कॉल करते हैं। एक इंटीजर वैरिएबल हम कुल कॉल करते हैं और एक इंटीजर वैरिएबल जिसे हम गिनते हैं।

Dim cell As Range, total As Integer, count As Integer

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

For Each cell In rng

Next cell

नोट: आरएनजी और सेल यादृच्छिक रूप से यहां चुने गए हैं, आप किसी भी नाम का उपयोग कर सकते हैं। इन नामों को अपने शेष कोड में संदर्भित करना याद रखें।

5। इसके बाद, हम इस श्रेणी में प्रत्येक मान की जांच करते हैं यदि यह दो मानों (निचले और ऊपरी) के बीच आता है। यदि सही है, तो हम सेल के मूल्य से कुल वृद्धि करते हैं और हम 1 से गिनती बढ़ाते हैं। लूप को निम्न कोड पंक्तियां जोड़ें।

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. इस फ़ंक्शन (वांछित औसत) के परिणाम को वापस करने के लिए, लूप के बाहर निम्न कोड पंक्ति जोड़ें।

CUSTOMAVERAGE = total / count

7. काम खत्म करने के लिए मत भूलना। लाइन जोड़ें:

End Function

8. अब आप इस फ़ंक्शन का उपयोग किसी अन्य एक्सेल फ़ंक्शन की तरह दो मानों के बीच होने वाली संख्याओं की औसत गणना करने के लिए कर सकते हैं।

परिणाम:

कस्टम औसत समारोह परिणाम

एक चेक के रूप में, आप सभी मूल्यों को हटा सकते हैं10 से कम और 30 से अधिक और एक्सेल में मानक औसत फ़ंक्शन का उपयोग यह देखने के लिए करें कि क्या Excel हमारे कस्टम औसत फ़ंक्शन के समान औसत की गणना करता है या नहीं।

कस्टम औसत समारोह की जांच करें

हमारा कस्टम औसत समारोह काम करता है! नोट: यह फ़ंक्शन केवल इस कार्यपुस्तिका में उपलब्ध है।

यह भी पढ़ें: