আমরা সাধারণত ফিল্টার ব্যবহার করি Microsoft Excel-এ যখন আমাদের বাল্ক ডেটা থেকে নির্দিষ্ট ডেটা আলাদা করতে হবে। উন্নত ফিল্টার কিছু অতিরিক্ত সুবিধা যোগ করে। এক্সেল VBA এই উন্নত ফিল্টার বিকল্প আছে. আমরা Excel VBA-এর কিছু উদাহরণ দেখাব এখানে উন্নত ফিল্টার মানদণ্ড সহ।
মাপদণ্ড সহ এক্সেল VBA অ্যাডভান্সড ফিল্টারের 6 উদাহরণ
6 Excel VBA-এর উদাহরণ উন্নত ফিল্টার মানদণ্ড এই বিভাগে দেখানো হবে।
আমরা এই উদ্দেশ্যে নিম্নলিখিত ডেটাসেট ব্যবহার করব৷
৷
উদাহরণ 1:বর্তমান অবস্থানে ডেটা ফিল্টার করতে এক্সেল VBA
আমরা VBA ম্যাক্রো প্রয়োগ করব মানদণ্ডের উপর ভিত্তি করে ডেটা ফিল্টার করতে এবং বর্তমান অবস্থানে ফিল্টার করা ডেটা স্থাপন করতে।
B16:E17 পরিসরে , আমরা মানদণ্ড সেট করি।
ধাপ 1:
- প্রথমে, ডেভেলপার-এ যান ট্যাব।
- রেকর্ড ম্যাক্রো-এ ক্লিক করুন ফিতা থেকে।
- একটি নতুন ডায়ালগ বক্স আসবে। সেখানে ম্যাক্রোর জন্য একটি নাম সেট করুন এবং ঠিক আছে টিপুন .
ধাপ 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 টিপুন কোড চালানোর জন্য বোতাম।
আমরা শিকাগো এর বিক্রয় দেখানোর জন্য মানদণ্ড সেট করি৷ শুধুমাত্র সঞ্চয় করুন এবং ফলাফল এখানে।
এখানে, আমাদের ডেটা এবং মানদণ্ড একই শীটে রয়েছে৷
৷আরো পড়ুন: এক্সেলের অন্য অবস্থানে অনুলিপি করার জন্য কীভাবে উন্নত ফিল্টার প্রয়োগ করবেন
উদাহরণ 2:উন্নত ফিল্টারের জন্য Excel 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 হিট করুন কোড চালানোর জন্য।
এইভাবে অন্য শীটে মানদণ্ড দেওয়া হলে আমরা ডেটা ফিল্টার করতে পারি।
আরো পড়ুন: এক্সেলের এক কলামে একাধিক মানদণ্ডের উপর ভিত্তি করে উন্নত ফিল্টার প্রয়োগ করুন
উদাহরণ 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টি পদ্ধতি)
- এক্সেলে ফাঁকা কোষগুলি বাদ দেওয়ার জন্য কীভাবে উন্নত ফিল্টার ব্যবহার করবেন (3টি সহজ কৌশল)
- এক্সেল অ্যাডভান্সড ফিল্টার [একাধিক কলাম এবং মানদণ্ড, সূত্র ব্যবহার করে এবং ওয়াইল্ডকার্ড সহ]
উদাহরণ 4:শুধুমাত্র এক্সেল VBA ব্যবহার করে অনন্য ডেটা ফিল্টার করুন
আমরা এই Excel VBA থেকে অনন্য ডেটা পেতে পারি অগ্রিম ফিল্টার। এই প্রক্রিয়ায়, শুধুমাত্র 1ম ঘটনাগুলি ডেটাসেটে উপস্থিত থাকবে এবং 2য় বা পরবর্তী ঘটনাগুলি সরানো হবে৷
৷ধাপ 1:
- Alt+F11 টিপে কমান্ড মডিউল লিখুন .
- কমান্ড মডিউলে নিচের কোডটি রাখুন।
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 টিপে কোডটি চালান .
আমরা 1ম চিহ্নিত করেছি৷ সবুজ রঙ এবং ২য় দ্বারা সংঘটিত হলুদ রঙ দ্বারা ঘটনা। কোডটি চালানোর পরে, হলুদ রঙের ঘরটি সরানো হয়৷
৷আরো পড়ুন: কেবলমাত্র এক্সেলে অনন্য রেকর্ডের জন্য উন্নত ফিল্টার কীভাবে ব্যবহার করবেন
উদাহরণ 5:এক্সেল 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 টিপুন কী এবং কোড চলবে।
ডেটাসেট দেখুন। আমরা এখানে সদৃশ চিহ্নিত করেছি। কোডটি প্রয়োগ করার পর, 1ম ঘটনা ডেটাসেটে উপস্থিত থাকে এবং বাকিগুলি সরানো হয়৷
আরো পড়ুন: এক্সেল অ্যাডভান্সড ফিল্টার কাজ করছে না (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-এর বেশি মান পাই৷ .
আরো পড়ুন: ভিবিএতে কীভাবে উন্নত ফিল্টার ব্যবহার করবেন (একটি ধাপে ধাপে নির্দেশিকা)
মনে রাখার মতো বিষয়গুলি৷
- প্রতিটি ডেটা কলামের একটি অনন্য শিরোনাম থাকতে হবে৷ ৷
- ডেটাসেটে কোনো ফাঁকা সারি অনুমোদিত নয়।
উপসংহার
এই নিবন্ধে, আমরা 6 দেখিয়েছি এক্সেল VBA উন্নত ফিল্টার মানদণ্ডের উদাহরণ। আমি আশা করি এটি আপনার চাহিদা পূরণ করবে। অনুগ্রহ করে আমাদের ওয়েবসাইট Exceldemy.com দেখুন এবং কমেন্ট বক্সে আপনার পরামর্শ দিন।
সম্পর্কিত প্রবন্ধ
- এক্সেলের একাধিক মানদণ্ড সহ উন্নত ফিল্টার (15টি উপযুক্ত উদাহরণ)
- ডাইনামিক অ্যাডভান্সড ফিল্টার এক্সেল (VBA এবং ম্যাক্রো)
- Excel এ মানদণ্ডের পরিসর সহ উন্নত ফিল্টার (18 অ্যাপ্লিকেশন)
- উন্নত ফিল্টার কীভাবে ব্যবহার করবেন যদি এক্সেলের মানদণ্ডের পরিসরে পাঠ্য থাকে
- এক্সেল অ্যাডভান্সড ফিল্টার:"ধারণ করে না" (২টি পদ্ধতি) প্রয়োগ করুন
