VBA करो लूप तक - VBA में Do तक का उपयोग करने के लिए स्टेप बाय स्टेप उदाहरण

VBA एक्सेल में लूप तक क्या है?

में लूप तक VBA क्या , हम जब हम बंद करने के लिए लूप चाहते हैं और अंत बयान पाश ही है बयान तक जो साधन के बाद मापदंड निर्धारित करने होंगे। इसलिए यदि स्थिति FALSE है तो यह लूप के अंदर स्टेटमेंट को निष्पादित करता रहेगा लेकिन यदि स्थिति एकदम सही है तो यह Do तक के स्टेटमेंट से बाहर निकल जाएगा।

जैसा कि शब्द ही कहते हैं कि किसी कार्य को करने के लिए जब तक एक कसौटी पर नहीं पहुंच जाते हैं, तब तक करें जब तक कि लगभग सभी प्रोग्रामिंग भाषाओं में लूप का उपयोग न हो जाए, VBA में भी हम कभी-कभी Do का उपयोग लूप तक करते हैं। जब तक लूप का अर्थ कुछ करना है जब तक कि स्थिति TRUE न हो जाए। यह एक तार्किक कार्य की तरह है जो TRUE या FALSE पर आधारित है।

यह डू जबकि लूप के विपरीत है जहां डू तब तक लूप चलाता है जब तक कि स्थिति TRUE होती है।

वाक्य - विन्यास

तब तक करें जब तक लूप में दो प्रकार के वाक्यविन्यास न हों।

सिंटेक्स # 1

(स्थिति) तक करें (कुछ कार्य निष्पादित करें) लूप

सिंटेक्स # 2

क्या (कुछ कार्य निष्पादित करें) लूप तक (स्थिति)

दोनों बहुत समान दिखते हैं, और एक साधारण भेदभाव है।

पहले वाक्यविन्यास में "तब तक करें" लूप पहले स्थिति की जांच करता है और शर्त का परिणाम TRUE या FALSE प्राप्त करता है। यदि स्थिति FALSE है, तो यह कोड निष्पादित करेगा और एक निर्दिष्ट कार्य करेगा, और यदि स्थिति TRUE है, तो यह लूप से बाहर निकल जाएगा।

दूसरे सिंटैक्स में, "डू" लूप करें, सबसे पहले, यह कॉड कार्य को निष्पादित करेगा, फिर यह परीक्षण करता है कि क्या स्थिति TRUE है या FALSE है। यदि स्थिति FALSE है, तो वह फिर से वापस जाएगी और वही कार्य करेगी। यदि स्थिति TRUE है, तो यह सीधे लूप से बाहर निकल जाएगी।

उदाहरण

मुझे पता है कि सिद्धांत भाग में कुछ भी समझना आसान नहीं है, लेकिन चिंता करने की कोई बात नहीं है। लूप को समझने के लिए हम आपको आसान उदाहरण देंगे। पढ़ते रहिये। सीखना शुरू करने के लिए, चलो सेल A1 से A10 तक के पहले 10 सीरियल नंबर डालने का कार्य करते हैं।

"क्या करें" लूप लगाने के लिए नीचे दिए गए चरणों का पालन करें।

चरण 1: उपप्रकार शुरू करने के लिए पहले एक मैक्रो नाम बनाएँ।

कोड:

उप Do_Until_Example1 () उप सब

चरण 2: "लॉन्ग" के रूप में एक चर को परिभाषित करें मैंने "x" को एक लंबे डेटा प्रकार के रूप में परिभाषित किया है।

डिम एक्स अस लॉन्ग

चरण 3: अब, शब्द "दर्ज करें।"

तब तक करो

चरण 4: लूप नाम शुरू करने के बाद, "x = 11" के रूप में स्थिति दर्ज करें।

एक्स = 11 तक करें

x = 11 वह तार्किक परीक्षण है जिसे हमने लागू किया है। तो यह रेखा x को 11 के बराबर होने तक लूप चलाने के लिए कहती है।

चरण 5: CELLS संपत्ति लागू करें, और 1 से 10 तक सीरियल नंबर डालें।

कक्ष (x, 1) .Value = x

नोट: यहाँ, हमने उल्लेख किया है कि "x" 1 से शुरू होता है, इसलिए पहले x मान 1 के बराबर है। जहाँ भी "x" 1 के बराबर है।

चरण 6: अब "LOOP" शब्द दर्ज करके लूप बंद करें।

उप Do_Until_Example1 () मंद x जब तक x = 11 कक्ष (x, 1) तक लंबे समय तक करें। लंबू = x लूप।

अंत उप

ठीक है, हम कोडिंग भाग के साथ कर रहे हैं, अब हम लूप को बेहतर ढंग से समझने के लिए लाइनों द्वारा कोड्स लाइन का परीक्षण करेंगे।

लाइन को लाइन कोड द्वारा चलाने के लिए, पहले F8 कुंजी दबाएं।

यह पहले पीले रंग द्वारा मैक्रो नाम को उजागर करेगा।

जब आप येलो लाइन देख सकते हैं, तो यह कहता है कि एफ 8 कुंजी को एक बार दबाने पर निष्पादित करने के बारे में द्वारा निष्पादित नहीं किया जाता है।

अब F8 कुंजी को एक बार दबाएं, पीली लाइन लूप तक जाएगी।

अब लूप को समझने के लिए, चर "x" पर एक कर्सर रखें और चर "x" का मान देखें।

तो, एक्स = 0। चूंकि हाइलाइट की गई लाइन लूप की पहली लाइन है, इसलिए "x" का मान शून्य है, इसलिए F8 कुंजी को एक बार फिर से दबाएं और "x" का मान देखें। उस निकास से पहले, कोड चल रहा है और 1 के रूप में "x" मान निर्दिष्ट करें।

अब फिर से, F8 कुंजी दबाकर लूप चलाने की शुरुआत करें। "X" का मान देखें।

अब "x" का मान 1 के रूप में दिखाई दे रहा है। चर "x" के लिए वृद्धिशील मान है, हमें लूप के अंदर x = x + 1 के रूप में चर "x" के मान को पुन: असाइन करने की आवश्यकता है।

अब F8 कुंजी को एक बार दबाएं, और हमें सेल A1 में 1 का मान मिलना चाहिए।

अब एक बार फिर F8 कुंजी दबाएं और देखें कि "x" का मान क्या है।

चर "x" का मान अब 2 है। तो हमारी स्थिति लूप को चलाने के लिए कहती है जब तक कि स्थिति TRUE नहीं हो जाती, इसलिए हमारा लूप तब तक चलता रहता है जब तक कि "x" का मान 11 नहीं हो जाता।

F8 को एक बार और दबाएं। यह "डू तब तक" लूप लाइन पर वापस आ जाएगा।

F8 कुंजी को दो बार दबाएं, और हमें सेल A2 में 2 का मान मिलेगा।

फिर से F8 कुंजी दबाएं और "x" का मान 3 हो जाता है।

F8 कुंजी को फिर से दबाएं यह एक बार फिर से लूप में वापस आ जाएगा।

इस तरह, यह लूप फिर से कार्य निष्पादित करता रहेगा जब तक कि "x" का मान 11. नहीं हो जाता। अब मैंने लूप को तब तक निष्पादित किया है जब तक कि "x" मान 11 नहीं हो जाता।

अब, यदि मैं F8 दबाता हूं, तो यह अभी भी लूप में वापस जाएगा।

लेकिन अगर मैं अब F8 कुंजी दबाता हूं, तो यह लूप से बाहर निकल जाएगा क्योंकि लागू स्थिति "TRUE" हो जाएगी, अर्थात, x = 11।

इसलिए हमारे पास एक्सेल शीट में 1 से 10 तक के सीरियल नंबर हैं।

तो, यह "डू तक" लूप का मूल विचार है। किसी भी लूप को समझने के लिए, आपको कोड लाइन को लाइन से चलाने की आवश्यकता है जब तक कि आपको छोरों के बारे में पूरी जानकारी नहीं मिल जाती।

दिलचस्प लेख...