हम अपने VBA डेटा प्रकार - चर और स्थिरांक ट्यूटोरियल में पहले ही देख चुके हैं कि चर और स्थिरांक क्या हैं। अब हम VBA में रेंज ऑब्जेक्ट को देखने जा रहे हैं और एक वेरिएबल को रेंज ऑब्जेक्ट के रूप में कैसे घोषित करें। रेंज ऑब्जेक्ट का उपयोग VBA में कक्षों या एकाधिक कक्षों को दर्शाने के लिए किया जाता है। तो, यह आपके कोड में उपयोग करने के लिए बहुत उपयोगी है।
वीबीए रेंज और सेल के बारे में अधिक जानकारी के लिए यहां क्लिक करें।
वीबीए रेंज ऑब्जेक्ट
आप किसी एकल कक्ष को संदर्भित करने के लिए श्रेणी ऑब्जेक्ट का उपयोग कर सकते हैं। उदाहरण के लिए, यदि आप अपने VBA कोड में सेल A1 को संदर्भित करना चाहते हैं तो आप VBA रेंज ऑब्जेक्ट का उपयोग कर सकते हैं जैसा कि नीचे दिए गए कोड में दिखाया गया है:
1234 | सब रेफ़रिंग टूएएसिंगलसेल यूज़िंग द रेंजऑब्जेक्ट ()रेंज ("ए 1")। मान = 89रेंज ("ए 1")। फ़ॉन्ट। बोल्ड = ट्रूअंत उप |
जब आप अपना कोड चलाने के लिए अपने कीबोर्ड पर रन या F5 दबाते हैं तो आपको अपने वास्तविक वर्कशीट में निम्नलिखित परिणाम मिलते हैं:
आप एकाधिक कक्षों या श्रेणियों को संदर्भित करने के लिए श्रेणी ऑब्जेक्ट का उपयोग कर सकते हैं। उदाहरण के लिए, यदि आप अपने VBA कोड में सेल रेंज (A1:C1) का उल्लेख करना चाहते हैं तो आप VBA रेंज ऑब्जेक्ट का उपयोग कर सकते हैं जैसा कि नीचे दिए गए कोड में दिखाया गया है:
123456 | सब रेफ़रिंग टू मल्टीपलसेल्स द रेंजऑब्जेक्ट का उपयोग करना ()रेंज ("ए 1: सी 1")। मान = "एबीसी"रेंज ("A1: C1")। बॉर्डर्स (xlEdgeBottom)। लाइन स्टाइल = xlDoubleअंत उप |
जब आप अपना कोड चलाने के लिए अपने कीबोर्ड पर रन या F5 दबाते हैं तो आपको अपने वास्तविक वर्कशीट में निम्न परिणाम मिलते हैं:
एक चर को एक श्रेणी के रूप में घोषित करना
चर को श्रेणी के रूप में घोषित करते समय आपको मंद और सेट कीवर्ड का उपयोग करना होगा। नीचे दिया गया कोड आपको दिखाता है कि एक चर को एक श्रेणी के रूप में कैसे घोषित किया जाए।
123456789101112 | सब डिक्लेयरिंग एंडसेटिंगअरेंज ()रेंज के रूप में मंद rngसेट आरएनजी = रेंज ("ए 10: बी 10")rng.Value = "AutomateExcel"rng.Font.Bold = Trueआरएनजी.चुनेंrng.Columns.AutoFitअंत उप |
परिणाम है:
अपने रेंज ऑब्जेक्ट में विशिष्ट पंक्तियों का चयन करना
आप अपने रेंज ऑब्जेक्ट के भीतर विशिष्ट पंक्तियों का चयन कर सकते हैं। नीचे दिया गया कोड आपको दिखाता है कि यह कैसे करें:
12345678 | उप चयन विशिष्ट पंक्तियाँInTheRangeObject ()रेंज के रूप में मंद rngसेट आरएनजी = रेंज ("ए 1: सी 3")rng.rows(3).Selectअंत उप |
परिणाम है:
अपने रेंज ऑब्जेक्ट में विशिष्ट कॉलम का चयन करना
आप अपने रेंज ऑब्जेक्ट के भीतर विशिष्ट कॉलम चुन सकते हैं। नीचे दिया गया कोड आपको दिखाता है कि यह कैसे करें:
12345678 | उप चयन विशिष्ट कॉलम InTheRangeObject ()रेंज के रूप में मंद rngसेट आरएनजी = रेंज ("ए 1: सी 3")rng.Columns(3).Selectअंत उप |