यह ट्यूटोरियल आपको सिखाएगा कि VBA का उपयोग करके किसी वर्कशीट को कैसे डिलीट या क्लियर किया जाए।
वर्कशीट हटाएं
वर्कशीट को डिलीट करने के लिए डिलीट कमांड का इस्तेमाल करें।
नाम से वर्कशीट हटाएं
1 | पत्रक ("पत्रक 1")। हटाएं |
इंडेक्स नंबर द्वारा वर्कशीट हटाएं
यह कोड कार्यपुस्तिका में पहली कार्यपत्रक को हटाता है:
1 | पत्रक(1).हटाएं |
यह कोड कार्यपुस्तिका में अंतिम कार्यपत्रक को हटा देता है:
1 | पत्रक (पत्रक। गणना)। हटाएं |
बिना प्रॉम्प्ट के वर्कशीट हटाएं
जब आप किसी कार्यपत्रक को हटाने का प्रयास करते हैं, तो एक्सेल आपसे आपकी कार्रवाई की पुष्टि करने के लिए कहेगा:
आप DisplayAlerts को टॉगल करके इन संकेतों (अलर्ट) को अक्षम कर सकते हैं:
123 | एप्लिकेशन। डिस्प्ले अलर्ट = गलतपत्रक ("पत्रक 1")। हटाएंएप्लिकेशन.डिस्प्लेअलर्ट्स = ट्रू |
यदि यह मौजूद है तो शीट हटाएं
यदि आप किसी ऐसी वर्कशीट को हटाने का प्रयास करते हैं जो मौजूद नहीं है, तो VBA एक त्रुटि उत्पन्न करेगा। ऑन एरर रिज्यूमे नेक्स्ट के साथ आप वीबीए को एक शीट को हटाने के लिए कह सकते हैं यदि वह मौजूद है, अन्यथा कोड की अगली पंक्ति पर जाएं:
123 | त्रुटि पर फिर से शुरू करें अगलापत्रक ("पत्रक 1")। हटाएंत्रुटि गोटो 0 . पर |
आप हमारे RangeExists फ़ंक्शन का उपयोग यह जांचने के लिए भी कर सकते हैं कि कोई शीट मौजूद है या नहीं और यदि ऐसा है तो उसे हटा दें।
123 | अगर RangeExists("Sheet1") तबपत्रक ("पत्रक 1")। हटाएंअगर अंत |
साफ़ शीट
यह कोड सामग्री, प्रारूपों और अन्य सभी चीजों की एक पूरी शीट को साफ कर देगा:
1 | शीट्स ("शीट 1")। सेल। साफ़ करें |
शीट सामग्री साफ़ करें
यह कोड पूरी शीट की सामग्री को साफ़ कर देगा। यह फ़ॉर्मेटिंग, टिप्पणियों और अन्य सभी चीज़ों को अकेला छोड़ देगा:
1 | पत्रक ("पत्रक 1")। कक्ष। साफ़ सामग्री |
साफ़ शीट प्रयुक्त रेंज
उपरोक्त उदाहरण किसी कार्यपत्रक के सभी कक्षों को साफ़ कर देंगे। बड़ी चादरों में यह बहुत समय लेने वाला हो सकता है। यदि आप इसके बजाय UseRange का उपयोग करते हैं, तो VBA केवल "प्रयुक्त" कक्षों को साफ़ करेगा जिनमें मान, प्रारूप आदि शामिल हैं।
1 | शीट्स ("शीट 1")। यूज्ड रेंज। क्लियर |