죄송합니다. 담당자의 의견이 충분하지 않습니다. (관리자, 위의 주석으로 자유롭게 잘라내십시오.) "Worksheet_Change 이벤트를 기반으로 VBA / 매크로를 사용하지만 '내
필터를 제거하십시오'라는 접근 방식으로 시작하는 사용자"danicotra "응답은
적용하십시오. 다시
엑셀 2007 이상을 사용하여 올바른 솔루션입니다. 그러나 .AutoFilter.ApplyFilter는 XL03 및 이전 버전에서는 유효하지 않으므로 아래 방법을 보여줍니다.
나는 진정한 전문가와 전문가가 코드를 읽는 것이 가장 좋습니다. 아마도 사람들이 아래에서 좋은 일이 무엇인지 알 때이 대답에 대한 설명 할 수없는 downvote 수를 되돌릴 수 있습니다.
danicotra는 간단한 예를 사용했습니다. 실제로는 더 일반적으로 수행 할 수 있습니다. 다음 (또는 다른 시트 개체)에 대해 ActiveSheet을 사용한다고 가정하십시오.
자동 필터 범위를 저장하십시오. rngAutofilter에 저장된 .AutoFilter.Filters.Count 열 및 (.AutoFilter.Range.Count / .AutoFilter.Filters.Count) 행이 있습니다.
.On 또는 .Operator가 false 일 때 "응용 프로그램 정의 오류"를 피하도록주의하면서 각 my.filter.Filters.Count 자동 필터 항목의 4 가지 속성 각각을 myAutofilters 배열로 수집하십시오. (myAutofilters는 1 단계의 행과 열 수로 다시 조정됩니다.)
필터를 끄고 .ShowAllData로 드롭 다운을 유지하십시오.
저장된 배열에 따라 켜짐 상태 인 각 필터 항목에 대해 각 .AutoFilter.Filters.Count 자동 필터 항목의 4 가지 속성 중 3 개를 재설정합니다. .Operator가 false 인 경우 "응용 프로그램 정의 오류"를 피하도록 다시주의하십시오. 각 항목 "i"에 대해
rngAutofilter.AutoFilter Field : = i, Criteria1 : = myAutofilters (i, 2)
또는
rngAutofilter.AutoFilter Field : = i, Criteria1 : = myAutofilters (i, 2), Operator : = 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