Excel 2016에서 필터를 다시 적용하기위한 매크로


0

Mac이 있고 Excel 2016을 실행하고 있습니다. 날짜별로 자동 필터링되는 Excel 시트가 있습니다.

최근까지 매크로를 저장하여 Command + Option + n을 누를 수 있었고 -> 정렬 및 필터 -> 필터 다시 적용 하지 않고 필터를 다시 적용했습니다 .

어떤 이유로 최신 Office 업데이트로 매크로가 삭제되어 다시 찾을 수없는 것 같습니다.

매크로 기록을 시도했지만 실행하면 다음과 같이 표시 Runtime Error 1004됩니다.

매크로 자체는 다음과 같습니다.

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Option+Cmd+n
'
    ExecuteExcel4Macro "()"
    With ActiveWorkbook.Worksheets("Leads").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

누군가이 작업을 수행하는 방법을 말해 줄 수 있습니까? 시트를 거의 지속적으로 업데이트하므로 필터를 새로 고칠 수있는 바로 가기를 사용하면 인생을 훨씬 쉽게 만들 수 있습니다!

답변:


1

이것은 나를 위해 작동합니다 :

Sub ReapplyFilter()
  ActiveSheet.AutoFilter.ApplyFilter
End Sub

희망이 도움이됩니다.


1
이것을 시도 할 때 객체 변수 또는 블록 변수가 설정되지 않은 상태에서 런타임 오류 메시지를 표시하십시오!
Tuberose

0

나는 같은 문제가 있었다. 필터가없는 시트에 필터를 다시 적용하려고했습니다. 작동 한 코드는 다음과 같습니다.

    If Not (ws.AutoFilter Is Nothing) Then
        Debug.Print "Reapplying autofilter for " & ws.Name
        ws.AutoFilter.ApplyFilter
    End If
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.