हम आमतौर पर फ़िल्टर . का उपयोग करते हैं माइक्रोसॉफ्ट एक्सेल . में जब हमें विशिष्ट डेटा को बल्क डेटा से अलग करने की आवश्यकता होती है। उन्नत फ़िल्टर कुछ अतिरिक्त सुविधाएं जोड़ता है। एक्सेल वीबीए यह उन्नत फ़िल्टर विकल्प भी है। हम Excel VBA . के कुछ उदाहरण दिखाएंगे यहां उन्नत फ़िल्टर मानदंड के साथ।
मानदंड के साथ Excel VBA उन्नत फ़िल्टर के 6 उदाहरण
6 Excel VBA . के उदाहरण इस खंड में उन्नत फ़िल्टर मानदंड दिखाए जाएंगे।
हम इस उद्देश्य के लिए निम्नलिखित डेटासेट का उपयोग करेंगे।
उदाहरण 1:एक्सेल VBA वर्तमान स्थान में डेटा फ़िल्टर करने के लिए
हम VBA मैक्रो apply लागू करेंगे मानदंड के आधार पर डेटा फ़िल्टर करने और फ़िल्टर किए गए डेटा को वर्तमान स्थान पर रखने के लिए।
B16:E17 . श्रेणी में , हम मानदंड निर्धारित करते हैं।
चरण 1:
- सबसे पहले, डेवलपर पर जाएं टैब।
- रिकॉर्ड मैक्रो पर क्लिक करें रिबन से।
- एक नया डायलॉग बॉक्स दिखाई देगा। वहां मैक्रो के लिए एक नाम सेट करें और ठीक press दबाएं ।
चरण 2:
- अब, मैक्रोज़ . पर क्लिक करें रिबन पर।
- मैक्रो चुनें और प्रवेश करें यह।
चरण 3:
- अब, निम्न को कॉपी करें VBA कोड और इसे कमांड मॉड्यूल पर रखें।
Sub Filter_Criteria()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria
End Sub
चरण 4:
- अब, F5 press दबाएं कोड चलाने के लिए बटन।
हमने शिकागो . की बिक्री दिखाने के लिए मानदंड निर्धारित किए हैं केवल स्टोर करें और यहां परिणाम है।
यहां, एक ही शीट में हमारे डेटा और मानदंड हैं।
और पढ़ें: Excel में किसी अन्य स्थान पर कॉपी करने के लिए उन्नत फ़िल्टर कैसे लागू करें
उदाहरण 2:उन्नत फ़िल्टर के लिए एक्सेल VBA जब डेटा और मानदंड अलग-अलग शीट में दिए गए हों
इस उदाहरण में, हम दिखाएंगे कि एक ऐसी स्थिति का सामना कैसे करना चाहिए जब हमारे मानदंड और डेटा अलग-अलग शीट पर मौजूद हों।
हमारा डेटा Criteria_Different_Sheet . नाम की शीट पर है और मानदंड शीट मानदंड . में दिए गए हैं ।
चरण 1:
- प्रेस Alt+F11 कमांड मॉड्यूल दर्ज करने के लिए।
- नीचे दिए गए कोड को कमांड मॉड्यूल में डालें।
Sub Filter_Criteria_2()
Dim data As Range
Dim criteria As Range
Set data = Sheets("Criteria_Different_Sheet").Range("B4:E14")
Set criteria = Sheets("Criteria").Range("B4:E5")
data.AdvancedFilter xlFilterInPlace, criteria
End Sub
चरण 2:
- हिट F5 कोड चलाने के लिए।
जब किसी अन्य शीट पर इस तरह से मानदंड दिए जाते हैं तो हम डेटा फ़िल्टर कर सकते हैं।
और पढ़ें: Excel में एक कॉलम में एकाधिक मानदंडों के आधार पर उन्नत फ़िल्टर लागू करें
उदाहरण 3:डेटा को फ़िल्टर करने के लिए एक्सेल VBA और एक ही शीट के अलग-अलग स्थान पर पेस्ट करें
यदि आप हमारे फ़िल्टर किए गए डेटा को किसी भिन्न स्थान पर चिपकाना चाहते हैं, तो नीचे दिए गए चरणों का पालन करें।
चरण 1:
- Alt+F11 दबाएं कमांड मॉड्यूल दर्ज करने के लिए।
- निम्न कोड को कमांड मॉड्यूल पर लिखें।
Sub Filter_Criteria_3()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteria, CopyToRange:=Range("G4:J14")
End Sub
चरण 2:
- F5 दबाएं बटन और कोड चलेगा।
देखें कि फ़िल्टर किया गया डेटा किसी अन्य स्थान पर चिपकाया गया है। CopyToRange आदेश डेटा पेस्ट करने के लिए एक अलग स्थान निर्दिष्ट करता है।
संबंधित सामग्री: एक्सेल में किसी अन्य शीट पर डेटा कॉपी करने के लिए उन्नत फ़िल्टर का उपयोग कैसे करें
समान रीडिंग:
- Excel VBA:एक श्रेणी में कई मानदंडों के साथ उन्नत फ़िल्टर (5 तरीके)
- Excel में रिक्त कक्षों को बाहर करने के लिए उन्नत फ़िल्टर का उपयोग कैसे करें (3 आसान ट्रिक्स)
- Excel उन्नत फ़िल्टर [एकाधिक कॉलम और मानदंड, फ़ॉर्मूला का उपयोग करना और वाइल्डकार्ड के साथ]
उदाहरण 4:केवल Excel VBA का उपयोग करके अद्वितीय डेटा फ़िल्टर करें
हम इस Excel VBA . से अद्वितीय डेटा प्राप्त कर सकते हैं अग्रिम फ़िल्टर। इस प्रक्रिया में, केवल पहला घटनाएँ डेटासेट में मौजूद होंगी और दूसरी या आगे की आवृत्तियाँ हटा दी जाएँगी।
चरण 1:
- Alt+F11 pressing दबाकर कमांड मॉड्यूल दर्ज करें ।
- निम्न कोड को कमांड मॉड्यूल पर रखें।
Sub Filter_Criteria_4()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria, , True
End Sub
चरण 2:
- अब, F5 . दबाकर कोड चलाएँ ।
हमने पहला . चिह्नित किया है हरे रंग और दूसरा . द्वारा घटना पीले रंग की घटना। कोड चलाने के बाद, पीले रंग का सेल हटा दिया जाता है।
और पढ़ें: केवल एक्सेल में विशिष्ट रिकॉर्ड के लिए उन्नत फ़िल्टर का उपयोग कैसे करें
उदाहरण 5:Excel VBA में बिना मानदंड के डुप्लिकेट फ़िल्टर करें और निकालें
हम कोई मानदंड स्थापित किए बिना डुप्लिकेट को हटा सकते हैं। नीचे दिए गए चरणों को देखें।
चरण 1:
- VBA पर जाएं Alt+F11 . को दबाने वाला कमांड मॉड्यूल
- निम्न कोड को कमांड मॉड्यूल पर कॉपी और पेस्ट करें।
Sub Filter_Criteria_5()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
data.AdvancedFilter xlFilterInPlace, , , True
End Sub
चरण 2:
- दबाएं F5 कुंजी और कोड चलेगा।
डेटासेट देखें। हमने यहां डुप्लिकेट को चिह्नित किया है। कोड लागू करने के बाद, पहला घटना डेटासेट पर मौजूद रहती है और बाकी हटा दी जाती है।
और पढ़ें: Excel उन्नत फ़िल्टर काम नहीं कर रहा है (2 कारण और समाधान)
उदाहरण 6:डेटा फ़िल्टर करने के लिए ऑपरेटर साइन-ऑन मानदंड डालें
हम अपने डेटा को फ़िल्टर करने के लिए मापदंड में ऑपरेटरों का उपयोग कर सकते हैं। उसके लिए निम्न चरण देखें।
चरण 1:
- प्रेस Alt+F11 और कमांड मॉड्यूल दर्ज करें।
- नीचे दिए गए कोड को मॉड्यूल पर रखें।
Sub Filter_Criteria_7()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterCopy, criteria, Range("G4:J14")
End Sub
चरण 2:
- हिट F5 कोड चलाने के लिए।
परिणामस्वरूप, हमें $1.00 . से अधिक मान प्राप्त होते हैं ।
और पढ़ें: VBA में उन्नत फ़िल्टर का उपयोग कैसे करें (एक चरण-दर-चरण दिशानिर्देश)
याद रखने योग्य बातें
- प्रत्येक डेटा कॉलम में एक अद्वितीय शीर्षक होना चाहिए।
- डेटासेट में रिक्त पंक्तियों की अनुमति नहीं है।
निष्कर्ष
इस लेख में, हमने 6 . दिखाया है एक्सेल वीबीए उन्नत फ़िल्टर मानदंड के उदाहरण। मुझे आशा है कि यह आपकी आवश्यकताओं को पूरा करेगा। कृपया हमारी वेबसाइट पर एक नज़र डालें Exceldemy.com और अपने सुझाव कमेंट बॉक्स में दें।
संबंधित लेख
- Excel में कई मानदंडों के साथ उन्नत फ़िल्टर (15 उपयुक्त उदाहरण)
- डायनामिक उन्नत फ़िल्टर एक्सेल (VBA और मैक्रो)
- Excel में मानदंड श्रेणी के साथ उन्नत फ़िल्टर (18 अनुप्रयोग)
- उन्नत फ़िल्टर का उपयोग कैसे करें यदि मानदंड श्रेणी में एक्सेल में टेक्स्ट है
- Excel उन्नत फ़िल्टर:"इसमें शामिल नहीं है" (2 तरीके) लागू करें