/ / एक्सेल वीबीए में परिभाषित रेंज के माध्यम से लूप

एक्सेल वीबीए में परिभाषित रेंज के माध्यम से लूप

नीचे हम एक कार्यक्रम देखेंगे एक परिभाषित सीमा के माध्यम से loops। उदाहरण के लिए, जब हम रेंज में संख्याओं को स्क्वायर करना चाहते हैं ("ए 1: ए 3")। क्या आप जानते थे कि आप एक गतिशील रेंज के माध्यम से भी लूप कर सकते हैं?

परिस्थिति:

एक्सेल वीबीए में परिभाषित रेंज के माध्यम से लूप

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

1. सबसे पहले, हम दो रेंज वस्तुओं की घोषणा करते हैं। हम रेंज ऑब्जेक्ट्स आरएनजी और सेल कहते हैं।

Dim rng As Range, cell As Range

2. हम रेंज ऑब्जेक्ट आरएनजी रेंज ("ए 1: ए 3") के साथ शुरू करते हैं।

Set rng = Range("A1:A3")

3. प्रत्येक अगला लूप के लिए जोड़ें।

For Each cell In rng

Next cell

नोट: आरएनजी और सेल यादृच्छिक रूप से यहां चुने गए हैं, आप किसी भी नाम का उपयोग कर सकते हैं। इन नामों को अपने शेष कोड में संदर्भित करना याद रखें।

4. अगला, हम इस सीमा में प्रत्येक सेल को चौकोर करते हैं। इसे प्राप्त करने के लिए, लूप पर निम्न कोड पंक्ति जोड़ें:

cell.Value = cell.Value * cell.Value

जब आप पत्रक पर आदेश बटन क्लिक करते हैं, तो परिणाम:

परिभाषित रेंज परिणाम के माध्यम से लूप

5. यदि आप प्रत्येक सेल को यादृच्छिक रूप से चयनित श्रेणी में देखना चाहते हैं, तो बस इसे प्रतिस्थापित करें:

Set rng = Range("A1:A3")

साथ में:

Set rng = Selection

6. अब, उदाहरण के लिए रेंज का चयन करें ("ए 1: ए 2")।

एक्सेल वीबीए में चयन के माध्यम से लूप

जब आप पत्रक पर आदेश बटन क्लिक करते हैं, तो परिणाम:

चयन परिणाम के माध्यम से लूप

यह भी पढ़ें: