वीबीए: रेंज के औसत मूल्य की गणना कैसे करें

आप VBA का उपयोग करके Excel में किसी श्रेणी के औसत मान की गणना करने के लिए निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

यह विशेष उदाहरण श्रेणी B2:B12 में औसत मान की गणना करता है और सेल E2 को परिणाम निर्दिष्ट करता है।

यदि आप इसके बजाय किसी संदेश बॉक्स में औसत मान प्रदर्शित करना चाहते हैं, तो आप निम्न सिंटैक्स का उपयोग कर सकते हैं:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटासेट के साथ अभ्यास में इनमें से प्रत्येक विधि का उपयोग कैसे किया जाए जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी शामिल है:

उदाहरण 1: वीबीए का उपयोग करके रेंज के औसत की गणना करें और सेल में परिणाम प्रदर्शित करें

मान लीजिए कि हम अंक कॉलम में औसत मूल्य की गणना करना चाहते हैं और परिणामों को एक विशिष्ट सेल में प्रदर्शित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल E2 में 21.27273 का मान है।

यह हमें बताता है कि अंक कॉलम में औसत मान 21.27273 है।

उदाहरण 2: वीबीए का उपयोग करके सीमा के औसत की गणना करें और परिणाम संदेश बॉक्स में प्रदर्शित करें

मान लीजिए कि हम इसके बजाय अंक कॉलम में औसत मूल्य की गणना करना चाहते हैं और परिणामों को एक संदेश बॉक्स में प्रदर्शित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

संदेश बॉक्स हमें बताता है कि श्रेणी B2:B12 में औसत मान 21.27273 है।

ध्यान दें कि इस उदाहरण में हमने B2:B12 श्रेणी में औसत मान की गणना की है।

हालाँकि, यदि आप इसके बजाय पूरे कॉलम में औसत मान की गणना करना चाहते हैं, तो आप इसके बजाय B:B टाइप कर सकते हैं।

यह कॉलम बी में प्रत्येक सेल के लिए औसत मूल्य की गणना करेगा।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें