Excel में सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर कैसे साफ़ करें?
मान लीजिए कि आपने एक्सेल वर्कबुक में विभिन्न वर्कशीट में कई फ़िल्टर बनाए हैं, और अब आप इन सभी फ़िल्टर को एक साथ साफ़ करना चाहते हैं। आम तौर पर, आपको फ़िल्टर की जांच करने और फिर इसे मैन्युअल रूप से साफ़ करने के लिए वर्कशीट पर एक-एक करके स्थानांतरित करने की आवश्यकता होती है। क्या सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर साफ़ करने की कोई सुविधाजनक विधि है? कृपया इस आलेख में दी गई विधि को आज़माएँ।
VBA कोड के साथ सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर साफ़ करें
VBA कोड के साथ सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर साफ़ करें
सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर साफ़ करने के लिए कृपया नीचे दी गई VBA स्क्रिप्ट चलाएँ।
1. जिस कार्यपुस्तिका से आपको फ़िल्टर साफ़ करना है, कृपया उसे दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दी गई VBA स्क्रिप्ट को कॉपी करके मॉड्यूल विंडो में पेस्ट करें। नीचे स्क्रीनशॉट देखें:
वीबीए कोड: सक्रिय कार्यपुस्तिका में सभी कार्यपत्रकों से फ़िल्टर साफ़ करें
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. फिर वर्तमान कार्यपुस्तिका में सभी कार्यपत्रकों के सभी फ़िल्टर तुरंत साफ़ हो जाते हैं।
संबंधित लेख:
- Excel में पिवट टेबल से फ़िल्टर कैश (पुराने आइटम) को कैसे साफ़ करें?
- Excel में कार्यपुस्तिका खोलते, सहेजते या बंद करते समय फ़िल्टर कैसे साफ़ करें?
- एक्सेल में चेकबॉक्स के आधार पर डेटा कैसे फ़िल्टर करें?
- Excel में फ़िल्टर किए गए सूची कॉलम में संख्याओं की श्रृंखला कैसे भरें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!