Excel में नामित श्रेणी की सामग्री को कैसे साफ़ करें?
यह आलेख आपको एक निर्दिष्ट नामित श्रेणी की सामग्री को साफ़ करने के साथ-साथ सभी नामित श्रेणियों की सामग्री को साफ़ करने की विधि दिखाएगा, लेकिन श्रेणी के नामों को एक्सेल में एक सक्रिय वर्कशीट में रखेगा।
VBA कोड के साथ नामित श्रेणी की सामग्री साफ़ करें
VBA कोड के साथ नामित श्रेणी की सामग्री साफ़ करें
कृपया वर्तमान वर्कशीट में निर्दिष्ट नामित श्रेणी या सभी नामित श्रेणी की सामग्री को साफ़ करने के लिए निम्नानुसार कार्य करें।
1. वर्कशीट में नामित श्रेणी शामिल है जिसमें से आप सामग्री साफ़ करेंगे, दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वर्कशीट में निर्दिष्ट नामित श्रेणी की सामग्री साफ़ करने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें।
वीबीए कोड 1: एक्सेल में निर्दिष्ट नामित श्रेणी की सामग्री साफ़ करें
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कोड चलाने की कुंजी.
4. फिर ए एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है. कृपया उस नामित श्रेणी का नाम दर्ज करें जिससे आप सामग्री साफ़ करेंगे, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर निर्दिष्ट नामित श्रेणी की कोशिकाओं की सभी सामग्री तुरंत साफ़ कर दी जाती है।
सक्रिय वर्कशीट में सभी नामित श्रेणियों की सामग्री साफ़ करने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें।
वीबीए कोड 2: एक्सेल में सक्रिय शीट में सभी नामित श्रेणियों की सामग्री साफ़ करें
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कोड चलाने के लिए कुंजी, फिर क्लिक करें OK में बटन एक्सेल के लिए कुटूल नीचे दिए गए स्क्रीनशॉट के अनुसार डायलॉग बॉक्स दिखाया गया है।
फिर सभी नामित श्रेणियों की सामग्री सक्रिय शीट से साफ़ हो जाती है।
संबंधित आलेख:
- एक्सेल में वीबीए कोड के साथ कॉम्बो बॉक्स की सामग्री को कैसे साफ़ करें?
- एक्सेल में सेल्स में एक ही समय में सामग्री और फ़ॉर्मेटिंग को कैसे साफ़ करें?
- Excel में कक्षों में प्रतिबंधित मानों को कैसे साफ़ करें?
- यदि एक्सेल में किसी अन्य सेल का मान बदलता है तो निर्दिष्ट सेल सामग्री को कैसे साफ़ करें?
- एक्सेल वर्कबुक में ओपन और एग्जिट पर निर्दिष्ट सेल सामग्री को कैसे साफ़ करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!