Vba में हमने डेटा प्रकारों, फ़ंक्शंस वैरिएबल्स और अन्य महत्वपूर्ण कथनों के संग्रह में निर्मित किया है, लेकिन इसके समान ही VBA में हमारे पास एरे की सूची है, जिसमें एक यूज़र एक वेरिएबल्स और यूज़र डिफ़ाइंड फ़ंक्शंस के कलेक्शंस को संशोधित कर सकता है, और कुछ निश्चित हैं इसे डिज़ाइन करने के लिए सरणी सूची के लिए कीवर्ड।
एक्सेल VBA ArrayList
VBA ArrayList एक प्रकार की डेटा संरचना है जिसका उपयोग हम VBA में डेटा को संग्रहीत करने के लिए करते हैं। एक्सेल VBA में ArrayList एक ऐसा वर्ग है जिसका उपयोग मूल्यों की एक सरणी बनाने के लिए किया जाता है। यह, पारंपरिक सरणियों के विपरीत, जहां उन सरणियों की एक निश्चित लंबाई होती है, लेकिन सरणी सूची में कोई निश्चित लंबाई नहीं होती है।
VAB ArrayList VBA सूची का हिस्सा नहीं है; इसके बजाय, यह एक बाहरी पुस्तकालय या वस्तु है जिसे हमें एक्सेस करने से पहले संदर्भ सेट करने की आवश्यकता है।
VBA में एरे किसी भी कोडिंग भाषा का एक अभिन्न अंग हैं। एक्सेल में सरणियों का उपयोग करके, हम "कम सीमा और ऊपरी सीमा" की घोषणा करके एक एकल चर नाम के साथ डेटा स्टोर कर सकते हैं।
नियमित सरणियों के साथ, हमें सरणी की निचली सीमा और ऊपरी सीमा तय करने की आवश्यकता है। हमें स्टेटिक एरे के मामले में वैरिएबल घोषित करने के समय पहले से ही अच्छी तरह से निर्णय लेने की आवश्यकता है, और डायनामिक एरे के मामले में, हमें "रेदिम" स्टेटमेंट का उपयोग करके एरे की घोषणा करने के बाद ऐरो की लंबाई तय करने की आवश्यकता है। VBA।
हालाँकि, हमारे पास एक और विकल्प है जहां हम निम्न सीमा और ऊपरी सीमा की घोषणा किए बिना "N" मानों की संख्या संग्रहीत कर सकते हैं। इस लेख में, हम आपको उस विकल्प के बारे में बताएंगे, जैसे कि "VBA ArrayList।"
नीचे दिए गए चरणों का पालन करने के लिए VBA ArrayList ऑब्जेक्ट का संदर्भ सेट करें।
चरण 1: उपकरण> संदर्भ पर जाएं।
चरण 2: ऑब्जेक्ट लाइब्रेरी संदर्भ विंडो आपके सामने दिखाई देगी। विकल्प का चयन करें “ mscorlib.dll। ”
स्टेप 3: ओके पर भी क्लिक करें। अब हम VBA ArrayList को एक्सेस कर सकते हैं।
एक्सेल में VBA ArrayList के उदाहरण
नीचे Excel VBA ArrayList के उदाहरण दिए गए हैं।
उदाहरण # 1 - VBA ArrayList का उदाहरण बनाएँ
चूंकि एक्सेल VBA ArrayList एक बाहरी वस्तु है, इसलिए हमें इसका उपयोग शुरू करने के लिए एक उदाहरण बनाने की आवश्यकता है। एक उदाहरण बनाने के लिए, नीचे दिए गए चरणों का पालन करें।
चरण 1: चर को " ArrayList " घोषित करें ।
कोड:
उप ArrayList_Example1 () ArrayList के रूप में मंद ArrayValues उप
चरण 2: चूंकि एरे सूची एक वस्तु है, हमें एक नया उदाहरण बनाने की आवश्यकता है।
कोड:
उप ArrayList_Example1 () ArrayList सेट के रूप में मंद सरणी
चरण 3: अब, हम "जोड़ें" विधि का उपयोग करके सरणी चर में मानों को संग्रहीत कर सकते हैं। नीचे की छवि में, मैंने तीन मान जोड़े हैं।
कोड:
उप ArrayList_Example1 () ArrayList सेट के रूप में Dim ArrayValues = ArrayList ArrayValues।
अब हमने तीन मान निर्दिष्ट किए हैं, हम कैसे पहचानते हैं कि कौन सा पहला है और हम मूल्यों को कैसे दिखा सकते हैं या उन्हें अपनी आवश्यकताओं के लिए उपयोग कर सकते हैं।
यदि आपको पारंपरिक सरणी प्रकार याद है, तो हम इस तरह के "ArrayName (0)" के पहले सरणी मान को संदर्भित करते हैं
इसी तरह, हम यहां भी उसी तकनीक का उपयोग कर सकते हैं।
ArrayValue (0) = "हैलो"
ArrayValue (1) = "अच्छा"
ArrayValue (2) = "मॉर्निंग"
यह संदेश बॉक्स में दिखाते हैं।
कोड:
उप ArrayList_Example1 () ArrayList सेट के रूप में Dim ArrayValues = ArrayList ArrayValues। 1) और vbNewLine और ArrayValues (2) एंड सब
अब F5 कुंजी या मैन्युअल रूप से कोड का उपयोग करके चलाएं, फिर हम VBA संदेश बॉक्स में "Hello," "Good," और "Morning" देखेंगे।
इस तरह, हम ऐरे लिस्ट ऑब्जेक्ट के साथ किसी भी मान को स्टोर कर सकते हैं।
उदाहरण # 2 - VBA ArrayList का उपयोग करके सेल के लिए स्टोर वैल्यू
आइए देखें कि वर्कशीट में कोशिकाओं को निर्दिष्ट मानों को संग्रहीत करने का उदाहरण क्या है। अब, नीचे दिए गए VBA कोड को देखें।
कोड:
उप ArrayList_Example2 () ArrayList के रूप में मंद मोबाइलनाम, ArrayList के रूप में MobilePrice मंद i, पूर्णांक के रूप में मंदक k के रूप में सेट करें "VIVO" MobileNames.Add "LG" जोड़ें MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 End Sub
With two array lists, I have stored Names of the Mobile and Prices of the Mobile. Now we need to insert these values to the worksheet for this. We need to use loops. The below loop will do the job for me.
Below is the Overall code to store values to the worksheet.
Code:
उप ArrayList_Example2 () ArrayList के रूप में Dim MobileNames, ArrayList के रूप में MobilePrice मंद i, पूर्णांक के रूप में Dim K, पूर्णांक के रूप में MobileNames = नया ArrayList 'मोबाइल का नाम Names.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames "VIVO" MobileNames.Add "LG" जोड़ें MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 k = 0 के लिए i = 1 से 5 सेल (i, 1) के लिए। .Value = MobileNames (k) कक्ष (i, 2) .Value = MobilePrice (k) k = k + 1 अगला i
जब हम कोड को मैन्युअल रूप से चलाते हैं या फिर F5 कुंजी का उपयोग करते हैं, तो हमें नीचे परिणाम मिलेगा।
