यह ट्यूटोरियल आपको सिखाएगा कि VBA में Arrays के माध्यम से कैसे लूप करें।
VBA का उपयोग करके Arrays के माध्यम से लूप करने के दो प्राथमिक तरीके हैं:
- प्रत्येक लूप के लिए - प्रत्येक लूप के लिए सरणी में प्रत्येक आइटम के माध्यम से लूप होगा।
- अगले लूप के लिए - फॉर नेक्स्ट लूप सरणी के निर्दिष्ट प्रारंभ और अंत स्थितियों के माध्यम से लूप करेगा (हम पूरे सरणी के माध्यम से लूप करने के लिए यूबाउंड और एलबाउंड फ़ंक्शंस का उपयोग कर सकते हैं)।
ऐरे में प्रत्येक आइटम के लिए
NS प्रत्येक लूप के लिए आपको सरणी के प्रत्येक तत्व के माध्यम से लूप करने में सक्षम बनाता है।
12345678910111213141516171819 | उप LoopForArrayStatic ()'एक वैरिएंट सरणी घोषित करें'मंद strNames(१ से ४) स्ट्रिंग के रूप में'सरणी को पॉप्युलेट करें'strNames(1) = "बॉब"strNames(2) = "पीटर"strNames(3) = "कीथ"strNames(4) = "सैम"'सरणी तत्व को पकड़ने के लिए एक प्रकार घोषित करें'डिम आइटम वैरिएंट के रूप में'संपूर्ण सरणी के माध्यम से लूप'strNames में प्रत्येक आइटम के लिए'डीबग विंडो में तत्व दिखाएं।डीबग.प्रिंट आइटमकुंडलीअंत उप |
उपरोक्त प्रक्रिया सरणी में सभी नामों के माध्यम से लूप करेगी।
अगले लूप के लिए
फॉर नेक्स्ट लूप प्रत्येक आइटम के माध्यम से सरणी की निर्दिष्ट शुरुआत और समाप्ति स्थिति पर लूप करेगा।
सरणी के भाग के माध्यम से लूप
आप अपने लूप के लिए प्रारंभ और समाप्ति स्थिति मैन्युअल रूप से निर्दिष्ट कर सकते हैं। यह उपयुक्त हो सकता है यदि आप अपने सरणी आकार को जानते हैं और/या आप केवल किसी सरणी के भाग के माध्यम से लूप करना चाहते हैं।
12345678910111213141516 | उप LoopForNextStatic ()'एक वैरिएंट सरणी घोषित करें'मंद strNames(१ से ४) स्ट्रिंग के रूप में'सरणी को पॉप्युलेट करें'strNames(1) = "बॉब"strNames(2) = "पीटर"strNames(3) = "कीथ"strNames(4) = "सैम"'एक पूर्णांक घोषित करें'डिम आई अस इंटीजर'लूप स्थिति 2 से स्थिति 3 सरणी के लिए'मैं = 2 से 3 . के लिए'तत्काल विंडो में नाम दिखाएं'डिबग। प्रिंट स्ट्रेनाम (i)अगला मैंअंत उप |
ऊपर के उदाहरण में, हमने एरे के पोजिशन 2 और 3 को लूप किया है। तत्काल विंडो निम्नानुसार नाम लौटाएगी।
संपूर्ण सरणी के माध्यम से लूप
इसके बाद, हम संपूर्ण सरणी के माध्यम से लूप करने के लिए UBound और LBound फ़ंक्शंस का उपयोग करेंगे। यह अत्यंत उपयोगी है यदि सरणी की शुरुआत और समाप्ति स्थिति बदल सकती है (उदा। एक गतिशील सरणी):
123456789101112131415161718 | उप लूपफॉरनेक्स्टडायनामिक ()'एक वैरिएंट सरणी घोषित करें'मंद strNames () स्ट्रिंग के रूप में'सरणी प्रारंभ करें'ReDim strNames(१ से ४)'सरणी को पॉप्युलेट करें'strNames(1) = "बॉब"strNames(2) = "पीटर"strNames(3) = "कीथ"strNames(4) = "सैम"'एक पूर्णांक घोषित करें'डिम आई अस इंटीजर'सरणी की निचली सीमा से सरणी की ऊपरी सीमा तक लूप - संपूर्ण सरणी'i = LBound(strNames) के लिए UBound(strNames) के लिए'तत्काल विंडो में नाम दिखाएं'डिबग। प्रिंट स्ट्रेनाम (i)अगला मैंअंत उप |