माइक्रोसॉफ्ट एक्सेल ऑटोफ़िल्टर को निकालने . के कई तरीके प्रदान करता है एक कार्यपत्रक . से या एक एक्सेल तालिका। इस लेख में, आप सीखेंगे 7 किसी AutoFilter के मौजूद होने पर उसे निकालने के तरीके एक्सेल में VBA स्क्रिप्ट का उपयोग करके।
आप निम्न लिंक से एक्सेल फ़ाइल डाउनलोड कर सकते हैं और इसके साथ अभ्यास कर सकते हैं।
यदि यह Excel में मौजूद है तो AutoFilter को निकालने के लिए VBA का उपयोग करने के 7 उदाहरण
<एच3>1. सक्रिय कार्यपत्रक से स्वतः फ़िल्टर निकालें यदि यह मौजूद हैनिम्न स्क्रीनशॉट एक स्वतः फ़िल्टर . दिखाता है सक्रिय कार्यपत्रक में कार्रवाई में है हम इसे हटा देंगे स्वतः फ़िल्टर VBA . का उपयोग करना कोड।
अगर आप एक ऑटोफ़िल्टर हटाना चाहते हैं सक्रिय कार्यपत्रक . से फिर नीचे दिए गए चरणों का पालन करें:
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Public Sub RemoveAFActiveWorksheet()
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- यहां, मैंने एक उप प्रक्रिया बनाई है सार्वजनिक उप निकालेंAFActiveWorksheet
- अगला, मैंने एक IF कथन का उपयोग किया यह जांचने के लिए कि क्या मौजूद है कोई भी स्वतः फ़िल्टर अगर मौजूद है यह ऑटोफ़िल्टर . को हटा देगा जैसा कि मैंने AutoFilterMode . सेट किया है करने के लिए गलत ।
❺ सक्रिय वर्कशीट . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ मैक्रो निकालेंAFActiveWorksheet . चुनें और भागो . दबाएं बटन।
अब आप देखेंगे स्वतः फ़िल्टर हटा दिया गया है और सभी डेटा दृश्यमान . हैं अब।
और पढ़ें: एक्सेल वीबीए यह जांचने के लिए कि ऑटोफिल्टर चालू है या नहीं (4 आसान तरीके)
<एच3>2. सभी वर्कशीट से ऑटोफिल्टर को हटाने के लिए VBA का उपयोग करनानिम्न चित्र को देखें। आप स्वतः फ़िल्टर . देख सकते हैं दोनों कार्यपत्रकों पर लागू होता है। अब हम लिखेंगे VBA एक ऑटोफ़िल्टर को हटाने . के लिए कोड सभी कार्यपत्रकों . से एक कार्यपुस्तिका . में ।
किसी कार्यपुस्तिका में सभी कार्यपत्रकों से ऑटोफ़िल्टर को हटाने के लिए नीचे दिए गए चरणों का पालन करें:
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Public Sub DeleteAFfromallWorksheets()
Dim xWs1 As Worksheet
For Each xWs1 In ActiveWorkbook.Worksheets
If xWs1.AutoFilterMode = True Then
xWs1.AutoFilterMode = False
End If
Next xWs1
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- यहां, मैंने लूप के लिए . का उपयोग किया है खोज . करने के लिए स्वतः फ़िल्टर . के लिए प्रत्येक कार्यपत्रक में।
- अगला, मैंने एक IF कथन का उपयोग किया यह जांचने के लिए कि क्या मौजूद है एक अगर मौजूद है यह ऑटोफ़िल्टर . को हटा देगा जैसा कि मैंने ActiveSheet.AutoFilterMode . सेट किया है करने के लिए गलत ।
❺ अपनी कार्यपत्रक . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ सभी कार्यपत्रकों से मैक्रो निकालें . चुनें और भागो . दबाएं बटन।
अब आप देखेंगे सभी ऑटोफ़िल्टर आइकन हटा दिए गए हैं सभी कार्यपत्रकों . से आपकी कार्यपुस्तिका . में नीचे दिए गए चित्र की तरह:
नीचे दिए गए चित्र में, आप देख सकते हैं कि स्वतः फ़िल्टर केवल पहले कॉलम . में लागू होता है तालिका के। इस पद्धति में, हम एकल कॉलम से AutoFilter को साफ़ करने के लिए . कोड लिखेंगे एक्सेल में एक टेबल का।
ऐसा करने के लिए,
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ अब कॉपी करें निम्नलिखित VBA कोड।
Sub DeleteAFSingleColumnfromTable()
Dim xWs1 As Worksheet
Dim xTableName1 As String
Dim xLT1 As ListObject
xTableName1 = "TableA"
Set xWs1 = Sheets("MyTable1")
Set xLT1 = xWs1.ListObjects(xTableName1)
xLT1.Range.AutoFilter Field:=1
End Sub❹ उसके बाद, चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- सबसे पहले, मैंने 3 चर घोषित किए।
- फिर मैंने टेबल का नाम डाला और सेट करें शीट का नाम ।
- उसके बाद, मैंने ListObjects . का उपयोग किया संपत्ति दृश्यमान बनाने के लिए सभी सामग्री एक तालिका . का ।
- अंत में, मैं इनपुट a तालिका स्तंभ अनुक्रमणिका ऑटोफ़िल्टर फ़ील्ड . का उपयोग करके
❺ अपनी कार्यपत्रक . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ तालिका से मैक्रो निकालेंAFSingleColumn . चुनें और भागो . दबाएं बटन।
उसके बाद, आप ऑटोफ़िल्टर . देखेंगे पहले कॉलम . में अब मौजूद नहीं है आपकी टेबल का।
निम्न चित्र दो स्वतः फ़िल्टर . दिखाता है पहले . में आइकन और दूसरा एक तालिका के स्तंभ। ऑटोफ़िल्टर को हटाने . के लिए आप इस विधि का अनुसरण कर सकते हैं दो कॉलम . से एक तालिका . का VBA . का उपयोग कर रहे हैं ।
अब नीचे दिए गए चरणों का पालन करके यदि यह एकाधिक स्तंभों से मौजूद है तो स्वतः फ़िल्टर को साफ़ करें एक एक्सेल तालिका . में
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Sub DeleteAFMultiColumnsfromTable()
Dim xWs1 As Worksheet
Dim xTableName1 As String
Dim xLT1 As ListObject
xTableName1 = "TableA"
Set xWs1 = Sheets("MyTable1")
Set xLT1 = xWs1.ListObjects(xTableName1)
xLT1.Range.AutoFilter Field:=1
xLT1.Range.AutoFilter Field:=2
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- सबसे पहले, मैंने 3 चर घोषित किए।
- फिर मैंने टेबल का नाम डाला और सेट करें शीट का नाम ।
- उसके बाद, मैंने ListObjects . का उपयोग किया संपत्ति दृश्यमान बनाने के लिए सभी सामग्री एक तालिका . का ।
- अंत में, मैं इनपुट दो तालिका स्तंभ अनुक्रमणिका ऑटोफ़िल्टर फ़ील्ड . का उपयोग करके
❺ अब, वर्कशीट . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ तालिका से मैक्रो DeleteAFMultiColumns . का चयन करें और भागो . दबाएं बटन।
कोड चलाने के बाद, आपको ऑटोफ़िल्टर . दिखाई देगा हटा दिया गया है अनेक स्तंभों से.
और पढ़ें: [फिक्स]:श्रेणी श्रेणी की स्वत:फ़िल्टर विधि विफल (5 समाधान)
5. Excel VBA का उपयोग करके संपूर्ण तालिका से स्वतः फ़िल्टर साफ़ करें
यदि आपके पास स्वतः फ़िल्टर . है नीचे दिए गए चित्र की तरह ही आपकी तालिका में लागू किया गया है और निकालना . करना चाहते हैं उन सभी को, फिर इस विधि को अपनाएं।
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Sub RemoveAFfromEntireTable()
Dim xWs1 As Worksheet
Dim xTable1 As String
Dim xTable2 As ListObject
xTable1 = "TableB"
Set xWs1 = ActiveSheet
Set xTable2 = xWs1.ListObjects(xTable1)
xTable2.AutoFilter.ShowAllData
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- सबसे पहले, मैंने 3 चर घोषित किए।
- फिर मैंने टेबल का नाम डाला अगला सेट करें शीट का नाम एक्टिवशीट . के रूप में ।
- उसके बाद, मैंने ListObjects . का उपयोग किया संपत्ति दृश्यमान बनाने के लिए सभी सामग्री एक तालिका . के और सेट . का उपयोग किया इसे xTable2 . में संग्रहीत करने के लिए कथन
- अंत में, मैंने ShowAllData . का उपयोग किया ऑटोफ़िल्टर . को बंद करने के लिए प्रॉपर्टी ।
❺ कार्यपत्रक . पर वापस जाएं एक टेबल रखते हुए ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ संपूर्ण तालिका से मैक्रो निकालें . चुनें और भागो . दबाएं बटन।
अब स्वतः फ़िल्टर निकाल दिया जाएगा संपूर्ण तालिका . से नीचे दिए गए चित्र की तरह:
नीचे चित्र में दिखाए गए निम्न डेटासेट में स्वतः फ़िल्टर सक्रिय है और पासवर्ड से सुरक्षित है . जो 7878 . है ।
इस विधि में, आपको एक VBA कोड . मिलेगा साफ़ . करने के लिए आउट ऑटोफ़िल्टर एक पासवर्ड से सुरक्षित वर्कशीट . से इस तरह।
अब नीचे दिए गए चरणों का पालन करें:
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Sub RemoveAFwithPass()
Dim UserPwd As String
UserPwd = "7878"
With ActiveSheet
.Unprotect Password:=UserPwd
.ShowAllData
.Protect _
Contents:=True, _
AllowFiltering:=True, _
UserInterfaceOnly:=True, _
Password:=UserPwd
End With
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- सबसे पहले, मैंने एक चर घोषित किया और पासवर्ड दर्ज करें।
- फिर एक्टिवशीट . में , मैंने उपयोगकर्ता पासवर्ड assigned असाइन किया है असुरक्षित पासवर्ड . के लिए
- इस्तेमाल किया गया ShowAllData सब कुछ दिखाने के लिए संपत्ति।
- फिर मैंने सच . असाइन किया करने के लिए सामग्री , फ़िल्टरिंग की अनुमति दें , और केवल UserInterface करने के लिए असुरक्षित वे सब।
❺ पासवर्ड-संरक्षित वर्कशीट . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ मैक्रो RemoveAFwithPass . चुनें और भागो . दबाएं बटन।
उसके बाद, स्वतः फ़िल्टर निकाल दिया जाएगा और सभी रिकॉर्ड दृश्यमान होंगे इस तरह:
निम्न चित्र एक संरक्षित डेटासेट shows दिखाता है बिना पासवर्ड . के . इस विधि में, हम ऑटोफ़िल्टर को हटाने . के लिए एक कोड लिखेंगे एक पासवर्ड रहित संरक्षित . से वर्कशीट।
अब नीचे दिए गए चरणों का पालन करें:
❶ सबसे पहले, ALT + F11 press दबाएं VBA संपादक को खोलने के लिए।
❷ फिर सम्मिलित करें . पर जाएं>> मॉड्यूल ।
❸ कॉपी करें निम्नलिखित VBA कोड।
Sub RemoveAFwithoutPass()
With ActiveSheet
.Unprotect
.ShowAllData
.Protect _
Contents:=True, _
AllowFiltering:=True, _
UserInterfaceOnly:=True
End With
End Sub❹ चिपकाएं और सहेजें VBA संपादक में कोड।
संहिता का टूटना
- सबसे पहले, मैंने साथ . लागू किया एक्टिवशीट . में स्टेटमेंट और इस्तेमाल किया असुरक्षित संपत्ति को अनलॉक . करने के लिए
- फिर, मैंने ShowAllData . का उपयोग किया सब कुछ दिखाने के लिए संपत्ति।
- फिर मैंने सच . असाइन किया करने के लिए सामग्री , फ़िल्टरिंग की अनुमति दें , और केवल UserInterface उन सभी को असुरक्षित करने के लिए।
❺ सक्रिय वर्कशीट . पर वापस जाएं और ALT + F11 press दबाएं मैक्रो . खोलने के लिए डायलॉग बॉक्स।
❻ मैक्रो RemoveAFविदाउटपास . चुनें और भागो . दबाएं बटन।
अंत में, स्वतः फ़िल्टर साफ़ कर दिया जाएगा और सारा डेटा दृश्यमान . होगा इस तरह:
अभ्यास अनुभाग
प्रदान की गई एक्सेल फ़ाइल के अंत में आपको निम्न स्क्रीनशॉट की तरह एक एक्सेल शीट मिलेगी। जहाँ आप इस लेख में वर्णित सभी विधियों का अभ्यास कर सकते हैं।
निष्कर्ष
संक्षेप में, हमने 7 . पर चर्चा की है ऑटोफ़िल्टर मौजूद होने पर उसे निकालने के तरीके एक्सेल में वीबीए का उपयोग करना। आपको इस लेख के साथ संलग्न अभ्यास कार्यपुस्तिका को डाउनलोड करने और उसके साथ सभी विधियों का अभ्यास करने की सलाह दी जाती है। और नीचे टिप्पणी अनुभाग में कोई भी प्रश्न पूछने में संकोच न करें। हम सभी प्रासंगिक प्रश्नों का यथाशीघ्र उत्तर देने का प्रयास करेंगे। और कृपया हमारी वेबसाइट पर जाएँ Exceldemy अधिक जानने के लिए।
संबंधित लेख
- VBA से Excel में समान फ़ील्ड पर एकाधिक मानदंड वाले ऑटोफ़िल्टर (4 तरीके)
- Excel में VBA के साथ एक निश्चित मान के बराबर नहीं होने वाले मानों को ऑटोफ़िल्टर कैसे करें
- VBA ऑटोफिल्टर:सबसे छोटे से सबसे बड़े तक छाँटें (3 तरीके)
- Excel VBA के साथ दृश्यमान पंक्तियों को ऑटोफ़िल्टर और कॉपी कैसे करें