यह आलेख प्रदर्शित करेगा कि वीबीए में साथ और अंत के साथ कैसे उपयोग करें
एक्सेल हमें मैक्रोज़ रिकॉर्ड करके वीबीए सीखने का अवसर प्रदान करता है। ये मैक्रोज़ सचमुच सब कुछ रिकॉर्ड करते हैं जो हम स्क्रीन पर करते हैं और क्रियाओं को वीबीए कोड में परिवर्तित करते हैं। फिर हम इस कोड का विश्लेषण कर सकते हैं और इससे सीख सकते हैं।
जब हम वीबीए में एक मैक्रो रिकॉर्ड करते हैं, सबसे महत्वपूर्ण बात यह है कि जब हम कोशिकाओं के प्रारूप को बदल रहे होते हैं, तो मैक्रो अक्सर रिकॉर्डिंग में विथ… एंड विद सिंटेक्स का उपयोग नहीं करेगा। यह समझना कि इनका क्या मतलब है और इसका उपयोग VBA का एक महत्वपूर्ण हिस्सा है।
मैक्रो रिकॉर्ड करना
एक्सेल में मैक्रो रिकॉर्ड करने के लिए फीता, चुनते हैं देखें> मैक्रो> मैक्रो रिकॉर्ड करें।
या
डेवलपर > रिकॉर्ड मैक्रो
नोट: यदि आपको डेवलपर रिबन दिखाई नहीं देता है, तो आपको इसे सक्षम करना होगा। यह कैसे करना है यह जानने के लिए यहां क्लिक करें।
मैक्रो के लिए नाम टाइप करें, और ओके पर क्लिक करें।
कुछ कोशिकाओं को हाइलाइट करें, और फिर उन्हें बोल्ड के लिए प्रारूपित करें, रंग को लाल रंग में बदलें और फ़ॉन्ट आकार में संशोधन करें। फिर मैक्रो रिकॉर्ड करना बंद करने के लिए स्क्रीन के निचले बाएँ कोने में स्टॉप पर क्लिक करें।
स्टेटमेंट सिंटैक्स के साथ
अपने रिकॉर्ड किए गए मैक्रो को देखने/संपादित करने के लिए: रिबन में, चुनें देखें> मैक्रोज़> मैक्रोज़ देखें। अभी-अभी रिकॉर्ड किया गया मैक्रो चुनें, और फिर क्लिक करें संपादित करें.
या
रिबन में, चुनें डेवलपर > विजुअल बेसिक वीबीई विंडो पर स्विच करने के लिए।
रिकॉर्ड किया गया मैक्रो नीचे दिए गए उदाहरण जैसा कुछ दिख सकता है
| 123456789 | सब विथमैक्रो ()रेंज ("ए 2: सी 10")। चुनें:चयन। फ़ॉन्ट। बोल्ड = सत्यचयन। फ़ॉन्ट। आकार = 12चयन के साथ। Fontरंग = -16776961टिंटएंडशेड = 0के साथ समाप्त करनाअंत उप |
सबसे पहले, हमने श्रेणी A2:C10 का चयन किया है।
फिर हमने बोल्ड को ट्रू और फॉन्ट साइज को 12 पर सेट किया है। ध्यान दें कि इन पंक्तियों के लिए "Selection.Font" कोड दोहराया गया है।
मैक्रो ने तब हमें टेक्स्ट का रंग बदलते हुए रिकॉर्ड किया है - ध्यान दें कि इस बार, Selection.Font में a . है साथ इसके सामने, और जिन 2 संपत्तियों में संशोधन किया जा रहा है (रंग और टिंटैंडशेड) उनके सामने एक अवधि (.) है। कोड का क्षेत्र तब a . के साथ पूरा होता है के साथ समाप्त करना।
इस कोड को सरल बनाने के लिए, हम बोल्ड और साइज को WITH स्टेटमेंट के भीतर ले जा सकते हैं, और इसलिए चयन शब्द को दोहराने की आवश्यकता को हटा सकते हैं।
| 123456789 | सब विथमैक्रो ()रेंज ("ए 2: सी 10")। चुनें:चयन के साथ। Fontबोल्ड = सचआकार = 12रंग = -16776961टिंटएंडशेड = 0के साथ समाप्त करनाअंत उप |
इसलिए WITH… END WITH स्टेटमेंट का सिंटैक्स बहुत सरल है:
| 123 | वस्तु के साथ'प्रारूप/परिवर्तन के गुण'के साथ समाप्त करना |
हम कोड को अलग तरीके से संशोधित कर सकते थे:
| 1234567 | उप निकालें के साथ ()रेंज ("ए 2: सी 10")। चुनें:चयन। फ़ॉन्ट। बोल्ड = सत्यचयन। फ़ॉन्ट। आकार = 12चयन। फ़ॉन्ट। रंग = -16776961Selection.Font.TintAndShade = 0अंत उप |
उपरोक्त उदाहरण में, हमने कोड की प्रत्येक पंक्ति में Selection.Font शब्दों को जोड़ा है। इसलिए हमने कोड में Selection.Font Object को बार-बार रेफर किया है।
हालाँकि, WITH स्टेटमेंट का उपयोग करने का अर्थ है कि हमें कोड में केवल एक बार इस ऑब्जेक्ट को संदर्भित करने की आवश्यकता है। यह कोडिंग का एक साफ-सुथरा तरीका है - यह VBA को WITH से शुरू होने और END WIथ पर समाप्त होने के लिए कहता है - चलाने के लिए कोड उन 2 शब्दों के भीतर संलग्न है। यह मैक्रो को तेजी से और अधिक कुशलता से चलाता है (विशेषकर लंबे मैक्रोज़ के लिए), और आपके कोड में संरचना जोड़ता है।
