इस लेख में, हम VBA कोड का उपयोग करके सरणी आकार को खोजने के लिए चरण-दर-चरण मार्गदर्शन प्रदान करते हैं।
VBA कोड का उपयोग करके एक ऐरे का आकार कैसे पता करें?
Excel VBA कोड का उपयोग करके सरणी आकार को खोजने के लिए चरणों का पालन करें।
- चरण 1: आइए पहले बुनियादी से शुरू करते हैं, VBA में वैरिएबल डेटा प्रकार के रूप में एक चर घोषित करते हैं।
कोड:
उप Array_Size () वेर माइंड ऐरे वेरिएंट एंड सब
- चरण 2: इस चर के लिए ARRAY फ़ंक्शन का उपयोग करें और नीचे दिखाए अनुसार कुछ मान निर्दिष्ट करें।
कोड:
सब Array_Size () डिम MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub
- चरण 3: ठीक है, हमने सरणी नाम "MyArray" के लिए कुछ मान निर्दिष्ट किए हैं।
मान लें कि अगर हमें इन सरणी मानों को कक्षों में संग्रहीत करने के लिए लूप लिखने की आवश्यकता है, तो हमें यह तय करने की आवश्यकता है कि लूप को कितनी बार चलाना है। यह उस मान की संख्या पर निर्भर करता है जिस पर सरणी है।
ठीक है, अब सरणी नाम "MyArray" को दिए गए मानों की संख्या को देखें, सरणी को दिए गए कुल 7 मान हैं, इसलिए अब हम जानते हैं कि किसी सरणी के मानों को कक्षों में संग्रहीत करने के लिए लूप को कितनी बार चलाना है ।
- चरण 4: VBA में लूप लिखने के लिए पूर्णांक के रूप में एक और चर घोषित करें।
कोड:
उप Array_Size () डिम मायर्रे अस वैरिअंट मायर्रे = ऐरे ("जान", "फरवरी", "मार्च", "अप्रैल", "मे", "जून", "जूल") डिम k इंटेगर फॉर के = 1 से 7 के लिए अगला k अंत उप
- चरण ५: हमने जाना कि हमने १ से go से शुरू होने वाले फॉर लूप को खोला है, लूप के अंदर CELLS प्रॉपर्टी को स्टोर करें जैसा कि नीचे दिखाया गया है।
कोड:
सब Array_Size () मंद MyArray अस वैरिएंट MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Integer for k = 1 to 7 कक्ष (k, 1) .Value = MyArray (k) अगला k अंत उप
- चरण 6: ठीक है, अब एक एफ 8 फ़ंक्शन कुंजी दबाकर लाइन द्वारा कोड लाइन निष्पादित करें। पहली बार F8 कुंजी दबाने पर, यह मैक्रो आरंभ करेगा।
- चरण 7: अब F8 दबाएं यह सरणी मान असाइनिंग लाइन पर कूद जाएगा।
- चरण 8: अब सरणी नाम के रूप में "MyArray" में F8 प्रेस करने के लिए कोई मूल्य नहीं है, और सभी उल्लिखित मान सरणी चर में दिए जाएंगे।
- चरण 9: अब लूप चलना शुरू हो जाएगा और 2 बार F8 कुंजी दबाएं और देखें कि सेल A1 में हमें क्या मूल्य मिलता है।
- उफ़ !!! पकड़ें, सरणी चर में हमारा पहला मूल्य "जन" है, लेकिन हमें दूसरा मान "फरवरी" के रूप में मिला है जब अभी भी पहला मूल्य लूप चल रहा है।
- चरण 10: ऐसा इसलिए है क्योंकि जब आपके सरणी मान की गणना शून्य से शुरू होती है, तो 1 से नहीं, इसलिए हमें शुरुआती लूप को शून्य के रूप में शामिल करना होगा।
- चरण 11: एक बार लूप की शुरुआती स्थिति एक बार कम हो जाने के बाद उसी तरह से समाप्त होने पर भी 1 से कम होना चाहिए, इसलिए 7 के बजाय 6 को समाप्त करें।
- चरण 12: एक बार जब लूप शुरू और समाप्त होता है, तो हमें एक और ट्वीक करने का निर्णय लिया जाता है, यानी CELLS प्रॉपर्टी में हमने “k” वैरिएबल को डायनेमिक सेल पिकर के रूप में उपयोग किया है, लेकिन चूंकि हमारा लूप शून्य से शुरू होता है, इसलिए कोई भी सेल शून्य से शुरू नहीं होता है , इसलिए चर "k" में प्लस 1 जोड़ें।
कोड:
सब Array_Size () डिम MyArray as Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Integer for k = 0 से 6 के लिए। कक्ष (k + 1, 1) .Value = MyArray (k) अगला k अंत उप
- चरण 13: तो अब पहली बार लूप चलाने पर "k" मान शून्य है, और चूंकि हमने प्लस 1 जोड़ा है, इसलिए "k" मान 1 होगा इसलिए सेल A1 को संदर्भित करता है।
- चरण 14: अब कोड चलाएं, और सरणी के सभी मान कक्षों में संग्रहीत किए जाएंगे।
हालाँकि, इस उदाहरण में, हमने लूप शुरू करने और समाप्त होने का आकार मैन्युअल रूप से तय किया है, लेकिन सरणी का आकार LBOUND और UBOUND फ़ंक्शन का उपयोग करके आसानी से निर्धारित किया जा सकता है।
स्वचालित रूप से एक सरणी का आकार प्राप्त करें
- चरण 1: जब हम उपरोक्त में लूप शुरू करने और समाप्त करने वाले बिंदु को शामिल करते हैं, तो हमने मैन्युअल रूप से मानों की संख्या को गिना है लेकिन सरणी का उपयोग LBOUND फ़ंक्शन को शुरू करने के लिए किया है और इसके लिए "MyArray" चर नाम दिया है।
- चरण 2: और अंतिम सरणी आकार निर्धारित करने के लिए UBOUND फ़ंक्शन का उपयोग करें और सरणी नाम "MyArray" दर्ज करें।
कोड:
उप Array_Size () मंद MyArray अस वैरिएंट MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k इंटर्जर के लिए k = Lboubd (MyArray) ) UBound (MyArray) कक्ष (k + 1, 1) के लिए। प्रस्ताव = MyArray (k) अगला k अंत उप
- चरण 3: ठीक है अब लाइन कोड द्वारा लाइन शुरू करें और F8 कुंजी को तब तक दबाएं जब तक कि यह लूप स्टार्टिंग पॉइंट तक न पहुंच जाए।
- चरण 4: अब सबसे पहले अपने कर्सर को "LBound (MyArray)" पर रखें और देखें कि यह क्या कहता है।
- चरण 5: प्रारंभिक संख्या यह कहती है कि यह शून्य है, अब कर्सर को "UBound (MyArray)" पर रखें और देखें कि यह क्या कहता है।
यह सरणी आकार 6 के रूप में कहता है, इसलिए जैसे हमने मैन्युअल रूप से शुरू करने और समाप्त करने का उल्लेख किया है, यूबीओडी और एलबीओडी स्वचालित रूप से हमारे लिए संख्याएं उठाते हैं।
