कोड से ऑटोफिल्टर बंद करें - वीबीए कोड उदाहरण

यह ट्यूटोरियल प्रदर्शित करेगा कि VBA में AutoFilters को कैसे बंद/साफ़ करें।

VBA कोड का उपयोग करके AutoFilters को चालू या बंद किया जा सकता है।

VBA में सक्रिय कार्यपत्रक में AutoFilter बंद करें

निम्न कोड उदाहरण सक्रिय शीट में ऑटोफ़िल्टर को बंद कर देता है, पहले यह जाँचता है कि यह पहले से बंद नहीं है।

12345

सार्वजनिक उप किलफिल्टर ()अगर ActiveSheet.AutoFilterMode तोActiveSheet.AutoFilterMode = Falseअगर अंतअंत उप

VBA में सक्रिय वर्कशीट में ऑटोफ़िल्टर चालू करें

निम्न कोड उदाहरण सक्रिय शीट में ऑटोफ़िल्टर को चालू करता है, पहले जाँचता है कि यह पहले से चालू नहीं है।

12345

सार्वजनिक उप स्टार्टफिल्टर ()यदि एक्टिवशीट नहीं है। ऑटोफिल्टर मोड तोActiveSheet.Range("A1").AutoFilterअगर अंतअंत उप

VBA में सभी कार्यपत्रकों में AutoFilter बंद करें।

निम्नलिखित कोड उदाहरण संपूर्ण कार्यपुस्तिका में प्रत्येक शीट के माध्यम से लूप करता है और प्रत्येक कार्यपत्रक में ऑटोफ़िल्टर को बंद कर देता है, पहले यह जांचता है कि वर्तमान कार्यपुस्तिका में फ़िल्टर पहले से चालू नहीं है।

12345678

सार्वजनिक उप स्टॉपऑलफिल्टर ()वर्कशीट के रूप में डिम WSActiveWorkbook.Worksheets में प्रत्येक ws के लिएअगर ws.AutoFilterMode = सही है तोws.AutoFilterMode = Falseअगर अंतअगला wsअंत उप

VBA में सभी कार्यपत्रकों में AutoFilter बंद करें।

इसी तरह, निम्न कोड उदाहरण संपूर्ण कार्यपुस्तिका में लूप करता है और प्रत्येक शीट में ऑटोफ़िल्टर चालू करता है, पहले जाँचता है कि वर्तमान कार्यपुस्तिका में फ़िल्टर पहले से चालू नहीं है।

12345678

सार्वजनिक उप StartAllFilters ()वर्कशीट के रूप में डिम WSActiveWorkbook.Worksheets में प्रत्येक ws के लिएयदि नहीं ws.AutoFilterMode तोws.Range("A1").AutoFilterअगर अंतअगला wsअंत उप

VBA में सक्रिय वर्कशीट में सभी फ़िल्टर साफ़ करें

निम्न कोड उदाहरण सक्रिय शीट में ऑटोफ़िल्टर को चालू कर देता है, लेकिन डेटा पर लागू होने वाले किसी भी फ़िल्टर को साफ़ कर देता है।

12345

सार्वजनिक उप ClearFilter ()अगर ActiveSheet.FilterMode = True तबActiveSheet.ShowAllDataअगर अंतअंत उप

VBA में सभी कार्यपत्रकों में सभी फ़िल्टर साफ़ करें

इसी तरह, निम्न कोड उदाहरण संपूर्ण कार्यपुस्तिका के माध्यम से लूप करता है और ऑटोफ़िल्टर को प्रत्येक शीट में चालू होने पर छोड़ देता है यदि यह पहले से ही चालू है, लेकिन डेटा पर लागू होने वाले किसी भी फ़िल्टर को साफ़ करता है।

12345678

सार्वजनिक उप ClearAllFilters ()वर्कशीट के रूप में डिम WSActiveWorkbook.Worksheets में प्रत्येक ws के लिएअगर ws.FilterMode = True तबws.ShowAllDataअगर अंतअगला wsअंत उप

VBA में किसी तालिका के सभी फ़िल्टर साफ़ करें

क्या हमारे वर्कशीट में टेबल ऑब्जेक्ट होना चाहिए, हम ऑटोफिल्टर को चालू रखते हुए, उस फ़िल्टर पर लागू होने वाले किसी भी फ़िल्टर को साफ़ करने के लिए कोड को समायोजित कर सकते हैं।

123456789

उप ClearFilterFromTable ()वर्कशीट के रूप में डिम WSस्ट्रिंग के रूप में मंद स्थिरListObject के रूप में मंद लोटेबलएसटेबल = "टेबल 1"सेट ws = एक्टिवशीटloTable = ws.ListObjects (sTable) सेट करेंloTable.AutoFilter.ShowAllDataअंत उप

क्या टेबल ऑब्जेक्ट को पिवट टेबल से लिंक किया जाना चाहिए, तो पिवट टेबल तदनुसार रीफ्रेश हो जाएगा।