यह आलेख VBA में ActiveSheet ऑब्जेक्ट पर चर्चा करेगा। यह इस बात पर भी चर्चा करेगा कि वर्कशीट्स को कैसे सक्रिय करें, चुनें और कैसे जाएं (और भी बहुत कुछ)। VBA में वर्कशीट के साथ काम करने के बारे में अधिक जानकारी के लिए हमारी पूरी VBA वर्कशीट गाइड पढ़ें।
सक्रिय पत्रक
वीबीए में, एक्टिवशीट वर्तमान में सक्रिय वर्कशीट को संदर्भित करता है। एक समय में केवल एक पत्रक सक्रिय हो सकता है।
वर्कशीट सक्रिय करें (एक्टिवशीट सेट करना)
एक्टिवशीट सेट करने के लिए वर्कशीट का उपयोग करें। सक्रिय करें:
| 1 | कार्यपत्रक ("इनपुट")। सक्रिय करें |
सक्रिय शीट कमांड वास्तव में दृश्यमान शीट को बदलते हुए, शीट पर "जाएगा"।
उपरोक्त उदाहरण शीट (टैब) नाम का उपयोग करता है। इसके बजाय आप वर्कशीट के लिए VBA कोड नाम का उपयोग कर सकते हैं:
| 1 | पत्रक 1. सक्रिय करें |
एक्टिवशीट नाम
एक्टिवशीट नाम प्राप्त करने के लिए:
| 1 | msgbox ActiveSheet.name |
चयनित पत्रक बनाम सक्रिय पत्रक
किसी भी समय, केवल एक शीट ही एक्टिवशीट हो सकती है। हालाँकि, एक साथ कई वर्कशीट का चयन किया जा सकता है।
जब एक से अधिक वर्कशीट का चयन किया जाता है तो केवल "सबसे ऊपर" वर्कशीट को सक्रिय (एक्टिवशीट) माना जाता है।
वर्कशीट का चयन करें
यदि आप किसी कार्यपत्रक को सक्रिय करने के बजाय उसे चुनना चाहते हैं। इसके बजाय .Select का उपयोग करें।
टैब नाम से वर्कशीट का चयन करें
यह अपने शीट टैब नाम के आधार पर वर्कशीट का चयन करता है
| 1 | पत्रक ("इनपुट")। चुनें |
इंडेक्स नंबर द्वारा वर्कशीट का चयन करें
यह अन्य टैब के सापेक्ष इसकी स्थिति के आधार पर वर्कशीट का चयन करता है
| 1 | कार्यपत्रक(1).चुनें |
वीबीए कोड नाम के साथ वर्कशीट का चयन करें
| 1 | पत्रक1.चुनें |
कोड नाम से कार्यपत्रकों का चयन कार्यपत्रक नाम परिवर्तन के कारण होने वाली त्रुटियों को रोक सकता है।
वर्तमान वर्कशीट का चयन करें
वर्तमान वर्कशीट का चयन करने के लिए, ActiveSheet ऑब्जेक्ट का उपयोग करें:
| 1 | एक्टिवशीट।चुनें |
अधिक सक्रिय करें / शीट उदाहरण चुनें
एक्टिवशीट को वेरिएबल पर सेट करें
यह एक्टिवशीट को वर्कशीट ऑब्जेक्ट वेरिएबल को असाइन करेगा।
| 123 | वर्कशीट के रूप में डिम WSसेट ws = एक्टिवशीट |
एक्टिवशीट नाम बदलें
यह एक्टिवशीट नाम बदल देगा।
| 1 | ActiveSheet.Name = "नया नाम" |
एक्टिवशीट के साथ
विथ स्टेटमेंट का उपयोग करने से आप ऑब्जेक्ट्स (जैसे शीट्स या एक्टिवशीट) के साथ काम करते समय अपने कोड को सुव्यवस्थित कर सकते हैं।
| 12345 | एक्टिवशीट के साथनाम = "स्टार्टफ्रेश".कोशिकाएँ।साफ़ करें.रेंज ("A1")। मान = .Nameके साथ समाप्त करना |
ध्यान दें कि आपको कोड की प्रत्येक पंक्ति से पहले "एक्टिवशीट" को दोहराने की आवश्यकता नहीं है। आदेशों की लंबी सूची के साथ काम करते समय यह एक बहुत बड़ा समय बचाने वाला हो सकता है।
चयनित पत्रक के माध्यम से लूप
निम्नलिखित मैक्रो उनके नाम प्रदर्शित करते हुए सभी चयनित शीट्स के माध्यम से लूप करेगा।
| 12345678 | उप GetSelectedSheetsName ()वर्कशीट के रूप में डिम WSActiveWindow.SelectedSheets में प्रत्येक ws के लिएMsgBox ws.Nameअगला wsअंत उप |
गो टू नेक्स्ट शीट
यह कोड अगली शीट पर जाएगा। यदि ActiveSheet अंतिम पत्रक है, तो यह कार्यपुस्तिका के पहले पत्रक में जाएगा।
| 12345 | अगर एक्टिवशीट.इंडेक्स = वर्कशीट्स। फिर गिनेंकार्यपत्रक(1).सक्रिय करेंअन्यथाएक्टिवशीट.अगला.सक्रिय करेंअगर अंत |
