자동필터 전체 한방에 해제하기
자동필터를 푸는 단축키는 ALT → A → C 이다. 사실 오피스 프로그램의 연속으로 키를 누르는 단축키는 몇년이 지나도 익숙해 지지 않는다.
VBA로 버튼을 만들어 두면 나름 편하게 써먹을 수 있다. 특히, 여러 열에서 필터를 걸어놨을 때 유용하다. 물론, 리본메뉴를 찾아 누르는 과정과 크게 다르지 않을지 모른다.
Sub clearFilter()
' [with Table] Does not work where active cell is out of Tables.
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo Err_Check
Err_Check:
If Err.Number <> 0 Then
MsgBox "오류번호 : " & Err.Number & vbCr & _
"오류내용 : " & Err.Description, vbCritical, "오류"
End If
End Sub
자동필터를 자주 사용한다면 한번 고려해볼법하다.
