দুঃখিত, মন্তব্য করতে অপর্যাপ্ত প্রতিনিধি। (প্রশাসকগণ, উপরের কোনও মন্তব্যে এটিকে নির্দ্বিধায় কাটান feel) ব্যবহারকারী "ড্যানিকোট্রা" প্রতিক্রিয়াটি "আমি ওয়ার্কশিট_চেনজ ইভেন্টের উপর ভিত্তি করে একটি ভিবিএ / ম্যাক্রো ব্যবহার করি তবে আমার পদ্ধতির ..."
প্রথম ফিল্টার সরান
"এর পরে এটি প্রয়োগ করুন
এক্সেল 2007+ ব্যবহার করার সময় আবার সঠিক সমাধান। তবে .আউটফিল্টার.অ্যাপ্লিফিল্টারটি XL03 এবং তার আগে অবৈধ তাই আমি নীচের পথটি দেখাব।
আমি অনুরোধ করি যে সত্য বিশেষজ্ঞগণ এবং গুরুরা কোডটি পড়েছেন কারণ আমি যথেষ্ট আত্মবিশ্বাসী যে এটি শীর্ষ শেল্টের উপাদান। নীচে কী ভাল জিনিস করা হচ্ছে তা লোকেরা দেখলে এই উত্তরের অবর্ণনীয় ডাউনভোট গণনাটি বিপরীত হতে পারে।
ড্যানিকোট্রা একটি সরল উদাহরণ ব্যবহার করেছে। আসলে, আপনি আরও সাধারণভাবে এটি করতে পারেন। নিম্নলিখিতগুলির জন্য অ্যাক্টিভশিট সহ ধরে নিন (বা অন্য কোনও শিট অবজেক্ট):
স্ব-ফিল্টার পরিসীমা সংরক্ষণ করুন। এটিতে .আউটফিল্টার.ফিল্টারস.কাউন্ট কলাম এবং (.আউটোফিল্টার.রেঞ্জ.কাউন্ট / .আউটফিল্টার.ফিল্টারস.কাউন্ট) সারি রয়েছে, rngAutofilter এ সংরক্ষিত হয়েছে
.আউটফিল্টার.ফিল্টারস.আউটফিল্টার আইটেমগুলির প্রত্যেকের 4 টি বৈশিষ্ট্যের প্রত্যেকটিতে একটি অ্যারে আমার অটোফিল্টার সংগ্রহ করুন, যখন আপনি "অ্যাপ্লিকেশন-সংজ্ঞায়িত ত্রুটিগুলি" এড়াতে পারেন সেদিকে খেয়াল রেখে .অনু অথবা .অ্যাপেটরটি মিথ্যা is (myAutofilters প্রথম ধাপে সারি এবং কলামগুলির সংখ্যার সাথে পুনঃনির্দেশিত হবে)
ফিল্টারটি বন্ধ করুন তবে ড্রপডাউনগুলি সংরক্ষণ করুন। শোআলডাটা দিয়ে
প্রতিটি ফিল্টার আইটেমের জন্য ছিল your আবার সাবধান হয়ে নিন যে আপনি যখন "অ্যাপ্লিকেশন-সংজ্ঞায়িত ত্রুটিগুলি" এড়িয়ে চলেছেন। অপারেটরটি মিথ্যা, তাই প্রতিটি আইটেমের জন্য "i",
rngAutofilter.OutoFilter ক্ষেত্র: = i, মানদণ্ড 1: = myAutofilters (i, 2)
বা
rngAutofilter.OutoFilter ক্ষেত্র: = i, মাপদণ্ড 1: = myAutofilters (i, 2), অপারেটর: = myAutofilters (i, 3), মানদণ্ড 2: = myAutofilters (i, 4)
এখন অটোফিল্টারটি আপনার কোডটি শুরুর আগে যেমন ছিল তেমনই পরিসীমাতে পুনরায় স্থাপন করা হবে, তবে ডেটা পরিবর্তনের জন্য অটোফিল্টার আপডেট করা হয়েছে।
Public myAutofilters As Variant, rngAutofilter As Range 'Public
Sub SaveAndRestoreAutofilters()
'This will update the autofilter display to recognize data changes by turning autofilter off and then on, preserving all characteristics
'Note, XL2007 and later have .autofilter.applyfilter, but not the invaluable XL03 and earlier
Dim i As Long, iNumAutofilters As Long, iNumActiveAutofilters As Long
iNumActiveAutofilters = SaveAutoFilterInfo(iNumAutofilters) 'NOTE! Use CALL or assignment to prevent parentheses from forcing ByVal !
If iNumActiveAutofilters < 1 Then
Application.StatusBar = "0 ACTIVE filters;" & iNumAutofilters & " autofilters"
Exit Sub
End If
ActiveSheet.ShowAllData
Rem Here optionally do stuff which can include changing data or toggling autofilter columns
For i = 1 To iNumAutofilters
If myAutofilters(i, 1) Then
If myAutofilters(i, 3) <> 0 Then 'then .Operator is something, so set it and Criteria2, else just Criteria1
rngAutofilter.AutoFilter Field:=i, Criteria1:=myAutofilters(i, 2), Operator:=myAutofilters(i, 3), Criteria2:=myAutofilters(i, 4) ', On:=true by rule
Else
rngAutofilter.AutoFilter Field:=i, Criteria1:=myAutofilters(i, 2) ', On:=true by rule (it's R/O anyway)
End If
Rem Selection.AutoFilter Field:=i 'How you'd "turn off" only a single column's autofiltering. FYI .On is R/O!
End If
'activesheet.autofiltermode=false 'just FYI, how you comprehensively turn off filtering on a sheet (erasing the dropdowns and criteria and filter range!)
Next i
End Sub
Function SaveAutoFilterInfo(iNumAutofilters As Long) As Long
Dim i As Long, iRowsAutofiltered As Long
SaveAutoFilterInfo = 0 'counts the number that are .On, and returns the total
iNumAutofilters = ActiveSheet.AutoFilter.Range.Columns.Count
If ActiveSheet.AutoFilter.Filters.Count <> iNumAutofilters Then MsgBox "I can't explain this. All bets are off. Aborting.": Exit function
ReDim myAutofilters(1 To iNumAutofilters, 4)
For i = 1 To iNumAutofilters
myAutofilters(i, 1) = ActiveSheet.AutoFilter.Filters(i).On
If myAutofilters(i, 1) Then
SaveAutoFilterInfo = SaveAutoFilterInfo + 1
myAutofilters(i, 2) = ActiveSheet.AutoFilter.Filters(i).Criteria1
myAutofilters(i, 3) = ActiveSheet.AutoFilter.Filters(i).Operator
If myAutofilters(i, 3) <> 0 Then 'then is either xlAnd, xlOr, etc., and there's a second criteria
myAutofilters(i, 4) = ActiveSheet.AutoFilter.Filters(i).Criteria2
End If
End If
Next i
iRowsAutofiltered = ActiveSheet.AutoFilter.Range.Count / ActiveSheet.AutoFilter.Range.Columns.Count
Set rngAutofilter = Cells(ActiveSheet.AutoFilter.Range.Row, ActiveSheet.AutoFilter.Range.Column).Resize(iRowsAutofiltered, iNumAutofilters)
End Function