यह ट्यूटोरियल समझाएगा कि VBA में करंट रीजन का उपयोग कैसे करें।
NS वर्तमान क्षेत्र VBA में संपत्ति उन सभी कक्षों का चयन करने का एक तरीका है जो उस श्रेणी के भीतर समाहित हैं जिसके साथ आप काम करना चाहते हैं। जब तक सीमा के भीतर की कोशिकाएँ सभी क्रमागत हैं या एक दूसरे को 'स्पर्श' कर रही हैं, तब तक वर्तमान क्षेत्र क्षेत्र में हर सेल का चयन करेगा।
वर्तमानक्षेत्र सिंटेक्स
वाक्यविन्यास बहुत सरल है:
| 1 | रेंज ("E11")। CurrentRegion.Select |
जहां आप उस सेल को निर्दिष्ट करेंगे जिसका वर्तमान क्षेत्र आप चुनना चाहते हैं और फिर इसका उपयोग करें CurrentRegion.Select सेल की श्रेणी का चयन करने के लिए संपत्ति।
वर्तमान क्षेत्र प्राप्त करना
निम्नलिखित कार्यपत्रक पर विचार करें।
निम्नलिखित उप प्रक्रिया डेटाबेस के भीतर सभी कोशिकाओं का चयन करेगी:
| 1234567 | उप FindCurrentRegion ()रेंज के रूप में मंद rng'रेंज को सेल E11 होने के लिए सेट करें'सेट आरएनजी = रेंज ("ई 11")'वर्तमान क्षेत्र का चयन करें'rng.CurrentRegion.Selectअंत उप |
यदि हम रूटीन चलाते हैं, तो सभी कोशिकाओं में वर्तमान क्षेत्र सेल E11 का चयन किया जाएगा।
यदि हम आसन्न कोशिकाओं की सामग्री को हटाते हैं, और दिनचर्या को फिर से चलाते हैं, तो निम्नलिखित को वर्तमान क्षेत्र के रूप में चुना जाएगा।
हालाँकि यदि हम और भी अधिक डेटा हटाते हैं, तो हम सेल E11 के वर्तमान क्षेत्र के लिए नीचे दिए गए उदाहरण के साथ समाप्त हो सकते हैं।
जानकारी को D13 में डालते हुए, हम निम्नलिखित के साथ समाप्त होते हैं:
NS वर्तमान क्षेत्र इसलिए दूसरा लौटाता है श्रेणी आपके द्वारा प्रदान की गई श्रेणी को घेरने वाले कब्जे वाले स्तंभों और पंक्तियों के सबसे छोटे संयोजन द्वारा परिभाषित वस्तु।
वर्तमान क्षेत्र में पंक्तियों और स्तंभों की गिनती
हम इसका उपयोग कर सकते हैं वर्तमान क्षेत्र पंक्तियों और स्तंभों की गणना करने के लिए।
| 12345678910111213 | उप FindCurrentRegion ()रेंज के रूप में मंद rngपूर्णांक के रूप में मंद iRwपूर्णांक के रूप में मंद iCol'सीमा निर्धारित करें'सेट आरएनजी = रेंज ("ई 11")'पंक्तियों को गिनें'iRw = rng.CurrentRegion.Rows.Count'कॉलम गिनें'iCol = rng.CurrentRegion.Columns.Count'परिणाम एक संदेश बॉक्स में दिखाएं'MsgBox ("हमारे पास" & iRw & "पंक्तियाँ और" & iCol & "कॉलम हमारे वर्तमान क्षेत्र में हैं")अंत उप |
यदि हम प्रक्रिया चलाते हैं, तो निम्न संदेश बॉक्स दिखाई देगा।
वर्तमान क्षेत्र को साफ़ करना
हम कक्षों की श्रेणी को साफ़ करने के लिए वर्तमान क्षेत्र संपत्ति का भी उपयोग कर सकते हैं।
| 123456 | उप ClearCurrentRegion ()रेंज के रूप में मंद rng'सीमा निर्धारित करें'सेट आरएनजी = रेंज ("ई 11")rng.CurrentRegion.Clearअंत उप |
वर्तमान क्षेत्र को एक चर के लिए असाइन करना
हम पूरे करंट रीजन को एक रेंज वेरिएबल के लिए भी असाइन कर सकते हैं, और फिर उस रेंज वेरिएबल का उपयोग सेल्स में हेरफेर करने के लिए कर सकते हैं - चाहे वह सेल्स को फॉर्मेट करना हो, सेल को सॉर्ट करना आदि …
| 12345678910 | उप असाइन करेंCurrentRegionToVariable ()रेंज के रूप में मंद rng'सीमा को E11 के वर्तमान क्षेत्र के रूप में सेट करें'सेट rng = रेंज ("E11")। CurrentRegion'पृष्ठभूमि और पाठ को रंग दें'rng.Interior.Pattern = xlसॉलिडआरएनजी। आंतरिक। रंग = 65535rng.Font.Bold = Truerng.Font.Color = -16776961अंत उप |
यदि हम ऊपर की प्रक्रिया को चलाते हैं, तो हम नीचे दिखाए गए अनुसार वर्कशीट के साथ समाप्त हो जाएंगे!
वर्तमान क्षेत्र में प्रारंभ और समाप्ति कक्ष प्राप्त करना
थोड़ा अधिक जटिल कोड के साथ, हम वर्तमान क्षेत्र में पहली सेल और अंतिम सेल प्राप्त कर सकते हैं।
| 123456789101112131415161718 | उप GetStartAndEndCells ()रेंज के रूप में मंद rngपूर्णांक के रूप में मंद iRwपूर्णांक के रूप में मंद iColमंद iColStart, iColEnd, iRwStart, iRwEnd स्ट्रिंग के रूप में'रेंज वेरिएबल को E11 के वर्तमान क्षेत्र के रूप में सेट करें'सेट rng = रेंज ("E11")। CurrentRegion'श्रेणी के लिए प्रारंभ स्तंभ सेट करें'iColStart = rng.Column'श्रेणी के लिए अंतिम कॉलम प्राप्त करें'iColEnd = iColStart + (rng.Columns.Count-1)'श्रेणी के लिए प्रारंभ पंक्ति प्राप्त करें'iRwStart = rng.Row'श्रेणी के लिए अंतिम पंक्ति प्राप्त करें'iRwEnd = iRwStart + (rng.Rows.Count-1)'एक संदेश बॉक्स में प्रारंभ और समाप्ति पंक्तियों और स्तंभों का पता प्रदर्शित करें'MsgBox ("रेंज की शुरुआत" और सेल (iRwStart, iColStart) से होती है। पता और "और" और सेल (iRwEnd, iColEnd) पर समाप्त होता है। पता)अंत उप |
जब हम उपरोक्त कोड चलाते हैं, तो निम्न संदेश बॉक्स दिखाई देगा
