वीबीए में भारित औसत की गणना कैसे करें (उदाहरण के साथ)

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

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

यह विशेष उदाहरण श्रेणी B2:B7 में कोशिकाओं को मान के रूप में और श्रेणी C2:C7 में कोशिकाओं को भार के रूप में उपयोग करके भारित औसत की गणना करता है।

फिर भारित औसत को सेल E2 में प्रदर्शित किया जाता है।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके भारित औसत की गणना करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटा सेट है जो किसी कंपनी के कर्मचारियों द्वारा की गई विभिन्न बिक्री को दर्शाता है:

मान लीजिए कि हम राशि कॉलम में मानों को मान के रूप में और मूल्य कॉलम में मानों को भार के रूप में उपयोग करके मूल्य के भारित औसत की गणना करना चाहते हैं:

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

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

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

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

हम भारित औसत की मैन्युअल गणना करके सत्यापित कर सकते हैं कि यह सही है।

याद रखें कि हम भारित औसत के लिए निम्नलिखित सूत्र का उपयोग करते हैं:

भारित औसत = Σw _i X _i / Σw _i

सोना:

• w _i = वजन मान
• एक्स _आई = डेटा मान

भारित औसत मूल्य की गणना करने के लिए हम अपने डेटासेट से मानों को इस सूत्र में प्लग कर सकते हैं:

• भारित औसत = Σw _i X _i / Σw _i
• भारित औसत = (1*8 + 3*5 + 2*6 + 2*7 + 5*12 + 4*14) / (1+3+2+2+5+4)
• छात्र ए के लिए ग्रेड प्वाइंट औसत = 9.705882

यह उस मान से मेल खाता है जिसकी हमने मैक्रो का उपयोग करके गणना की थी।

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

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

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