विषय - सूची
यह ट्यूटोरियल आपको सिखाएगा कि VBA का उपयोग करके किसी सरणी को कैसे स्थानांतरित किया जाए।
स्थानान्तरित सरणी
यह फ़ंक्शन 2-आयामी सरणी को स्थानांतरित करेगा:
| 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)अंत उप |
इस फ़ंक्शन का परीक्षण करने के लिए, प्रक्रिया को कॉल करें TestTransposeArray: यहां एक प्रारंभिक सरणी testArr बनाया गया है और outputArr अंतिम ट्रांसपोज़्ड सरणी है।
वर्कशीट फंक्शन। ट्रांसफर
इसके बजाय, आप किसी सरणी को Excel में स्थानांतरित करना चाह सकते हैं। ऐसा करने के लिए, आप एक्सेल ट्रांसपोज़ वर्कशीट फ़ंक्शन का उपयोग कर सकते हैं।
यह प्रक्रिया ट्रांसपोज़ वर्कशीट फ़ंक्शन का उपयोग करके एक 2D सरणी को एक एक्सेल श्रेणी में स्थानांतरित करेगी:
| 12345678910111213141516171819202122232425 | सब टेस्टट्रांसपोज़एरे_वर्कशीटएफएक्स ()डिम मैक्सएक्स जितना लंबा है, मिनएक्स जितना लंबा हैमंद अधिकतम Y जितना लंबा, न्यूनतम Y जितना लंबा'ऐरे बनाएं और मान असाइन करें'Dim MyArray(१ से ३, १ से २) वैरिएंट के रूप मेंMyArray(1, 1) = "स्टीव"MyArray(1, 2) = "जॉनसन"MyArray(2, 1) = "रयान"MyArray(2, 2) = "जॉनसन"MyArray(3, 1) = "एंड्रयू"MyArray(3, 2) = "स्कॉट"'ऊपरी और निचली सीमाएँ प्राप्त करें'मैक्सएक्स = यूबाउंड (माईअरे, 1)मिनएक्स = एलबाउंड (माईअरे, १)मैक्सवाई = यूबाउंड (माईअरे, 2)minY = LBound(MyArray, 2)'एरे को एक्सेल में ट्रांसफर करें'रेंज ("ए 1")। आकार बदलें (अधिकतम - न्यूनतम + 1, मैक्सएक्स - मिनएक्स + 1)। मान = _एप्लीकेशन.वर्कशीटफंक्शन।ट्रांसपोज़ (MyArray)अंत उप |
