Excel में एकाधिक शीट पर एक ही फ़िल्टर कैसे लागू करें?
वर्कशीट में डेटा को फ़िल्टर करने के लिए फ़िल्टर फ़ंक्शन को लागू करना हमारे लिए आसान हो सकता है, लेकिन, कभी-कभी, आपको कई वर्कशीट में फ़िल्टर करने की आवश्यकता हो सकती है, जिसमें समान फ़िल्टर मानदंड के साथ सामान्य डेटा फ़ॉर्मेटिंग होती है। उन्हें एक-एक करके फ़िल्टर करने में बहुत समय बर्बाद होगा, यहां, मैं इसे तुरंत हल करने का एक आसान तरीका पेश कर सकता हूं।
VBA कोड के साथ एकाधिक वर्कशीट पर एक ही फ़िल्टर लागू करें
VBA कोड के साथ एकाधिक वर्कशीट पर एक ही फ़िल्टर लागू करें
उदाहरण के लिए, मेरे पास चार वर्कशीट हैं क्योंकि निम्नलिखित स्क्रीनशॉट को उसी मानदंड के साथ फ़िल्टर करने की आवश्यकता है कि उत्पाद = केटीई एक बार में।
एक्सेल में एकाधिक शीट में डेटा को फ़िल्टर करने का कोई सीधा तरीका नहीं है, लेकिन, निम्नलिखित वीबीए कोड आपको इस काम को पूरा करने में मदद कर सकता है, कृपया निम्नानुसार कार्य करें:
1. दबाए रखें ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: एकाधिक कार्यपत्रकों पर एक ही फ़िल्टर लागू करें:
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. और फिर दबाएं F5 इस कोड को चलाने की कुंजी, KTE के सभी उत्पादों को एक ही बार में सभी वर्कशीट में फ़िल्टर कर दिया गया है, स्क्रीनशॉट देखें:
नोट: उपरोक्त कोड के अंदर, इसमें xWs.रेंज("A1").ऑटोफ़िल्टर 1, "=KTE" स्क्रिप्ट, A1 और =केटीई उस कॉलम और मानदंड को इंगित करता है जिसके आधार पर आप फ़िल्टर करना चाहते हैं, नंबर 1 वह कॉलम नंबर है जिसके आधार पर आपने फ़िल्टर किया है, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं। उदाहरण के लिए, यदि आप 50 से अधिक के ऑर्डर को फ़िल्टर करना चाहते हैं, तो आपको बस इस स्क्रिप्ट को इस प्रकार संशोधित करना होगा: xWs.रेंज("बी1").ऑटोफ़िल्टर 2, ">50".
डेटा को कई मानदंडों या अन्य विशिष्ट स्थितियों के आधार पर फ़िल्टर करें, जैसे पाठ की लंबाई, केस संवेदनशील आदि के आधार पर।
एक्सेल के लिए कुटूलहै सुपर फ़िल्टर सुविधा एक शक्तिशाली उपयोगिता है, आप निम्नलिखित कार्यों को पूरा करने के लिए इस सुविधा को लागू कर सकते हैं:
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें! |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!