यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए में एक्टिवसेल ऑफ़सेट का उपयोग कैसे करें।
ActiveCell VBA की एक संपत्ति है जो आपके वर्कशीट में सक्रिय सेल के सेल पते का प्रतिनिधित्व करती है। यदि आपका माउस पॉइंटर सेल A1 में स्थित है तो VBA में ActiveCell प्रॉपर्टी "A1" का सेल पता लौटा देगी। कई गुण और विधियाँ हैं जो ActiveCell से जुड़ी हैं। इस लेख में हम ActiveCell.Offset पद्धति पर ध्यान केंद्रित कर रहे हैं।
ActiveCell.Offset गुण और तरीके
Activecell.Offset में VBA के साथ प्रोग्राम किए जाने के लिए कई गुण और विधियाँ उपलब्ध हैं। उपलब्ध गुणों और विधियों को देखने के लिए, नीचे दी गई प्रक्रिया में निम्नलिखित कथन टाइप करें, और ड्रॉप डाउन सूची देखने के लिए कीबोर्ड पर अवधि कुंजी दबाएं।
विधियों को हरे रंग की विधि आइकन द्वारा दर्शाया गया है, और गुणों को छोटे हाथ के आइकन द्वारा दर्शाया गया है। Activecell.Offset विधि के गुण और विधियाँ Activecell विधि के समान ही हैं।
ActiveCell.Offset सिंटेक्स
Activecell.Offset का सिंटैक्स इस प्रकार है
जहां RowOffset और ColumnOffset ऑफसेट करने के लिए पंक्तियों की संख्या है (नीचे के लिए सकारात्मक संख्या, ऊपर के लिए ऋणात्मक संख्या) या आपके द्वारा ऑफ़सेट किए जाने वाले स्तंभों की संख्या (सकारात्मक संख्याएं ऑफ़सेट दाईं ओर, ऋणात्मक संख्या बाईं ओर)।
ActiveCell.Offset… चुनें
NS एक्टिवसेल.ऑफ़सेट… चुनें विधि Activecell.Offset विधि के साथ सबसे अधिक उपयोग की जाने वाली विधि है। यह आपको अपनी वर्कशीट में किसी अन्य सेल में जाने की अनुमति देता है। आप इस पद्धति का उपयोग अपनी कार्यपत्रक में स्तंभों, या ऊपर या नीचे पंक्तियों में जाने के लिए कर सकते हैं।
एक पंक्ति में नीचे जाने के लिए, लेकिन उसी कॉलम में रहें:
| 1 | एक्टिवसेल.ऑफ़सेट(1,0).चुनें |
एक कॉलम में जाने के लिए, लेकिन एक ही पंक्ति में रहें:
| 1 | सक्रिय सेल। ऑफसेट (0,1)। चुनें |
एक पंक्ति में और एक कॉलम में नीचे जाने के लिए:
| 1 | सक्रिय सेल। ऑफसेट (1,1)। चुनें |
एक पंक्ति को ऊपर ले जाने के लिए:
| 1 | सक्रिय सेल। ऑफसेट (-1,0)। चुनें |
किसी स्तंभ को बाईं ओर ले जाने के लिए:
| 1 | Activecell.Offset(0,-1).Select |
नीचे की प्रक्रिया में, हम कोशिकाओं की एक श्रृंखला के माध्यम से लूप कर रहे हैं और एक पंक्ति को नीचे ले जा रहे हैं, और एक कॉलम में जैसे हम लूप करते हैं:
| 12345678 | सब एक्टिवसेलटेस्ट ()मंद x पूर्णांक के रूप मेंरेंज ("ए 1")। चुनेंx = 1 से 10 . के लिएएक्टिवसेल = xActiveCell.Offset(1, 1).Selectअगला एक्सअंत उप |
जिसका परिणाम नीचे दिए गए ग्राफिक में दिखाया गया है:
लूप i (1-10) का मान में डालता है सक्रिय कक्ष, और फिर यह का उपयोग करता है सक्रिय सेल। ऑफसेट संपत्ति एक पंक्ति को नीचे ले जाने के लिए, और एक कॉलम में दाईं ओर - इस लूप को 10 बार दोहराएं।
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
Activecell के साथ रेंज ऑब्जेक्ट का उपयोग करना। ऑफसेट चुनें
सक्रिय सेल के साथ रेंज ऑब्जेक्ट का उपयोग करना कभी-कभी कुछ लोगों को भ्रमित कर सकता है।
निम्नलिखित प्रक्रिया पर विचार करें:
| 1234 | उप ActiveCellOffsetRange ()रेंज ("बी 1: बी 10")। चुनेंActiveCell.Offset(1, 1).Range("A1").Selectअंत उप |
ActiveCell.Offset(1,1.Range("A1") के साथ, Range("A1") निर्दिष्ट किया गया है। हालांकि, इसका मतलब यह नहीं है कि शीट में सेल A1 का चयन किया जाएगा। जैसा कि हमने रेंज निर्दिष्ट किया है ("B1:B10"), उस श्रेणी में सेल A1 वास्तव में कार्यपुस्तिका में सेल B1 है। इसलिए सेल को 1 पंक्ति और 1 कॉलम से ऑफसेट किया जाएगा सेल B1 सेल A1 से नहीं।
इसलिए, इस उदाहरण में रेंज ("A1′) की आवश्यकता नहीं है क्योंकि मैक्रो इसके साथ या इसके बिना उसी तरह काम करेगा।
एक्टिवसेल के विकल्प
ऑफ़सेट विधि के साथ एक्टिवसेल का उपयोग करने के बजाय, हम ऑफ़सेट विधि के साथ रेंज ऑब्जेक्ट का भी उपयोग कर सकते हैं।
| 123 | उप रेंज ऑफसेट ()रेंज ("बी 1")। ऑफसेट (0, 1)। चुनेंअंत उप |
उपरोक्त प्रक्रिया कार्यपत्रक में सेल C1 का चयन करेगी।
