एक्सेल VBA आकार
आकार बदलने के लिए या सक्रिय सेल से कोशिकाओं की आवश्यकता के अनुसार आकार बदलने के लिए VBA में उपलब्ध संपत्ति है। उदाहरण के लिए, मान लें कि आप सेल B5 में हैं, और इस सेल से, यदि आप 3 पंक्तियों और दो स्तंभों का चयन करना चाहते हैं, तो हम VBA के RESIZE गुण का उपयोग करके किसी श्रेणी का आकार बदल सकते हैं।
VBA आकार परिवर्तन का सिंटैक्स
नीचे VBA RESIZE प्रॉपर्टी का सिंटैक्स है।
रेंज ()। आकार ((पंक्ति आकार), (कॉलम आकार))सबसे पहले, हमें किस ऑब्जेक्ट से रेंज ऑब्जेक्ट का उपयोग करके आकार बदलने की आवश्यकता है ।
फिर एक्सेल VBA रिसाइज़ प्रॉपर्टी का उपयोग करें , और इस प्रॉपर्टी में, हमें रो साइज़ लिमिट और कॉलम साइज़ लिमिट की आपूर्ति करने की आवश्यकता है। प्रदान की गई पंक्ति संख्या और स्तंभ संख्याओं के आधार पर, यह इसे आकार देगा।
VBA में Resize का उपयोग करने के उदाहरण
नीचे एक्सेल VBA में आकार बदलने के उपयोग के उदाहरण दिए गए हैं।
उदाहरण 1
मान लें कि आपके पास A1 से B14 सेल तक का डेटा है, और A1 सेल से, यदि आप 3 पंक्तियों को नीचे और दो कॉलम बाईं सीमा का चयन करना चाहते हैं, तो हम Excel VBA में RESIZE गुण का उपयोग करके ऐसा कर सकते हैं।
नीचे इस उदाहरण के लिए उपयोग किए जा रहे डेटा हैं।
सबसे पहले, हमें RANGE ऑब्जेक्ट का उपयोग करके पहले सेल संदर्भ या शुरुआती बिंदु की आपूर्ति करने की आवश्यकता है। इस उदाहरण में, शुरुआती बिंदु A1 सेल है।
कोड:
उप Resize_Example () रेंज ("A1")। अंत उप
इस श्रेणी के लिए, RESIZE गुण का उपयोग करें।
कोड:
उप Resize_Example () रेंज ("A1")। Resize (अंतिम उप)
RESIZE का पहला तर्क पंक्ति आकार है, इसलिए हमें डेटा की 3 पंक्तियों का चयन करने और 3 के संख्यात्मक मान की आपूर्ति करने की आवश्यकता है।
कोड:
सब Resize_Example () रेंज ("A1")। Resize (3, समाप्ति उप)
अगला तर्क इसके लिए कॉलम का आकार है , यह दर्ज करें कि आपको किस प्रकार के कॉलम का चयन करना है। मैं 3 कॉलम दर्ज करूंगा।
कोड:
सब Resize_Example () रेंज ("A1")। Resize (3,3) अंतिम उप
एक बार आकार बदलने के बाद, हमें इस श्रेणी के साथ क्या करना है, इसकी आपूर्ति करने की आवश्यकता है। मैं शुरू करने के लिए "चयन" विधि का चयन करूंगा।
कोड:
उप Resize_Example () रेंज ("A1")। आकार (3, 3) .Select End Sub
कोड चलाएं और देखें कि यह कितनी पंक्तियों और कितने स्तंभों का चयन करेगा।
जैसा कि आप A1 सेल से ऊपर देख सकते हैं, इसने तीन पंक्तियों को नीचे और तीन कॉलम को दाईं ओर चुना है।
उदाहरण # 2
अब नीचे VBA कोड पर एक नज़र डालें।
पंक्ति आकार के लिए उपरोक्त कोड में , हमने रिक्त कक्ष की आपूर्ति की है, और स्तंभ आकार के लिए, हमने 3 की आपूर्ति की है ।
कोड:
उप Resize_Example () रेंज ("A1")। Resize (0, 3)। चयन समाप्त करें उप
कोड चलाएं और देखें कि यह कितनी पंक्तियों और कितने स्तंभों का चयन करेगा।
जैसा कि आप देख सकते हैं, इसमें केवल सक्रिय सेल पंक्ति, यानी 1 सेंट पंक्ति और तीन कॉलम हैं। ऐसा इसलिए है, क्योंकि रो साइज़ के लिए, हमने रिक्त कोशिकाओं की आपूर्ति की है, और कॉलम साइज़ के लिए, हमने 3 की आपूर्ति की है, और तदनुसार, इसने डेटा रेंज का चयन किया है।
अब, नीचे दिए गए कोड को देखें।
कोड:
उप Resize_Example () रेंज ("A1")। Resize (3)। चयन समाप्त करें
What this code will do is it will select only three rows, including the active cell row but no extra columns.
Example #3
Use Resize To Select Unknown Ranges. Resize is best utilized when you want to select an unknown range of cells. For example, look at the below image of the data range.
It has data all the ways from Column A to Column P and row-wise we have up until the 700th row.
Assume you know your data will keep changing, and you want to select the data range every now and then by manually changing the row and column number. However, by using VBA RESIZE property, we can do this easily.
Look at the below code.
Code:
Sub Resize_Example1() Dim LR As Long Dim LC As Long Worksheets("Sales Data").Select LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, 1).Resize(LR, LC).Select End Sub
First, I have declared two variables to find the last used row (LR) and the last used column (LC).
Dim LR As Long Dim LC As Long
Since our data is in the worksheet named “Sales Data,” we are choosing this worksheet by using the below code.
Worksheets(“Sales Data”).Select
Now below code will find the last used row and last used column.
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column
अब पहली सेल से, हम अंतिम उपयोग की गई पंक्ति से अंतिम उपयोग किए गए कॉलम की श्रेणी का आकार बदल रहे हैं और चयन विधि का उपयोग किया जाता है। तो अब इससे कोई फर्क नहीं पड़ता कि आपका डेटा कितना बड़ा है। यह अंतिम रूप से उपयोग की गई पंक्ति और अंतिम उपयोग किए गए कॉलम को खोजकर डेटा का चयन करेगा।
याद रखने वाली चीज़ें
- VBA में आकार बदलने वाली संपत्ति सक्रिय सेल (सक्रिय सेल सहित) से श्रेणी का आकार बदल देगी।
- हमें केवल VBA में सक्रिय सेल से कितनी पंक्तियों और कितने स्तंभों का आकार बदलना है।
- हम RESIZE संपत्ति के लिए ऋणात्मक पंक्ति और स्तंभ संख्या का उपयोग नहीं कर सकते।
