विषय - सूची
यह आलेख प्रदर्शित करेगा कि VBA फ़ंक्शन का उपयोग करके एक ऐरे को कैसे वापस किया जाए।
वीबीए फंक्शन रिटर्न ऐरे
सरणी वापस करने के लिए फ़ंक्शंस का उपयोग करते समय, मैं दृढ़ता से प्रकार प्रकार के साथ सरणी घोषित करने की अनुशंसा करता हूं:
| 123 | फंक्शन रिटर्नअरे () वेरिएंट के रूप मेंअंत समारोह |
भिन्न सरणी के साथ काम करना आसान है। ऐरे का आकार कम चिंता का विषय हो जाता है।
फंक्शन रिटर्न ऐरे उदाहरण
यहां एक फ़ंक्शन का एक उदाहरण दिया गया है जो एक सरणी देता है:
| 1234567891011121314151617181920212223242526272829 | फंक्शन रिटर्नअरे () वेरिएंट के रूप मेंडिम टेम्पअर्र ऐज वैरिएंट'नई अस्थायी सरणी बनाएँ'ReDim tempArr(१ से ३, १ से २)'ऐरे मान असाइन करें'tempArr(1, 1) = "स्टीव"tempArr(1, 2) = "जॉनसन"tempArr(2, 1) = "रयान"tempArr(2, 2) = "जॉनसन"tempArr(3, 1) = "एंड्रयू"tempArr(3, 2) = "स्कॉट"'आउटपुट ऐरे'रिटर्नअरे = tempArrअंत समारोहउप टेस्टट्रांसपोज़एरे ()डिम आउटपुटअरे वैरिएंट के रूप में'कॉल रिटर्न फंक्शन'आउटपुटएआर = रिटर्नअरे ()'टेस्ट आउटपुट'MsgBox आउटपुटArr(2, 1)अंत उप |
ध्यान दें कि हमने आकार के मुद्दों से बचने के लिए डेटा प्रकार = प्रकार के साथ Arrays घोषित किया है।
यह उदाहरण एक इनपुट के रूप में एक सरणी लेता है, सरणी को स्थानांतरित करता है, और नए ट्रांसपोज़्ड सरणी को आउटपुट करता है:
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 | फंक्शन TransposeArray(MyArray as Variant) as Variantमंद x जितना लंबा, y जितना लंबाडिम मैक्सएक्स जितना लंबा है, मिनएक्स जितना लंबा हैमंद अधिकतम Y जितना लंबा, न्यूनतम Y जितना लंबाडिम टेम्पअर्र ऐज वैरिएंट'ऊपरी और निचली सीमाएँ प्राप्त करें'मैक्सएक्स = यूबाउंड (माईअरे, 1)मिनएक्स = एलबाउंड (माईअरे, १)मैक्सवाई = यूबाउंड (माईअरे, 2)minY = LBound(MyArray, 2)'नई अस्थायी सरणी बनाएँ'ReDim tempArr(minX से maxX, minY to maxX)'सरणी को स्थानांतरित करें'x = minX से अधिकतमX . के लिएy = minY से अधिकतम Y . के लिएtempArr(y, x) = MyArray(x, y)अगला yअगला एक्स'आउटपुट ऐरे'TransposeArray = tempArrअंत समारोहउप टेस्टट्रांसपोज़एरे ()डिम टेस्टअर्र(१ से ३, १ से २) वैरिएंट के रूप मेंडिम आउटपुटअरे वैरिएंट के रूप में'ऐरे मान असाइन करें'testArr(1, 1) = "स्टीव"testArr(1, 2) = "जॉनसन"testArr(2, 1) = "रयान"testArr(2, 2) = "जॉनसन"testArr(3, 1) = "एंड्रयू"testArr(3, 2) = "स्कॉट"'कॉल ट्रांसफर फंक्शन'outputArr = TransposeArray (testArr)'टेस्ट आउटपुट'MsgBox आउटपुटArr(2, 1)अंत उप |
