एक्सेल VBA मास्टरी: AND और OR क्राइटेरिया का उपयोग करके डेटा फ़िल्टर करें

इस लेख में, मैं आपको दिखाऊंगा कि एक्सेल में VBA का उपयोग करके डेटासेट से कई मानदंडों को कैसे फ़िल्टर किया जाए। आप AND प्रकार और OR प्रकार दोनों के कई मानदंडों को फ़िल्टर करना सीखेंगे।

VBA के साथ एक्सेल में कई मानदंड फ़िल्टर करने के 2 आसान तरीके

यहां हमारे पास मार्टिन बुकस्टोर नामक एक किताब की दुकान के किताबों के नाम, किताब के प्रकार और कीमतों का एक डेटा सेट है।

आज हमारा उद्देश्य विज़ुअल बेसिक फॉर एप्लीकेशन्स (VBA) के साथ इस डेटा सेट से कई मानदंडों को फ़िल्टर करना है।

1. VBA के साथ एक्सेल में AND प्रकार के कई मानदंड फ़िल्टर करें

सबसे पहले, हम किसी भी डेटा सेट के लिए AND प्रकार के कई मानदंडों को फ़िल्टर करने के लिए एक मैक्रो विकसित करेंगे।

उदाहरण के लिए, आइए उन किताबों को फ़िल्टर करने का प्रयास करें जो उपन्यास हैं और जिनकी कीमत $25.00 से अधिक है।

⧭ VBA कोड:

Sub Filter_Multiple_Criteria_AND_Type() Count = 1 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 2) = "Novel" And Selection.Cells(i, 3) >= 25 Then For j = 1 To Selection.Columns.Count Range("F4").Cells(Count, j) = Selection.Cells(i, j) Next j Count = Count + 1 End If Next i End Sub

⧭ आउटपुट:

वर्कशीट से डेटा सेट चुनें और यह मैक्रो (Filter_Multiple_Criteria_AND_Type) चलाएं।

यह उन किताबों को फ़िल्टर करेगा जो उपन्यास हैं और जिनकी कीमत $25.00 से अधिक है, एक नई रेंज में जो सेल F4 से शुरू होती है।

⧭ नोट्स:

• कोड की चौथी पंक्ति में, हमने Cells(i, 2) = "Novel" और Selection.Cells(i, 3) >=25 का उपयोग किया है।

• यहां हम चाहते थे कि दूसरे कॉलम (बुक टाइप) का मान "Novel" के बराबर हो और तीसरे कॉलम (कीमत) का मान $25.00 से अधिक या बराबर हो।
• आप इन्हें अपनी आवश्यकताओं के अनुसार बदल सकते हैं।
• उदाहरण के लिए, यदि आप उन किताबों को चाहते हैं जिनकी कीमत $20.00 से अधिक या बराबर है लेकिन $30.00 से कम या बराबर है, तो Selection.Cells(i, 3) >=20 और Selection.Cells(i, 3) <=30 का उपयोग करें।
• इसके अलावा लाइन 6 में, हमने Range("F4") का उपयोग किया है क्योंकि हम चाहते थे कि फ़िल्टर किया गया डेटा सेल F4 से शुरू हो।

• आप इसे तदनुसार बदल सकते हैं।

और पढ़ें: एक्सेल में कई मानदंड फ़िल्टर करें

समान लेख:

• एक्सेल में कस्टम फ़िल्टर कैसे करें (5 तरीके)
• एक्सेल में फ़िल्टर जोड़ें (4 विधियां)
• एक्सेल फ़िल्टर के लिए शॉर्टकट (उदाहरणों के साथ 3 त्वरित उपयोग)
• एक्सेल में टेक्स्ट फ़िल्टर का उपयोग कैसे करें (5 उदाहरण)

2. VBA के साथ एक्सेल में OR प्रकार के कई मानदंड फ़िल्टर करें

अब, हम किसी भी डेटा सेट के लिए OR प्रकार के कई मानदंडों को फ़िल्टर करने के लिए एक मैक्रो विकसित करेंगे।

उदाहरण के लिए, आइए इस बार उन किताबों को फ़िल्टर करने का प्रयास करें जो उपन्यास हैं या जिनकी कीमत $25.00 से अधिक है।

⧭ VBA कोड:

Sub Filter_Multiple_Criteria_Or_Type() Count = 1 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 2) = "Novel" Or Selection.Cells(i, 3) >= 25 Then For j = 1 To Selection.Columns.Count Range("F4").Cells(Count, j) = Selection.Cells(i, j) Next j Count = Count + 1 End If Next i End Sub

⧭ आउटपुट:

वर्कशीट से डेटा सेट चुनें और यह मैक्रो (Filter_Multiple_Criteria_OR_Type) चलाएं।

यह उन किताबों को फ़िल्टर करेगा जो उपन्यास हैं या जिनकी कीमत $25.00 से अधिक है, एक नई रेंज में जो सेल F4 से शुरू होती है।

⧭ नोट्स:

• कोड की चौथी पंक्ति में, हमने Selection.Cells(i, 2) = "Novel" या Selection.Cells(i, 3) >=25 का उपयोग किया है।

• यहां हम चाहते थे कि दूसरे कॉलम (बुक टाइप) का मान "Novel" के बराबर हो या तीसरे कॉलम (कीमत) का मान $25.00 से अधिक या बराबर हो।
• आप इन्हें अपनी आवश्यकताओं के अनुसार बदल सकते हैं।
• इसके अलावा लाइन 6 में, हमने Range("F4") का उपयोग किया है क्योंकि हम चाहते थे कि फ़िल्टर किया गया डेटा सेल F4 से शुरू हो।

और पढ़ें: एक्सेल में एकाधिक फ़िल्टर कैसे लागू करें [विधियां + VBA]

याद रखने योग्य बातें

यहां हमने कई मानदंडों के लिए दो मानदंडों का उपयोग किया है। आप जितने चाहें उतने मानदंडों का उपयोग कर सकते हैं। बस सभी मानदंडों को शर्त के अनुसार And या Or से जोड़ दें।

निष्कर्ष

इन विधियों का उपयोग करके, आप VBA के साथ एक्सेल में AND और OR दोनों प्रकार के कई मानदंडों को फ़िल्टर कर सकते हैं। क्या आपके कोई प्रश्न हैं? बेझिझक हमसे पूछें। और अधिक पोस्ट और अपडेट के लिए हमारी साइट ExcelDemy पर जाना न भूलें।

आगे पढ़ें

• एक्सेल में स्वतंत्र रूप से कई कॉलम फ़िल्टर कैसे करें
• एक्सेल फ़िल्टर में कई आइटम खोजें (2 तरीके)
• एक्सेल में फ़िल्टर हटाने के 5 आसान और त्वरित तरीके
• एक्सेल में तारीख के अनुसार फ़िल्टर करें (4 त्वरित विधियां)