विषयसूची
इस ट्यूटोरियल में, हम एक्सेल में रेंज में पंक्तियों के माध्यम से लूप करने के लिए VBA का उपयोग करने के तरीके को कवर करेंगे। हम एक ही काम को बार-बार करने से रोकने के लिए लूप का उपयोग करते हैं। Microsoft Excel में काम करते हुए, हम खुद को ऐसी स्थिति में पा सकते हैं जहाँ हमें एक ही काम को कई बार करना पड़ता है। हम इसे VBA में लूप का उपयोग करके आसानी से कर सकते हैं। इस लेख में, हम VBA के साथ एक्सेल में पंक्तियों के माध्यम से लूप करने के लिए 6 उदाहरण प्रदर्शित करेंगे। पूरे उदाहरण में हम जिस लूप का उपयोग करेंगे, वह ' फॉर-नेक्स्ट लूप ' है।
प्रैक्टिस वर्कबुक डाउनलोड करें
हम यहां से प्रैक्टिस वर्कबुक डाउनलोड कर सकते हैं।<3 VBA लूप थ्रू रोज़ इन रेंज.xlsm
एक्सेल में VBA के साथ रेंज में लूप थ्रू रोज़ के 6 उदाहरण
उदाहरणों को दर्शाने के लिए इस ट्यूटोरियल में, हम निम्नलिखित डेटासेट का उपयोग करेंगे। डेटासेट में 5 सेल्सपर्सन के पहले दो महीनों के लिए बिक्री की मात्रा शामिल है।
1. रेंज वेरिएबल के साथ रेंज में VBA का उपयोग पंक्तियों के माध्यम से लूप करने के लिए करें <10
पहले उदाहरण में, हम एक्सेल में VBA का उपयोग करके रेंज में पंक्तियों के माध्यम से लूप करने के लिए रेंज वेरिएबल का उपयोग करेंगे। हम निम्नलिखित डेटासेट में VBA लूप लागू करेंगे।
आइए इस उदाहरण को करने के चरणों को देखें।
कदम:
- शुरुआत करने के लिए, सक्रिय वर्कशीट ' रेंज वेरिएबल ' पर जाएं।
- इसके अलावा, राइट-क्लिक करें और ' कोड देखें ' विकल्प चुनें। आप प्रेस भी कर सकते हैं Alt + F11 इसे खोलने के लिए।
- उपरोक्त क्रिया उस वर्कशीट के लिए एक कोड विंडो खोलती है .
- इसके अलावा, कोड विंडो में कोड टाइप करें:
9752
- फिर, रन पर क्लिक करें या F5 <2 दबाएं> कोड चलाने के लिए।
और पढ़ें: एक्सेल वीबीए: रेंज में कॉलम के माध्यम से लूप (5 उदाहरण) 0>एक श्रेणी में पंक्तियों के माध्यम से लूपिंग के लिए एक अन्य विकल्प चर का चयन करना है। दूसरे उदाहरण में, हम VBA निम्नलिखित डेटासेट में संख्यात्मक चर के साथ पंक्तियों के माध्यम से पंक्तियों को लूप करने के लिए लागू करेंगे।
आइए एक नजर डालते हैं इस विधि को करने के लिए चरण।
STEPS:
- सबसे पहले, ' संख्यात्मक' नाम की सक्रिय शीट पर राइट-क्लिक करें Value '.
- अगला, ' कोड देखें ' विकल्प चुनें।
- यह क्रिया उस कार्यपत्रक के लिए एक कोड विंडो खोलेगी। आप उस कोड विंडो को खोलने के लिए Alt + F11 भी दबा सकते हैं।
- उस विंडो में निम्न कोड टाइप करें:
5243
- उसके बाद, कोड रन करने के लिए रन पर क्लिक करें या F5 कुंजी दबाएं।
- अंत में, हम निम्न चित्र की तरह परिणाम देख सकते हैं। उपरोक्त कोड संख्या के प्रारूप को दशमलव बिंदुओं में बदल देता है।
पढ़ेंअधिक: वीबीए टू लूप थ्रू रोज़ एंड कॉलम्स इन ए रेंज इन एक्सेल (5 उदाहरण)
3. एक्सेल वीबीए इन यूज़र-सेलेक्टेड रेंज टू लूप थ्रू रोज़ इन रेंज
इन द तीसरा उदाहरण, हम एक श्रेणी में पंक्तियों के माध्यम से लूप करने के लिए उपयोगकर्ता द्वारा चयनित श्रेणी में VBA का उपयोग करेंगे। इसलिए, उपयोगकर्ता डेटासेट के एक चयनित क्षेत्र में एक लूप लागू करने में सक्षम होगा।
आइए इस उदाहरण से जुड़े चरणों को देखें।
स्टेप्स:
- शुरुआत में सेल रेंज ( D5:D9 ) चुनें।
<3
- अगला, ' उपयोगकर्ता चयनित ' नाम की सक्रिय शीट पर राइट-क्लिक करें । विकल्प ' कोड देखें ' चुनें। सक्रिय वर्कशीट के लिए। आप उस कोड विंडो को Alt + F11 दबाकर भी खोल सकते हैं। उस खाली कोड विंडो में निम्न कोड डालें:
1765
- फिर, उस वर्कशीट के कोड को रन करने के लिए रन पर क्लिक करें या F5 <दबाएं 2>कुंजी।
- इसलिए, एक संदेश बॉक्स चयनित श्रेणी का पहला मान दिखाता हुआ दिखाई देता है।
- इसके अलावा, यदि आप ओके पर क्लिक करते हैं तो यह चयनित श्रेणी का दूसरा मान लौटाएगा जो कि सेल D6 है। <15
- यह प्रक्रिया चयनित श्रेणी के अंतिम मान तक जारी रहेगी जो कि सेल D9 है।
- एक्सेल में सक्रिय सेल से श्रेणी का चयन करने के लिए VBA का उपयोग कैसे करें (3 विधियाँ)
- एक्सेल मैक्रो: डाइनैमिक रेंज के साथ मल्टीपल कॉलम सॉर्ट करें (4 तरीके)
- एक्सेल वीबीए में रेंज को ऐरे में कैसे बदलें (3 तरीके)
- सबसे पहले, इनपुट मान 6 सेल B1 और <में 1>सी सेल बी2 में। '। उस कोड विंडो को खोलने का दूसरा तरीका Alt + F11 दबाकर है।
- तीसरा कोड विंडो में निम्न कोड डालें:
<29
और पढ़ें: डेटा के साथ रेंज में पंक्तियों की गणना करने के लिए VBA का उपयोग कैसे करेंएक्सेल (5 मैक्रोज़)
समान रीडिंग्स
4. VBA के साथ डायनेमिक रेंज में लूप थ्रू रो
चौथे उदाहरण में, हम VBA डायनेमिक रेंज में रो को लूप करने के लिए लागू करेंगे . यह उदाहरण पिछले वाले से थोड़ा अलग है। हम एक्सेल वर्कशीट के लिए लूप में रेंज को कस्टमाइज़ करने में सक्षम होंगे। हम इस विधि को दर्शाने के लिए निम्नलिखित डेटासेट का उपयोग करेंगे। निम्नलिखित डेटासेट में, हम श्रेणी के मानों ( B8:C12 ) को एक विशिष्ट मान से भरेंगे।
बस नीचे दिए गए चरणों से गुजरें इस विधि को करने के लिए।
STEPS:
5422
- अब कोड रन करने के लिए रन पर क्लिक करें या F5 की दबाएं।
<12
ध्यान दें:
उपरोक्त छवि में, मान 6 श्रेणी की पहली दो पंक्तियों का प्रतिनिधित्व करता है ( B8:B9 )।
- अंत में, मान 9 में इनपुट करें 6 के बजाय सेल B1 । हम निम्नलिखित छवि में परिणाम देख सकते हैं। हम देखेंगे कि हम रेंज में पूरी पंक्ति के माध्यम से लूप करने के लिए VBA कैसे लागू कर सकते हैं। यह उदाहरण चयनित एक या एकाधिक पंक्तियों से एक विशिष्ट मान की स्थिति का पता लगाएगा।
तो, देखते हैं कि इस उदाहरण को निष्पादित करने के लिए हम किन चरणों का पालन करेंगे।
STEPS:
- शुरू करने के लिए, ' संपूर्ण पंक्ति ' नामक सक्रिय शीट पर राइट-क्लिक करें । विकल्प ' कोड देखें ' चुनें। सक्रिय वर्कशीट के लिए। हम इस कोड विंडो को Alt + F11 दबाकर भी प्राप्त कर सकते हैं।
- इसके बाद, उस कोड विंडो में निम्न कोड डालें:
2260
- फिर, कोड रन करने के लिए रन पर क्लिक करें या F5 कुंजी दबाएं।
<12
6. एक्सेल वीबीए
के साथ रेंज में प्रत्येक एन-वें पंक्ति के माध्यम से लूप करें
अंतिम उदाहरण में, हम वीबीए <2 लागू करेंगे> सीमा में प्रत्येक n-th पंक्ति के माध्यम से लूप करने के लिए। निम्नलिखित डेटासेट में, हम अपने डेटा रेंज की विषम संख्या वाली पंक्तियों में रंग छायांकन लागू करेंगे।
तो, आइए इस विधि को करने के चरणों को देखें।
STEPS:
- सबसे पहले, ' n-th Row ' नाम की एक्टिव शीट पर राइट-क्लिक करें । विकल्प ' कोड देखें ' चुनें। उस वर्कशीट के लिए। हम इस कोड विंडो को Alt + F11 दबाकर भी प्राप्त कर सकते हैं।
- फिर, उस कोड विंडो में निम्न कोड टाइप करें:
9107
- अब कोड रन करने के लिए रन पर क्लिक करें या F5 कुंजी दबाएं।
- अंत में, हम देख सकते हैं कि उपरोक्त कोड हमारे डेटासेट से केवल विषम संख्या वाली पंक्तियों को छायांकित करता है।
और पढ़ें: एक्सेल VBA खाली सेल तक रेंज के माध्यम से लूप करने के लिए (4 उदाहरण)
निष्कर्ष
निष्कर्ष में, यह ट्यूटोरियल आपको 6 रेंज में पंक्तियों के माध्यम से लूपिंग के उदाहरण देता है वीबीए एक्सेल में। अपने कौशल का परीक्षण करने के लिए इस आलेख में निहित अभ्यास वर्कशीट डाउनलोड करें। यदि आपके कोई प्रश्न हैं, तो कृपया बॉक्स में एक टिप्पणी छोड़ देंनीचे। हमारी टीम आपके संदेश का जल्द से जल्द जवाब देने की कोशिश करेगी। अधिक आविष्कारशील Microsoft Excel भविष्य के समाधानों पर नज़र रखें।