वीबीए: averageif और averageifs फ़ंक्शन कैसे लिखें

आप Excel में VBA का उपयोग करके AVERAGEIF और AVERAGEIFS फ़ंक्शंस लिखने के लिए निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: VBA में AVERAGEIF फ़ंक्शन

 Sub Averageif_Function()
    Range(" E2 ") = WorksheetFunction.AverageIf(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "))
End Sub

यह विशेष उदाहरण श्रेणी B2:B12 में औसत मान की गणना करेगा जहां श्रेणी A2:A12 में संबंधित मान “Mavs” के बराबर है, फिर परिणाम को सेल E2 पर निर्दिष्ट करें।

विधि 2: VBA में AVERAGEIFS फ़ंक्शन

 Sub Averageifs_Function()
    Range(" E2 ") = WorksheetFunction.AverageIfs(Range(" C2:C12 "), Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "), " >20 ")
End Sub

यह विशेष उदाहरण श्रेणी C2:C12 में औसत मान की गणना करेगा जहां श्रेणी A2:A12 में मान “Mavs” के बराबर है और श्रेणी B2:B12 में मान 20 से अधिक है, फिर परिणाम को सेल E2 पर निर्दिष्ट करें . .

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

उदाहरण 1: VBA में AVERAGEIF फ़ंक्शन

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

हम इस AVERAGEIF फ़ंक्शन को निष्पादित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub Averageif_Function()
    Range(" E2 ") = WorksheetFunction.AverageIf(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "))
End Sub

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

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

यह हमें बताता है कि माव्स टीम के खिलाड़ियों के लिए अंक कॉलम में औसत मूल्य 18.25 है।

हम Mavs पर औसत खिलाड़ी बिंदु मान की मैन्युअल रूप से गणना करके यह सत्यापित कर सकते हैं कि यह सही है:

माव्स खिलाड़ी के औसत अंक: (22 + 10 + 29 + 12) / 4 = 18.25 ।

उदाहरण 2: VBA में AVERAGEIFS फ़ंक्शन

मान लीजिए कि हम निम्नलिखित मानदंडों को पूरा करने वाले खिलाड़ियों के लिए सहायता कॉलम में औसत मूल्य की गणना करना चाहते हैं:

• खिलाड़ी माव्स टीम का हिस्सा है।
• खिलाड़ी ने 20 से अधिक अंक अर्जित किये।

हम इस AVERAGEIFS फ़ंक्शन को निष्पादित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub Averageifs_Function()
    Range(" E2 ") = WorksheetFunction.AverageIfs(Range(" C2:C12 "), Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "), " >20 ")
End Sub

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

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

यह हमें बताता है कि जो खिलाड़ी माव्स टीम में हैं और जिन्होंने 20 से अधिक अंक बनाए हैं, उनके बीच औसत सहायता 9 है।

ध्यान दें : इस उदाहरण में, हमने दो मानदंड श्रेणियों का उपयोग करके एक AVERAGEIFS फ़ंक्शन बनाया है, लेकिन आप WorkSheetFunction.AverageIfs विधि में जितनी चाहें उतनी मानदंड श्रेणियों का उपयोग कर सकते हैं।

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

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

वीबीए: रेंज के औसत मूल्य की गणना कैसे करें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें