वीबीए का उपयोग करके एक्सेल में फ़िल्टर कैसे साफ़ करें (उदाहरण के साथ)

आप एक्सेल शीट से सभी फ़िल्टर साफ़ करने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

यह विशेष मैक्रो वर्तमान में सक्रिय शीट से सभी फ़िल्टर साफ़ कर देगा।

यह मैक्रो वर्तमान में छिपी सभी पंक्तियों को दृश्यमान बनाने के लिए शोऑलडेटा विधि का उपयोग करके काम करता है।

यदि सक्रिय शीट पर वर्तमान में कोई पंक्तियाँ फ़िल्टर नहीं की गई हैं, तो इस मैक्रो को चलाने पर कुछ भी नहीं होगा।

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

उदाहरण: वीबीए का उपयोग करके एक्सेल में सभी फ़िल्टर साफ़ करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

अब मान लीजिए कि हम केवल उन पंक्तियों को दिखाने के लिए एक फ़िल्टर जोड़ते हैं जहां टीम कॉलम में मान माव्स या नेट के बराबर है:

अब मान लीजिए कि हम VBA का उपयोग करके इस फ़िल्टर को साफ़ करना चाहते हैं।

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

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

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

ध्यान दें कि पिछली सभी छिपी हुई पंक्तियाँ अब फिर से दिखाई दे रही हैं क्योंकि हमने फ़िल्टर साफ़ कर दिया है।

नोट : आप VBA शोऑलडेटा विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए: पिवट टेबल को कैसे फ़िल्टर करें
वीबीए: पिवट टेबल को रीफ्रेश कैसे करें
वीबीए: डुप्लिकेट मान कैसे हटाएं