वीबीए: बिना संकेत या चेतावनी के शीट कैसे हटाएं

जब आप किसी कार्यपुस्तिका में किसी विशिष्ट शीट को हटाने के लिए वीबीए में डिलीट विधि का उपयोग करते हैं, तो एक्सेल एक संकेत जारी करेगा जिसमें पूछा जाएगा कि क्या आप सुनिश्चित हैं कि आप शीट को हटाना चाहते हैं।

हालाँकि, आप किसी प्रॉम्प्ट या चेतावनी बॉक्स के बिना शीट को हटाने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubDeleteSheets ()

'turn off display alerts
Application.DisplayAlerts = False

'delete Sheet1
Sheets(" Sheet1 ").Delete

'turn back on display alerts
Application.DisplayAlerts = True

End Sub

यह विशेष मैक्रो शीट1 नामक शीट को बिना किसी संकेत या चेतावनी बॉक्स के हटा देता है।

एप्लिकेशन.डिस्प्लेअलर्ट्स=गलत लाइन वीबीए को एक्सेल में सभी डिस्प्ले अलर्ट बंद करने के लिए कहती है।

फिर हम किसी विशिष्ट शीट को हटाने के लिए डिलीट विधि का उपयोग करते हैं।

फिर हम डिस्प्ले अलर्ट को पुनः सक्षम करने के लिए एप्लिकेशन.DisplayAlerts=True का उपयोग करते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: बिना संकेत या चेतावनी के किसी शीट को हटाने के लिए VBA का उपयोग करें

मान लीजिए कि हमारे पास निम्नलिखित एक्सेल वर्कबुक है जिसमें तीन शीट हैं:

अब मान लीजिए कि हम शीट1 नामक शीट को हटाने के लिए एक मैक्रो बनाना चाहते हैं।

मान लीजिए हम निम्नलिखित मैक्रो बनाते हैं:

 SubDeleteSheets ()

'delete Sheet1
Sheets(" Sheet1 ").Delete

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें एक संदेश प्राप्त होगा जिसमें पूछा जाएगा कि क्या हम आश्वस्त हैं कि हम इस शीट को हटाना चाहते हैं:

हालाँकि, हम बिना किसी संकेत के शीट1 को हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubDeleteSheets ()

'turn off display alerts
Application.DisplayAlerts = False

'delete Sheet1
Sheets(" Sheet1 ").Delete

'turn back on display alerts
Application.DisplayAlerts = True

End Sub

जब हम इस मैक्रो को चलाते हैं, तो शीट1 नामक शीट स्वचालित रूप से हटा दी जाती है और कोई संकेत नहीं दिखता है:

ध्यान दें कि शीट1 हटा दी गई थी जबकि अन्य दो शीट बरकरार रहीं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: किसी अन्य कार्यपुस्तिका से डेटा कैसे निकालें
वीबीए: एकाधिक पंक्तियाँ कैसे सम्मिलित करें