यह ट्यूटोरियल प्रदर्शित करेगा कि VBA का उपयोग करके किसी सरणी को किसी श्रेणी में कैसे आउटपुट किया जाए।
आउटपुट (प्रिंट) ऐरे टू रेंज
एक सरणी में संग्रहीत डेटा को आसानी से एक्सेल शीट में आउटपुट किया जा सकता है। ऐसा करने के 3 तरीके हैं।
एक अलग रेंज के लिए आउटपुट डेटा
हम एक्सेल में एक श्रेणी से डेटा के साथ एक सरणी को पॉप्युलेट कर सकते हैं, और फिर डेटा को एक्सेल में एक अलग श्रेणी में आउटपुट कर सकते हैं।
| 12345678 | सार्वजनिक उप परीक्षण आउटपुट ()'सरणी घोषित करें'Dim rnArray () प्रकार के रूप में'श्रेणी के साथ सरणी को पॉप्युलेट करें'rnArray = रेंज ("ए 1: एच 24")'सरणी को कोशिकाओं की एक अलग श्रेणी में आउटपुट करें'रेंज ("J1: Q24") = rnArray ()अंत उप |
संपूर्ण सरणी को कोड की एक पंक्ति में सरणी में कॉपी किया जाता है, और फिर इसे संपूर्ण रूप से शीट पर कोशिकाओं की एक अलग श्रेणी में आउटपुट किया जाता है।
एक ऐरे के माध्यम से लूपिंग और डेटा को आउटपुट करना
यह उदाहरण एक सरणी के माध्यम से लूप करेगा, सरणी को एक श्रेणी में आउटपुट करेगा।
| 12345678910111213 | सार्वजनिक उप टेस्टलूपअरे ()'सरणी घोषित करें'Dim rnArray () प्रकार के रूप में'पंक्तियों की संख्या को संग्रहीत करने के लिए पूर्णांक घोषित करें'पूर्णांक के रूप में मंद iRw'एक सरणी चर के लिए श्रेणी असाइन करें'rnArray = रेंज ("ए 1: ए 10")'सरणी में मानों के माध्यम से लूप'IRw = LBound(rnArray) के लिए UBound(rnArray) के लिए'डेटा के साथ एक अलग श्रेणी को पॉप्युलेट करें'सेल (iRw, 2)। मान = rnArray (iRw, 1)अगला आईआरडब्ल्यूअंत उप |
एलबाउंडतथा यूबाउंडइस मामले में 1 और 10, एक सरणी के प्रारंभिक सूचकांक (लोअर बाउंड) और एंडिंग इंडेक्स (ऊपरी बाउंड) देता है।
ऐरे डेटा को स्थानांतरित करें
हम ऐरे में डेटा को एक्सेल शीट में भी स्थानांतरित कर सकते हैं। ट्रांसपोज़ आपको एक्सेल शीट में क्षैतिज रूप से डेटा प्रदर्शित करने की अनुमति देता है।
उदाहरण के लिए, यदि हमारे पास एक्सेल में राज्यों की एक सूची है और उन्हें स्थानांतरित करना चाहते हैं।
फिर हम निम्नलिखित कोड चला सकते हैं:
| 12345678 | सार्वजनिक उप टेस्टऑटपुटट्रांसपोज़ ()'सरणी घोषित करें'Dim rnArray () प्रकार के रूप में'इसे सीमा के साथ पॉप्युलेट करें'rnArray = रेंज ("ए 1: ए 38")'डेटा ट्रांसफर'रेंज (सेल (1, 3), सेल (1, 40))। वैल्यू = एप्लीकेशन। ट्रांसफर (आरएनएरे)अंत उप |
जिसके परिणामस्वरूप निम्नलिखित होंगे:
डीबग करने के लिए आउटपुट। प्रिंट
हम डिबग विंडो में सरणी मानों को आउटपुट भी कर सकते हैं।
| 12345678910111213 | सार्वजनिक उप टेस्टलूपअरे ()'सरणी घोषित करें'Dim rnArray () प्रकार के रूप में'पंक्तियों की संख्या को संग्रहीत करने के लिए पूर्णांक घोषित करें'पूर्णांक के रूप में मंद iRw'एक सरणी चर के लिए श्रेणी असाइन करें'rnArray = रेंज ("ए 1: ए 10")'पंक्तियों के माध्यम से लूप - 1 से 10'IRw = 1 के लिए UBound(rnArray) के लिए'तत्काल विंडो में आउटपुट'डीबग.प्रिंट rnArray(iRw, 1)अगला आईआरडब्ल्यूअंत उप |
