वीबीए: रेंज में अधिकतम मूल्य कैसे प्राप्त करें

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

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

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

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

यह हमें बताता है कि अंक कॉलम में अधिकतम मान 43 है।

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

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

संदेश बॉक्स हमें बताता है कि श्रेणी B2:B11 में अधिकतम मान 43 है।

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

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

यह सभी कॉलम बी में अधिकतम मान की गणना करेगा।

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

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

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