यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए में इज़ नथिंग स्टेटमेंट का उपयोग कैसे करें
वीबीए इज नोथिंग स्टेटमेंट VBA "Is" ऑपरेटर का उपयोग करता है और यह देखने के लिए जाँच करता है कि किसी ऑब्जेक्ट को किसी ऑब्जेक्ट वेरिएबल को असाइन किया गया है।
| 123456 | उप चेकऑब्जेक्टरेंज के रूप में मंद rngअगर rng कुछ भी नहीं है तोMsgbox "रेंज असाइन नहीं की गई"अगर अंतअंत उप |
हम नॉट विथ इज़ नथिंग विथ ए इफ स्टेटमेंट का उपयोग यह सुनिश्चित करने के लिए भी कर सकते हैं कि रेंज को हमारे द्वारा घोषित रेंज वेरिएबल को सौंपा गया है और फिर उस कोड को चलाएं जिसे हम चलाना चाहते हैं यदि उस वेरिएबल को असाइन किया गया है।
| 1234567 | सब चेकअसाइन्डऑब्जेक्टरेंज के रूप में मंद rngसेट आरएनजी = रेंज ("ए 1: ए 6")अगर नहीं rng कुछ भी नहीं है तो''यहां कुछ कोड करेंअगर अंतअंत उप |
हम किसी भी प्रकार की वस्तु के लिए Is कुछ भी नहीं कथन का उपयोग कर सकते हैं। यह हमारे कोड में त्रुटियों को रोकने में बेहद उपयोगी हो सकता है, जहां किसी ऑब्जेक्ट को किसी ऑब्जेक्ट वेरिएबल को असाइन नहीं किया जा सकता है।
उदाहरण के लिए, हम वर्कशीट वैरिएबल का उपयोग कर सकते हैं, और इसे एक्टिव शीट में असाइन कर सकते हैं। अगर हम इसे सफलतापूर्वक कर लेते हैं, तो हम उस शीट में A2 को सेलेक्ट कर सकते हैं।
| 1234567 | उप चेकवर्कशीटऑब्जेक्टवर्कशीट के रूप में डिम डब्ल्यूएससेट ws = एक्टिवशीटअगर नहीं ws कुछ भी नहीं है तोws.Range("A2").Selectअगर अंतअंत उप |
उपरोक्त कोड में, सेल A2 का चयन किया जाएगा। अगर हम लाइन को हटाना चाहते हैं "सेट ws=ActiveSheet", तो अगर स्टेटमेंट कोड की उस लाइन को बायपास कर देगा और सेल A2 का चयन नहीं किया जाएगा।
अन्य माइक्रोसॉफ्ट ऑफिस अनुप्रयोगों जैसे पावरपॉइंट, आउटलुक, एक्सेस और वर्ड में कुछ भी नहीं इस्तेमाल किया जा सकता है। निम्न कोड यह देखने के लिए जांचता है कि दस्तावेज़ ऑब्जेक्ट को सक्रिय Word दस्तावेज़ को असाइन किया गया है या नहीं।
| 123456789 | उप चेकडॉक्यूमेंटऑब्जेक्टदस्तावेज़ के रूप में मंद wdDocWdDoc = ActiveDocument सेट करेंअगर wdDoc कुछ नहीं है तोMsgBox "दस्तावेज़ असाइन नहीं किया गया"अन्यथाMsgBox "दस्तावेज़ असाइन किया गया"अगर अंतअंत उप |
