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


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

विधि 1: कॉलम के मान के आधार पर फ़िल्टर करें

 SubFilterRows ()
ActiveSheet.Range(" A1:C11 ").AutoFilter field:=1, Criteria1:=Range(" F2 ").Value
End Sub

यह विशेष मैक्रो केवल उन पंक्तियों को दिखाने के लिए श्रेणी A1:C11 को फ़िल्टर करेगा जिनका पहला कॉलम सेल F2 के मान के बराबर है।

विधि 2: एकाधिक स्तंभ मानों के आधार पर फ़िल्टर करें

 SubFilterRows ()
ActiveSheet.Range(" A1:C11 ").AutoFilter field:=1, Criteria1:=Range(" F2 ").Value, _
                                 Operator:=xlOr, Criteria2:=Range(" F3 ").Value
End Sub

यह विशेष मैक्रो केवल उन पंक्तियों को दिखाने के लिए श्रेणी A1:C11 को फ़िल्टर करेगा जिनका पहला कॉलम सेल F2 या F3 के मान के बराबर है।

विधि 3: फ़िल्टर साफ़ करें

 SubClearFilters ()
ActiveSheet.AutoFilterMode = False
End Sub

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

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

उदाहरण 1: कॉलम के मान के आधार पर फ़िल्टर करें

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

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

 SubFilterRows ()
ActiveSheet.Range(" A1:C11 ").AutoFilter field:=1, Criteria1:=Range(" F2 ").Value
End Sub

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

सेल मान के आधार पर VBA फ़िल्टर कॉलम

उदाहरण 2: एकाधिक कॉलम मानों के आधार पर फ़िल्टर करें

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

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

 SubFilterRows ()
ActiveSheet.Range(" A1:C11 ").AutoFilter field:=1, Criteria1:=Range(" F2 ").Value, _
                                 Operator:=xlOr, Criteria2:=Range(" F3 ").Value
End Sub

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

कई मानदंडों के आधार पर VBA फ़िल्टर कॉलम

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

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

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

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

एक टिप्पणी जोड़ने

आपका ईमेल पता प्रकाशित नहीं किया जाएगा. आवश्यक फ़ील्ड चिह्नित हैं *