एक्सेल VBA में स्टेटमेंट के साथ
किसी वस्तु के सभी गुणों और विधियों तक पहुँचने के लिए VBA में कथन का उपयोग किया जाता है। हमें उस वीबीए वस्तु की आपूर्ति करने की आवश्यकता है जिसका हम पहले उल्लेख कर रहे हैं , फिर अंत के साथ कथन को बंद करें , फिर इस कथन के अंदर। हम उल्लिखित ऑब्जेक्ट के सभी संपत्ति परिवर्तन और तरीके प्रदर्शन कर सकते हैं।
नीचे VBA में कथन का वाक्य विन्यास है।
(OBJECT) के साथ (कोड … क्या किया जाना चाहिए?) साथ समाप्त
वस्तु कुछ भी नहीं है, लेकिन कोशिकाओं या कोशिकाओं की एक श्रृंखला है जिसका हम उल्लेख कर रहे हैं, और फिर हम गुणों को बदल सकते हैं और उस विशिष्ट सेल या कोशिकाओं से जुड़े सभी तरीकों का प्रदर्शन कर सकते हैं।
एक्सेल VBA में स्टेटमेंट के साथ कैसे उपयोग करें?
एक्सेल VBA में स्टेटमेंट के साथ उपयोग करने के लिए कुछ उदाहरण नीचे दिए गए हैं।
उदाहरण 1
मान लें कि आपके पास A1 सेल में एक निश्चित मान है, मैंने सेल A1 में "एक्सेल VBA" के रूप में टेक्स्ट दर्ज किया है।
अब इस सेल के लिए, मुझे एक्सेल में फॉर्मेटिंग करते हुए कुछ कार्य करने होंगे।
मैं फ़ॉन्ट आकार, फ़ॉन्ट नाम और आंतरिक रंग बदलना चाहता हूं, एक सीमा सम्मिलित करना, आदि … विशिष्ट रूप से हम जो करते हैं वह है कि हम पहले VBA RANGE ऑब्जेक्ट का उपयोग करके सेल को देखें।
कोड:
सब With_Example1 () रेंज ("A1") एंड सब
अब फ़ॉन्ट आकार बदलने के लिए, हम इस सेल के "फ़ॉन्ट" प्रॉपर्टी को एक्सेस करते हैं।
फॉंट प्रॉपर्टी के तहत, हम साइज प्रॉपर्टी को एक्सेस करते हैं और बराबर साइन लगाकर साइज एंटर करते हैं।
कोड:
उप with_Example1 () रेंज ("A1")। Font.Size = 15 समाप्ति उप
अब इसी तरह, हम अन्य स्वरूपण कार्य करते हैं, जैसा कि नीचे दिखाया गया है।
कोड:
उप With_Example1 () श्रेणी ("A1")। Font.Size = 15 श्रेणी ("A1")। Font.Name = "Verdana" श्रेणी ("A1")। आंतरिक। सीमा = vbYellow श्रेणी ("A1 A1") बॉर्डर। .LineStyle = xlContinuous End Sub
यह सभी उल्लिखित कार्यों को करेगा, लेकिन यदि आप प्रत्येक प्रारूपण गतिविधि को करने के लिए कोड को देखते हैं, तो हमने हर बार सेल पते की आपूर्ति की है। इससे कोड लंबा और समय लेने वाला दिखता है।
अब हम हर बार सेल पते की प्रविष्टि को कम करने के लिए एक कथन के साथ VBA का उपयोग करेंगे। एक्सेल VBA में स्टेटमेंट के साथ खोलें और सेल एड्रेस सप्लाई करें।
कोड:
सब With_Example1 () रेंज के साथ ("A1") एंड सब
सेल 1 के सभी गुणों और विधियों को देखने के लिए, स्टेटमेंट के अंदर, एक बिंदु डालें।
अब पहले स्वरूपण गतिविधि फ़ॉन्ट आकार बदल रही है, इसलिए फॉंट और इस एक्सेस के तहत संपत्ति का उपयोग करें।
कोड:
सब With_Example1 () रेंज ("A1") के साथ। .Font.Size = 15 समाप्ति उप
इसी तरह, अन्य फ़ॉर्मेटिंग कोड की आपूर्ति करें और स्टेटमेंट के साथ VBA को बंद करें।
कोड:
सब With_Example1 () रेंज ("A1") के साथ। .Font.Size = 15।
कोड ऑब्जेक्ट को सभी ऑब्जेक्ट, अर्थात सेल A1 में देखने के लिए कोड चलाएँ।
तो, सभी स्वरूपण सेल पर लागू होते हैं। देखो यह तकनीक कितनी शांत है।
उदाहरण # 2
उदाहरण के लिए, यदि आप फ़ॉन्ट से संबंधित सभी गुणों को बदलना चाहते हैं, तो आप सेल और फॉंट संपत्ति का उल्लेख कर सकते हैं।
कोड:
सब With_Example2 () रेंज ("A1") के साथ। फॉन्ट एंड विद एंड सब
Inside the VBA With Statement, we can see the IntelliSense list. It will show properties and methods related to FONT property only.
We can perform any set of activities with this now.
Code:
Sub With_Example2() With Range("A1").Font .Bold = True 'Font will be Bold .Color = vbAlias 'Font color will be Alias .Italic = True 'Font will be italic style .Size = 20 ' Font size will be 20 .Underline = True 'Font will be underlined End With End Sub
The result of this will be as shown below.
Example #3
The below code will access only cell border-related properties.
Code:
Sub With_Example3() With Range("B2").Borders .Color = vbRed 'Border color will be red .LineStyle = xlContinuous 'Full border .Weight = xlThick 'Thick border End With End Sub
The result of this code is as follows.
Things to Remember
- कोड को कम करने के लिए स्टेटमेंट के साथ प्रयोग किया जाता है।
- हमें पहले स्टेटमेंट के साथ ऑब्जेक्ट सप्लाई करना होगा।
- एक बार जब विशिष्ट वस्तु की आपूर्ति हो जाती है, तो हम केवल उस वस्तु के गुणों और विधियों तक पहुंच सकते हैं।
