엑셀 VBA 필터, 필터 해제

필터 기능은 엑셀에서 자주 사용하는 기능 중 하나입니다. VBA를 활용하기 전에는 단축키를 이용하여 필터 기능을 주로 사용하였으나 최근 VBA를 활용하면서 VBA로 필터링하는 방법과 필터를 해제하는 방법에 대해 공부하게 되어 포스팅합니다.

↓ 이전 엑셀필터에 대해 2개의 포스팅 http://blog.naver.com/ajdhs/221506001376 엑셀을 자주 사용하시죠? 저는 어떻게 하면 효율적으로 빨리 사용할 수 있을까 고민을 많이 했어요.blog.naver.com https://blog.naver.com/ajdhs/221507021965 어제는 엑셀팁_필터 작성 및 해제 단축키에 대해 설명 드렸습니다만, https://blog.naver.co 관련 파일 엑셀 VBA 필터, 단어 하나만 필터 할 경우

Sub엑셀필터_1개( )

DimrngCAS Range” 변수 지정

Application.ScreenUpdating=False’ 화면 업데이트(일시) 중지

Set rngC = Range(“a1″) Current Region’ 전체 데이터 선택 rngC. AutoFilterField: =1, Criteria 1:=”엑셀 함수” 1열 엑셀 함수 필터

End Sub

코드는 간단합니다.DimrngCAS Range : 범위를 변수로 지정하고 SetrngC= Range(“a1″)CurrentRegion: 전체 데이터를 선택하고 rngC. AutoFilterField: =1, Criteria 1:=”엑셀함수”: 1열의 “엑셀함수” 필터

엑셀 VBA 필터, 복수 필터시 Sub 엑셀 필터_ 복수 ( )

DimrngCAS Range” 변수 지정

Application.ScreenUpdating=False’ 화면 업데이트(일시) 중지

Set rngC = Range(“a1”). Current Region’ 전체 데이터 선택 rngC. AutoFilterField: =1,Criteria 1: = Array(“엑셀자격”, “엑셀함수”)_Operator: =xlFilterValues

End Sub

변경된 구문은 Criteria 1: = Array(“엑셀자격”, “엑셀함수”), _Operator: =xlFilter Values 입니다.

엑셀 VBA 필터 해제 ① 필터를 활성화 또는 해제하려면 AutoFilter를 다시 사용하면 됩니다.rngC.AutoFilter 변수를 지정하지 않은 경우 ActiveSheet.Used Range.AutoFilter②필터된 데이터를 모두 표시하는 코드IfActiveSheet.FilterMode=TrueThenActiveSheet.ShowAlData필터로 되어 있는 상태에서 모든 데이터를 표시하려면 위의 코드를 사용합니다.

오늘은 엑셀 VBA 필터, 필터 해제 방법에 대해 이야기를 나눴습니다. VBA를 이용하면 빠르게 엑셀 데이터를 정리할 수 있다는 점이 매력입니다.