एक्सेल क्रमवारी लावा & फिल्टर कमांड मध्ये फिल्टर डेटा पर्यंत मर्यादित श्रेणी आहे. परंतु VBA वापरून तुम्ही तुमच्या इच्छेनुसार डेटा फिल्टर करू शकता . हा लेख तुम्हाला ज्वलंत चित्रांसह VBA कोड वापरून एक्सेलमध्ये VBA कोड फिल्टर डेटा वापरण्यासाठी 8 उपयुक्त उदाहरणे देईल.

सराव कार्यपुस्तिका डाउनलोड करा

तुम्ही येथून विनामूल्य एक्सेल टेम्पलेट डाउनलोड करू शकता आणि स्वत: सराव करू शकता.

चरण:

• राइट-क्लिक शीट शीर्षक वर.
• नंतर संदर्भ मेनू मधून दृश्य कोड निवडा .

लवकरच नंतर, एक VBA विंडो उघडेल.

• टाइप करा खालील कोड it-

8733

• नंतर, VBA

कमी करा कोड ब्रेकडाउन

• येथे, मी एक उप प्रक्रिया तयार केली, फिल्टर_डेटा_टेक्स्ट() .
• नंतर वापरले श्रेणी मालमत्ता आमच्या संबंधित शीट नाव घोषित करण्यासाठी आणि श्रेणी
• पुढे, मी माझ्या पसंतीचा मापदंड वापरण्यासाठी ऑटोफिल्टर पद्धत वापरली जेथे फील्ड:=2 म्हणजे स्तंभ 2 . आणि मापदंड1:=”पुरुष” ते पुरुषासाठी डेटा फिल्टर करा.

• त्यानंतर, <1 वर>उघडा मॅक्रो डायलॉग बॉक्स , क्लिक करा खालील प्रमाणे: डेव्हलपर > मॅक्रो.

• कोडमध्ये नमूद केल्यानुसार मॅक्रो नाव निवडा .
• शेवटी, फक्त रन दाबा .

आता बघा आमच्याकडे फक्त पुरुष विद्यार्थ्यांचा डेटा फिल्टरिंग नंतर.

अधिक वाचा: एक्सेल फिल्टर डेटावर आधारित सेल मूल्य (6 कार्यक्षम मार्ग)

2. एका स्तंभात अनेक निकषांसह डेटा फिल्टर करण्यासाठी VBA कोड लागू करा

येथे, आम्ही एका स्तंभातील अनेक निकषांसाठी फिल्टर करू. डेटासेटच्या स्तंभ क्रमांक तीनमधून, आम्ही पदवीधर आणि पदव्युत्तर विद्यार्थ्यांसाठी फिल्टर करू.

चरण:

• VBA विंडो उघडण्यासाठी पहिल्या उदाहरणा च्या पहिल्या दोन पायऱ्या फॉलो करा.
• नंतर, त्यामध्ये खालील कोड टाइप करा-

7812

• नंतर VBA

कोड ब्रेकडाउन

• येथे, मी उप प्रक्रिया, तयार केली Filter_One_Column() .
• नंतर आमच्या संबंधित पत्रकाचे नाव आणि श्रेणी
• घोषित करण्यासाठी श्रेणी गुणधर्म वापरले. पुढे, मी दमाझ्या पसंतीचा निकष वापरण्यासाठी ऑटोफिल्टर पद्धत जिथे फील्ड:=3 म्हणजे स्तंभ 3 . येथे, निकष1:=”पदवीधर” आणि निकष2:=”पदव्युत्तर” ते फिल्टर विद्यार्थ्याची स्थिती .
• शेवटी, मी अनेक निकषांसाठी किंवा स्थिती फिल्टर लागू करण्यासाठी ऑपरेटर:=xlOr वापरले.

• यावर क्षण, मॅक्रो डायलॉग बॉक्स उघडण्यासाठी पहिल्या उदाहरणावरून तिसरे चरण फॉलो करा.
• नंतर, निवडा निर्दिष्ट केलेले मॅक्रो नाव आणि रन दाबा .

लवकरच, तुम्हाला खालील प्रतिमेप्रमाणे अनेक निकषांवर आधारित फिल्टर केलेल्या पंक्ती मिळतील.

अधिक वाचा: एक्सेलमध्ये अनेक निकष फिल्टर करा (4 योग्य मार्ग)

3. एक्सेलमधील वेगवेगळ्या स्तंभांमध्ये एकाधिक निकषांसह डेटा फिल्टर करण्यासाठी VBA कोड लागू करा

आता आम्ही अनेक निकषांसाठी फिल्टर करू- पुरुष आणि पदवीधर विद्यार्थी.

पायऱ्या:

• पहिल्या दोन पायऱ्या फॉलो करा पहिले उदाहरण ते VBA
• नंतर उघडा, त्यामध्ये खालील कोड लिहा-

9379

• नंतर की VBA विंडो लहान करा .

कोड ब्रेकडाउन

• येथे, मी Sub प्रक्रिया, Filter_Different_Columns() तयार केली.
• नंतर, मी <1 वापरण्यासाठी सह विधान वापरले>एकाधिक स्तंभ .
• नंतर श्रेणी वापरलीआमची संबंधित शीट नाव आणि श्रेणी
• घोषित करण्यासाठी गुणधर्म, मी मापदंड वापरण्यासाठी ऑटोफिल्टर पद्धत वापरली माझी निवड जेथे फील्ड:=2 म्हणजे स्तंभ 2 आणि फील्ड:=3 म्हणजे स्तंभ 3 .
• येथे , स्थिती स्तंभ फिल्टर करण्यासाठी लिंग स्तंभ आणि निकष1:=”पदवीधर” साठी निकष1:=”पुरुष” निवडले. वेगवेगळ्या कॉलम्स मधील डेटा.

• नंतर तिसरी पायरी फॉलो करा पहिल्या उदाहरणावरून उघडण्यासाठी मॅक्रो डायलॉग बॉक्स .
• नंतर, निवडा निर्दिष्ट केलेले मॅक्रो नाव आणि रन दाबा .

येथे अनेक निकषांचे आउटपुट आहे.

अधिक वाचा: Excel VBA एकाधिक निकषांनुसार एकाच स्तंभात फिल्टर करण्यासाठी (6 उदाहरणे)

4. एक्सेलमधील टॉप 3 आयटम फिल्टर करण्यासाठी VBA कोड वापरा

या उदाहरणात, आम्ही टॉप तीन विद्यार्थ्यांना त्यांच्या वय नुसार फिल्टर करू.

पायऱ्या:

• VBA विंडो उघडण्यासाठी पहिल्या उदाहरणा च्या पहिल्या दोन पायऱ्या फॉलो करा .
• नंतर टाइप करा खालील कोड त्यात-

6401

• त्यानंतर कमी करा VBA विंडो .

कोड ब्रेकडाउन

• येथे, मी सब प्रक्रिया तयार केली, फिल्टर_टॉप3_आयटम्स() .
• आणि नंतर ऑपरेटर:=xlTop10आयटम्स करता फिल्टर साठी शीर्ष तीन डेटा .

• आता उघडण्यासाठी पहिल्या उदाहरणा वरून तिसरी पायरी फॉलो करा मॅक्रो डायलॉग बॉक्स .
• नंतर कोडमध्ये नमूद केल्याप्रमाणे मॅक्रो नाव निवडा आणि रन दाबा .

मग तुम्हाला खालील चित्राप्रमाणे आउटपुट मिळेल-

अधिक वाचा: एक्सेल व्हीबीए (4 पद्धती) वापरून सेल मूल्यावर आधारित फिल्टर कसे करावे

समान वाचन

• कसे कॉपी आणि पेस्ट करावे फिल्टर एक्सेलमध्ये लागू केले जाते
• एक्सेलमध्ये अद्वितीय मूल्ये कशी फिल्टर करावी (8 सोपे मार्ग)
• VBA (दोन्ही) सह एक्सेलमध्ये एकाधिक निकष फिल्टर करा आणि आणि किंवा प्रकार)
• एक्सेलमध्ये मजकूर फिल्टर कसे वापरावे (5 उदाहरणे)
• एक्सेलमध्ये तारखेनुसार कसे फिल्टर करावे (4 द्रुत पद्धती)

5. एक्सेलमधील टॉप ५० टक्के फिल्टर करण्यासाठी VBA कोड वापरा

त्यांच्या वयानुसार टॉप पन्नास टक्के विद्यार्थ्यांना फिल्टर करण्यासाठी VBA कोड वापरू. .

चरण:

• प्रथम, पहिल्या उदाहरणाचे पहिल्या दोन पायऱ्या फॉलो करा VBA विंडो उघडण्यासाठी.
• नंतर, टाइप करा खालील कोड त्यामध्ये-

1459

• VBA विंडो लहान करा.

कोड ब्रेकडाउन

• या क्षणी, तिसरी पायरी फॉलो करा पहिल्या उदाहरणावरून <उघडण्यासाठी 1>मॅक्रो डायलॉग बॉक्स.
• नंतर निवडा निर्दिष्ट मॅक्रो नाव आणि रन दाबा.

एकूण 7 विद्यार्थी होते त्यामुळे 50 टक्के , ते अंदाजे तीन विद्यार्थी दाखवत आहेत.<3

अधिक वाचा: एक्सेलमध्ये नफा टक्केवारी फॉर्म्युला कसा वापरायचा (3 उदाहरणे)

6 . वाइल्डकार्ड वापरून डेटा फिल्टर करण्यासाठी VBA कोड लागू करा

आम्ही एक्सेलमधील डेटा फिल्टर करण्यासाठी VBA कोड मध्ये वाइल्डकार्ड वर्ण-* (तारका) वापरू शकतो. स्थिती स्तंभ मधून, आम्ही फक्त 'पोस्ट' असलेली मूल्ये फिल्टर करू.

चरण:

VBA विंडो उघडण्यासाठी
• पहिल्या दोन पायऱ्या फॉलो करा पहिले उदाहरण .
• नंतर लिहा खालील कोड त्यात-

9737

• नंतर, VBA विंडो कमी करा.

कोड ब्रेकडाउन

• येथे, मी उप प्रक्रिया, फिल्टर_विथ_वाइल्डकार्ड()<तयार केली 18>.
• नंतर रेंज सेट करण्यासाठी श्रेणी (“B4”) वापरले.
• पुढे , वापरले ऑटोफिल्टर ते फिल्टर मध्ये फील्ड:=3 म्हणजे स्तंभ 3.
• निकष1:=”*पोस्ट *” ते फिल्टर मूल्ये ज्यात 'पोस्ट' आहे.

• आता तिसरी पायरी फॉलो करा पहिल्या पासून उदाहरण मॅक्रो डायलॉग उघडण्यासाठीबॉक्स.
• निर्दिष्ट केलेले मॅक्रो नाव निवडा आणि रन दाबा .

मग तुम्हाला इच्छित आउटपुट मिळेल.

अधिक वाचा: एक्सेलमध्ये फिल्टर कसे जोडायचे (4 पद्धती )

7. एक्सेल मधील नवीन शीटमध्ये फिल्टर केलेला डेटा कॉपी करण्यासाठी एक्सेल VBA एम्बेड करा

माझ्या डेटासेटमध्ये काही फिल्टर केलेला डेटा आहे हे पहा. आता मी त्यांना VBA वापरून नवीन शीटमध्ये कॉपी करेन. हे कोड शीटमध्ये योग्यरित्या कार्य करणार नाहीत, तुम्हाला ते मॉड्यूलमध्ये लागू करावे लागतील.

चरण:

• Alt+F11 दाबा VBA

• नंतर Insert > वर क्लिक करा. मॉड्यूल करण्यासाठी मॉड्यूल उघडा .

• आता लिहा खालील कोड –

5750

• नंतर VBA

• येथे, मी उप प्रक्रिया, कॉपी_फिल्टर्ड_डेटा_न्यूशीट() तयार केली.
• त्यानंतर टू-व्हेरिएबल घोषित केले- x Rng रेंज म्हणून आणि xWS वर्कशीट म्हणून.
• नंतर एक IF स्टेटमेंट वापरले तपासा फिल्टर केलेले
• नंतर, आउटपुट दर्शविण्यासाठी MsgBox वापरले.
• नंतर वर्कशीट्स (“फिल्टर्ड डेटा कॉपी करा”).ऑटोफिल्टर वापरले. .श्रेणी फिल्टर केलेली श्रेणी निवडण्यासाठी आणि नवीन शीट जोडण्यासाठी जोडा वापरले.
• शेवटी, कॉपी रेंज(“G4”) फिल्टर केलेला डेटा नवीन शीट वर कॉपी करेल.

• नंतर, चे अनुसरण करातिसरी पायरी पहिल्या उदाहरणावरून मॅक्रो डायलॉग बॉक्स उघडण्यासाठी.
• नंतर निवडा निर्दिष्ट केलेले मॅक्रो नाव आणि रन दाबा .

आता पहा एक्सेलने नवीन शीट उघडली आहे आणि फिल्टर केलेल्या पंक्ती कॉपी केल्या आहेत.

अधिक वाचा: एक्सेल फिल्टरसाठी शॉर्टकट (3 उदाहरणांसह द्रुत वापर)

8. ड्रॉप डाउन सूची वापरून डेटा फिल्टर करण्यासाठी VBA कोड लागू करा

आमच्या शेवटच्या उदाहरणात, आम्ही प्रथम लिंगांसाठी ड्रॉप-डाउन सूची तयार करू आणि त्यानंतर आम्ही डेटा फिल्टर करण्यासाठी त्याचा वापर करू. त्यासाठी, मी लिंग निकष दुसर्‍या ठिकाणी ठेवला आहे आणि आम्ही सेल D14 मध्ये ड्रॉप-डाउन सूची तयार करू.

चरण:

• सेल D14 निवडा.
• नंतर खालील प्रमाणे क्लिक करा: डेटा > डेटा साधने > डेटा प्रमाणीकरण > डेटा प्रमाणीकरण.

लवकरच, एक संवाद बॉक्स उघडेल.

निवडा ड्रॉप-डाउनला अनुमती द्या वरून सूची.

नंतर स्रोत बॉक्स मधून ओपन आयकॉनवर क्लिक करा .

आता निकष श्रेणी निवडा आणि एंटर बटण दाबा .

44>

• या क्षणी, फक्त ओके दाबा .

45>

आता आमची ड्रॉप-डाउन यादी तयार आहे.

• आता VBA विंडो उघडण्यासाठी पहिल्या उदाहरण चे पहिल्या दोन चरणांचे अनुसरण करा .
• नंतर लिहा खालील कोड त्यात-

6544

• नंतर VBA कमी कराविंडो .

कोड ब्रेकडाउन

• येथे, मी तयार केले a खाजगी उप प्रक्रिया, वर्कशीट_बदला (श्रेणीनुसार लक्ष्य).
• नंतर, मी घोषणा मधून कार्यपत्रक सामान्य आणि बदला निवडले.
• नंतर स्थान जाणून घेण्यासाठी पत्ता सेट करा.
• शेवटी IF विधानामध्ये फील्ड <2 सह ऑटोफिल्टर पद्धत वापरली>आणि निकष

• आता फक्त ड्रॉप-डाउन सूचीमधून निकष निवडा आणि फिल्टर सक्रिय केले जाईल .

येथे ड्रॉप-डाउन मधून पुरुष निवडल्यानंतर फिल्टर केलेले आउटपुट आहे.

अधिक वाचा: एक्सेलमधील दुसर्‍या शीटमध्ये यादीनुसार कसे फिल्टर करावे (2 पद्धती)

सराव विभाग

तुम्हाला वर दिलेल्या एक्सेल फाईलमध्ये सराव पत्रक मिळेल.

निष्कर्ष

मला आशा आहे की वर वर्णन केलेल्या प्रक्रिया VBA कोड फिल्टर डेटा एक्सेलमध्ये वापरण्यासाठी पुरेशा चांगल्या असतील. टिप्पणी विभागात मोकळ्या मनाने कोणतेही प्रश्न विचारा आणि कृपया मला अभिप्राय द्या.