मैक्स, जैसा कि नाम से पता चलता है, किसी दिए गए डेटा सेट या एक सरणी से अधिकतम मूल्य का पता लगाने के लिए उपयोग किया जाता है, यह एक वर्कशीट फ़ंक्शन है इसलिए इसका उपयोग वर्कशीट विधि के साथ वर्कशीट फ़ंक्शन के रूप में किया जाता है, इस पद्धति के लिए एक सीमा है फ़ंक्शन एक सरणी लेता है एक तर्क के रूप में सरणी में केवल 30 मान हो सकते हैं।
एक्सेल VBA मैक्स फंक्शन
एक्सेल में हमारे कई संख्यात्मक कार्य हैं। हम श्रेणी में संख्यात्मक मानों की गणना कर सकते हैं, हम योग कर सकते हैं, और हम न्यूनतम मान के साथ-साथ बहुत से अधिकतम मूल्य पा सकते हैं। लॉट का अधिकतम मूल्य ज्ञात करने के लिए, हमारे पास MAX नामक एक एक्सेल फ़ंक्शन है, जो संख्याओं की आपूर्ति की गई रेंज का अधिकतम मूल्य लौटाएगा। VBA में, अधिकतम संख्या प्राप्त करने के लिए हमारे पास "MAX" नामक कोई अंतर्निहित फ़ंक्शन नहीं है। हम देखेंगे कि इस एक्सेल VBA मैक्स फंक्शन का उपयोग कैसे करें।
एक्सेल VBA में मैक्स फंक्शन का उदाहरण
दुर्भाग्य से, हमारे पास VBA बिल्ट-इन फ़ंक्शन के रूप में MAX का उपयोग करने की लक्जरी नहीं है, लेकिन हम इस फ़ंक्शन को वर्कशीट फ़ंक्शन क्लास के एक भाग के रूप में एक्सेस कर सकते हैं।
अब, नीचे दिए गए कोड को देखें।
कोड:
उप MAX_Example1 () डिम ए ऐज एंगर डिम बी अस इन्टर्गर डिम सी अस इंटेगर डिम रिजल्ट एज़ एंगर a = ५० बी = २५ सी = ६० रिजल्ट = वर्कशीटफ़ंक्शन।मैक्स (ए, बी, सी) मैसेंजर रिजल्ट एंड सब
उपरोक्त उदाहरण में, मैंने संख्या को संग्रहीत करने के लिए तीन चर घोषित किए हैं।
डिम ए ए इंटेगर डिम बी अस इंटेगर डिम सी अस इंटेगर
मैंने परिणाम दिखाने के लिए एक और चर घोषित किया है।
इंटीजर के रूप में डिम रिजल्ट।
पहले 3 तीन चर के लिए, मैंने क्रमशः 50, 25, और 60 जैसे मान असाइन किए हैं।
a = 50 b = 25 c = 60
अगली पंक्ति में, मैंने परिणाम "चर" परिणाम को संग्रहीत करने के लिए एक VBA वर्कशीट फ़ंक्शन क्लास के रूप में MAX को लागू किया है।
परिणाम = WorksheetFunction.Max (ए, बी, सी)
इसलिए अंत में, मैं VBA में संदेश बॉक्स में मान दिखा रहा हूं। MsgBox परिणाम
अब मैं इस कोड को F5 या मैन्युअल रूप से चलाऊंगा और देखूंगा कि परिणाम संदेश बॉक्स में क्या है।
तो, परिणाम 60 है।
सभी आपूर्ति की गई संख्याओं से, अर्थात, 50, 25 और 60 से, अधिकतम संख्या 60 है।
एक्सेल VBA में मैक्स का उन्नत उदाहरण
सभी कोशिकाओं के माध्यम से चलने और परिणाम पर पहुंचने के लिए वीबीए में लूप बहुत महत्वपूर्ण हैं। हम देखेंगे कि संख्याओं की सूची से अधिकतम मूल्य पर पहुंचने के लिए छोरों के साथ VBA MAX को कैसे संयोजित किया जाए।
मेरे पास उन मदों की सूची और उनके मासिक बिक्री प्रदर्शन की सूची है, जैसा कि नीचे दिखाया गया है।
अब प्रत्येक आइटम के लिए, मैं जानना चाहता हूं कि अधिकतम बिक्री संख्या 4 महीने की है, जैसा कि चित्र में दिखाया गया है।
MAX को excel पर लागू करके, हम इसे कुछ सेकंड में पा सकते हैं।
अब हम देखेंगे कि VBA कोड का उपयोग करके अधिकतम मान कैसे प्राप्त करें।
नीचे दिया गया कोड प्रत्येक आइटम के लिए अधिकतम संख्या खोजने का कार्य करेगा।
कोड:
उप MAX_Example2 () k के लिए 2 से 9 सेल (k, 7) के लिए पूर्णांक के रूप में मंद।
इससे अधिकतम संख्या आसानी से पहचानी जा सकेगी।
अब कोड को मैन्युअल रूप से चलाएं या F5 कुंजी दबाएं और नीचे दिखाए अनुसार परिणाम देखें।
अधिकतम मान माह नाम प्राप्त करने के लिए, नीचे दिए गए कोड का उपयोग करें।
कोड:
उप MAX_Example2 () k के लिए 2 से 9 सेल (k, 7) के लिए पूर्णांक के रूप में Dim k .Value = WorksheetFunction.Max (रेंज ("B" और k & ":" & "E" & k) कक्ष (k, 8) .वैल्यू = वर्कशीटफ़ंक्शन.इंडेक्स (रेंज ("बी 1: ई 1"), वर्कशीटफ़ंक्शन.चैट _ (सेल (के, 7)। वाल्यू, रेंज ("बी" और के & ": &" ई "एंड के)) )) अगला k एंड सब
VBA अधिकतम फ़ंक्शन द्वारा प्रदान किए गए मूल्य के आधार पर, INDEX फ़ंक्शन और MATCH फ़ंक्शन संबंधित लाइन को अगली पंक्ति में वापस कर देगा।
याद रखने वाली चीज़ें
- यदि उनकी डुप्लिकेट संख्या है, तो यह केवल एक नंबर दिखाएगा जो पहले आता है।
- यह एक्सेल में MIN फंक्शन का विपरीत फॉर्मूला है।
- मैक्स एक VBA फ़ंक्शन नहीं है। यह एक्सेल में एक अंतर्निहित फ़ंक्शन है, इसलिए वर्कशीट फ़ंक्शन क्लास का उपयोग कर रहा है।
आप इस एक्सेल टेम्पलेट को यहाँ डाउनलोड कर सकते हैं - वीबीए मैक्स फंक्शन टेम्प्लेट।
