VBA का उपयोग करके रेंज का आकार बदलें
यह ट्यूटोरियल प्रदर्शित करेगा कि कैसे उपयोग करें संपत्ति का आकार बदलें का रेंज ऑब्जेक्ट मूल रेंज ऑब्जेक्ट से आकार बदलकर एक नई श्रेणी वापस करने के लिए बदलने के लिए।
वाक्य - विन्यास
आकार बदलें संपत्ति के लिए सिंटेक्स है:
| 1 | रेंज ("ए 1")। आकार बदलें (पंक्ति आकार, कॉलम आकार) |
जहां रेंज ("ए 1") आपकी शुरुआती सीमा है।
RowSize और ColumnSize शून्य से अधिक होना चाहिए। प्रत्येक इनपुट वैकल्पिक है (उदा. आप केवल कॉलम की संख्या बदलने के लिए RowSize को छोड़ सकते हैं, या इसके विपरीत)।
पंक्तियों और स्तंभों की संख्या का आकार बदलें
निम्नलिखित उदाहरण एक सेल A1 के साथ रेंज को A1:D10 तक बढ़ाता है, जिसमें पंक्ति की संख्या 10 और कॉलम की संख्या 5 तक बढ़ जाती है।
| 1 | रेंज ("ए 1")। आकार बदलें (10, 5)। चुनें |
या, अधिक सामान्यतः आप एक चर के लिए आकार बदलने वाली श्रेणी निर्दिष्ट करेंगे:
| 12 | वांछित आकार में सीमा का आकार बदलें और एक चर को असाइन करेंNewRng = ActiveSheet.Range ("A1") सेट करें। आकार बदलें (10, 5) |
केवल पंक्तियों की संख्या का आकार बदलें
निम्नलिखित उदाहरण केवल पंक्तियों की संख्या बदलता है:
| 12 | ' केवल पंक्ति का आकार बदलें, नई श्रेणी $A$1:$A$10 . होगीन्यूआरएनजी = आरएनजी सेट करें। आकार बदलें (10) |
केवल कॉलम की संख्या का आकार बदलें
निम्नलिखित उदाहरण केवल स्तंभों की संख्या बदलता है:
| 12 | ' केवल कॉलम का आकार बदलें, नई रेंज $A$1:$E$1 . होगीन्यूआरएनजी = आरएनजी सेट करें। आकार बदलें (, 5) |
हैडर को बाहर करने के लिए टेबल रेंज का आकार बदलें
यदि आपके पास हेडर पंक्ति के साथ सक्रिय शीट पर एक टेबल है, तो कोड पहले पूरी तालिका का चयन करेगा और फिर एक पंक्ति को नीचे ले जाकर हैडर को रेंज.ऑफसेट विधि का उपयोग करके बाहर कर देगा। यह तब रेंज का उपयोग करेगा। आकार को एक पंक्ति से कम करने के लिए संपत्ति का आकार बदलें।
| 1234567891011 | उप SelectTableData ()' **जरूरी**मैक्रो चलाने से पहले टेबल के किसी भी सेल पर क्लिक करें' ऑफ़सेट का उपयोग करके एक पंक्ति को नीचे ले जाएँ और फिर श्रेणी के आकार को एक पंक्ति से कम करेंtbl = ActiveCell.CurrentRegion.Offset(1, 0) सेट करें। आकार बदलें (tbl. Rows.Count - 1, _टीबीएल.कॉलम.गणना)' शीर्षलेख पंक्ति को छोड़कर डेटा का चयन किया जाता हैटीबीएल.पता.चुनेंअंत उप |
रेंज के लिए 2-डी ऐरे लिखें
एक अन्य सामान्य उपयोग एक शीट में 2 आयामी सरणी लिखना है। चूंकि लिखी जाने वाली श्रेणी सरणी के आकार से मेल खाना चाहिए, जो आमतौर पर पहले से ज्ञात नहीं है, आउटपुट रेंज सेट करने के लिए आकार बदलें विधि का उपयोग किया जाता है
नीचे दिए गए उदाहरण में डेटा को A1:E10 में सक्रिय शीट में एक सरणी में पढ़ा जाएगा और सरणी को सेल A1 से शुरू होने वाली 'आउटपुट' शीट पर लिखा जाएगा:
| 123456 | उप लिखेंअरे ()' डेटा को एक सरणी में पढ़ेंडेटा = रेंज ("ए 1: ई 10")। मान:'आउटपुट रेंज का आकार बदलें और सरणी लिखेंवर्कशीट्स ("आउटपुट")। रेंज ("ए 1")। आकार बदलें (यूबाउंड (डेटा, 1), यूबाउंड (डेटा, 2))। मान = डेटाअंत उप |
द्वारा लिखित: विनमरा चंद्र
