Vba का उपयोग करके नामांकित श्रेणी को कैसे हटाएं (उदाहरण के साथ)

आप Excel कार्यपुस्तिका से नामित श्रेणियों को हटाने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

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

उदाहरण: वीबीए का उपयोग करके एक्सेल वर्कबुक में नामित रेंज हटाएं

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

• एक नामित श्रेणी जिसे शीट1 में शीट1_नाम कहा जाता है
• एक नामित श्रेणी जिसे शीट2 में शीट2_नाम कहा जाता है
• एक नामित श्रेणी जिसे शीट3 में शीट3_नाम कहा जाता है

इनमें से प्रत्येक नामित श्रेणी को देखने के लिए, बस वर्कशीट के ऊपरी बाएँ कोने में नाम बॉक्स में ड्रॉप-डाउन तीर पर क्लिक करें:

मान लीजिए कि हम इनमें से प्रत्येक नामित श्रेणी को हटाना चाहते हैं।

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

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

एक बार यह मैक्रो निष्पादित हो जाने पर, संपूर्ण कार्यपुस्तिका में सभी नामित श्रेणियाँ हटा दी जाएंगी।

हम किसी एक शीट के ऊपरी बाएँ कोने में फिर से नाम बॉक्स पर क्लिक करके सत्यापित कर सकते हैं कि उन्हें हटा दिया गया है:

हम देख सकते हैं कि नाम बॉक्स में अब नामित श्रेणियों के नाम नहीं हैं।

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

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

वीबीए: बिना फ़ॉर्मेटिंग के केवल मान कैसे पेस्ट करें
वीबीए: दृश्यमान पंक्तियों को दूसरी शीट पर कैसे कॉपी करें
वीबीए: मानदंडों के आधार पर पंक्तियों को दूसरी शीट पर कॉपी करें