क्षमा करें, टिप्पणी करने के लिए अपर्याप्त प्रतिनिधि। (Admins, ऊपर टिप्पणी में इसे काटने के लिए स्वतंत्र महसूस करें।) उपयोगकर्ता "danicotra" प्रतिक्रिया की शुरुआत "मैं एक VBA / Macro वर्कशीट_चेंज घटना के आधार पर भी करता हूं, लेकिन मेरा दृष्टिकोण ..."
पहले निकालें फिल्टर के साथ
"फिर इसे लागू करें"
Excel 2007+ का उपयोग करते समय फिर से सही समाधान है। हालाँकि .AutoFilter.ApplyFilter XL03 में अमान्य है और इससे पहले मैं नीचे का रास्ता दिखाता हूँ।
मुझे लगता है कि सच्चे विशेषज्ञों और गुरुओं ने कोड पढ़ा क्योंकि मुझे पूरा विश्वास है कि यह शीर्ष शेल्फ सामग्री है। शायद इस जवाब पर अकथनीय डाउनवोट गिनती उलटी हो सकती है जब लोग देखते हैं कि नीचे क्या अच्छा सामान है।
danicotra ने एक सरलीकृत उदाहरण का उपयोग किया। वास्तव में, आप इसे अधिक सामान्यतः कर सकते हैं। निम्नलिखित (या किसी अन्य शीट ऑब्जेक्ट) के लिए ActiveSheet के साथ मान लें:
ऑटोफिल्टर की रेंज सेव करें। इसमें .AutoFilter.Filters.Count कॉलम और (.AutoFilter.Range.Count / .AutoFilter.Filters.Count) पंक्तियाँ हैं, जिन्हें rngAutofilter में सहेजा गया है।
एक सरणी myAutofilters में से प्रत्येक के 4 गुण में से प्रत्येक में इकट्ठा करें ।AutoFilter.Filters.Count autofilter आइटम, ध्यान रखें कि आप "। (myAutofilters चरण 1 में पंक्तियों और स्तंभों की संख्या के अनुसार होगा)
फ़िल्टर बंद करें लेकिन ड्रॉपडाउन को सुरक्षित रखें .ShowAllData
प्रत्येक फ़िल्टर आइटम के लिए जो आपके सहेजे गए सरणी के अनुसार था, प्रत्येक .AutoFilter.Filters.Count ऑटोफिल्टर आइटम के 4 गुणों में से 3 को रीसेट करें। फिर ध्यान रखें कि जब आप "एप्लिकेशन-डिफाइन्ड एरर" से बचते हैं, जब ओपेरेटर गलत होता है, इसलिए प्रत्येक आइटम "i",
rngAutofilter.AutoFilter फील्ड: = i, Criteria1: = myAutofilters (i, 2)
या
rngAutofilter.AutoFilter Field: = i, Criteria1: = myAutofilters (i, 2), ऑपरेटर: = myAutofilters (i, 3), Criteria2: = 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