वीबीए सरणी चर

सरणी ट्यूटोरियल
ऐरे मेगा-गाइड	हां
सरणी आकार प्राप्त करें
सरणी साफ़ करें
फ़िल्टर ऐरे
स्थानान्तरित सरणी
फंक्शन रिटर्न ऐरे
डुप्लिकेट निकालें

हमने अपने VBA डेटा प्रकार - चर और स्थिरांक परिचयात्मक ट्यूटोरियल में चर और स्थिरांक का परिचय दिया है। इस ट्यूटोरियल में, हम यह देखने जा रहे हैं कि ऐरे वेरिएबल क्या हैं और आप अपने कोड में उनका उपयोग कैसे कर सकते हैं।

वीबीए ऐरे वेरिएबल क्या है?

एक VBA सरणी चर एक सूची या तत्वों के समूह को संग्रहीत करता है। एक वीबीए सरणी चर को एक ही नाम के तहत संग्रहीत और समान डेटा प्रकार वाले चर के समूह के रूप में भी सोचा जा सकता है। सरणी में सभी तत्व एक ही प्रकार के होने चाहिए। एक उदाहरण फलों की सूची होगी। एक सरणी पाठ या संख्याओं को संग्रहीत कर सकती है। आप किसी सरणी में किसी तत्व को उसकी अनुक्रमणिका संख्या का उपयोग करके संदर्भित करते हैं। आप मंद, स्थिर, सार्वजनिक या निजी कीवर्ड का उपयोग करके एक सरणी चर घोषित कर सकते हैं।

स्टेटिक ऐरे वेरिएबल

एक स्थिर सरणी चर का सूची में एक निश्चित आकार या आइटम की संख्या निर्धारित होती है। आप निम्न तरीके से एक स्टेटिक सरणी चर घोषित करेंगे:

123456789

उप घोषणामंद जूते (1 से 3) स्ट्रिंग के रूप मेंजूते(1) = "जूते"जूते(2) = "सैंडल"जूते(3) = "स्नीकर्स"अंत उप

आप नीचे दिए गए कोड में दिखाए गए अनुसार इसकी अनुक्रमणिका संख्या को संदर्भित करके सरणी में एक निश्चित तत्व प्रदर्शित कर सकते हैं:

1234567891011

उप घोषणामंद जूते (1 से 3) स्ट्रिंग के रूप मेंजूते(1) = "जूते"जूते(2) = "सैंडल"जूते(3) = "स्नीकर्स"डीबग.प्रिंट जूते(1)अंत उप

यदि आप अपना कोड चलाने के लिए F5 दबाते हैं तो आपको तत्काल विंडो में निम्नलिखित परिणाम प्राप्त होंगे:

गतिशील सरणी चर

एक गतिशील सरणी चर का आकार रनटाइम पर बदलता है और दूसरे शब्दों में केवल रनटाइम पर सेट किया जाता है। आप शुरू में स्टेटिक ऐरे वैरिएबल के लिए ऐरे में आइटम्स या एलिमेंट्स की संख्या की घोषणा नहीं करते हैं, लेकिन आप डायनेमिक ऐरे के आकार या आइटम्स की संख्या निर्दिष्ट करने के लिए रीडिम कीवर्ड का उपयोग करते हैं। फिर आप ReDim कीवर्ड का उपयोग करके अपनी सरणी का आकार बदल सकते हैं:

123456789101112131415161718192021

सब डिक्लेयरिंगADynamicArrayVariable ()मंद भिन्न सब्जियां () स्ट्रिंग के रूप मेंअलग-अलग सब्जियां(3)विभिन्न सब्जियां(1) = "गाजर"विभिन्न सब्जियां (2) = "कद्दू"विभिन्न सब्जियां(3) = "बटरनट"MsgBox Join(विभिन्न सब्जियां, vbCr)रेडिम डिफरेंट वेजिटेबल्स(4)विभिन्न सब्जियां(1) = "गाजर"विभिन्न सब्जियां (2) = "कद्दू"विभिन्न सब्जियां(3) = "बटरनट"विभिन्न सब्जियां(4) = "गोभी"MsgBox Join(विभिन्न सब्जियां, vbCr)अंत उप

जब आप इस कोड को चलाते हैं, तो आपको सरणी में सभी आइटम्स के साथ संदेश बॉक्स मिलता है जो कि ReDim कीवर्ड का उपयोग करके निर्दिष्ट किया गया था, फिर आपको सरणी में आइटम्स की अद्यतन संख्या दिखाते हुए एक और संदेश बॉक्स मिलता है।

परिणाम है: