श्रेणी में प्रत्येक कॉलम के लिए अधिकतम मान ज्ञात करें
निम्न फ़ंक्शन एक श्रेणी में प्रत्येक कॉलम में अधिकतम मान लौटाएगा:
फंक्शन Max_Each_Column(Data_Range as Range) वैरिएंट Dim TempArray() डबल के रूप में, i जब तक Data_Range कुछ भी नहीं है तो Data_Range ReDim TempArray(1 To .Columns.Count) के साथ फ़ंक्शन से बाहर निकलें i = 1 से .Columns के लिए। TempArray की गणना करें (i) ) = एप्लिकेशन। मैक्स (कॉलम (i)) अगला अंत Max_Each_Column = TempArray एंड फंक्शन के साथ
हम परिणाम प्रदर्शित करने के लिए निम्न की तरह एक सबरूटीन का उपयोग कर सकते हैं:
प्राइवेट सब कमांडबटन1_क्लिक () डिम आंसर वैरिएंट डिम नंबर_ऑफ_कोल्स के रूप में इंटीजर डिम के रूप में मैं इंटीजर No_of_Cols = रेंज ("B5: G27")। कॉलम। काउंट रीडिम उत्तर (No_of_Cols) उत्तर = Max_Each_Column (शीट्स ("शीट 1")। रेंज ("शीट 1")। B5:g27")) के लिए i = 1 से No_of_Cols MsgBox उत्तर (i) अगला i एंड सब
इसलिए:
उपरोक्त प्रत्येक कॉलम के लिए 990,907, 992, 976,988 और 873 लौटाएगा।
[यूडीएफ के भीतर सरणियों की बारीकियां हल करने के लिए माइक रिकसन को विशेष धन्यवाद]
