[vba] 고급필터(AdvancedFilter)를 이용한 지정한 구간의 날짜검색

고급필터(AdvancedFilter)를이용해서 지정한 구간의 날짜를 필터링 하는 예제입니다.

​

첨부된 파일에는 아래처럼 이름이 정의되어 있습니다.

Data	=OFFSET(Sheet1!$A$4,0,0,COUNTA(Sheet1!$A:$A),5)
조건	=Sheet1!$F$1:$G$2

​

아래는 삽입된 vba(매크로) 소스입니다.

 

Sub Macro1()

    On Error Resume Next

    ActiveSheet.ShowAllData

    Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("조건"), Unique:=False

End Sub

 

​

아래와 같은 데이터가 있습니다.

"검색" 버튼을 누르면...

아래와 같이 2012-05-01 부터 2012-12-31 까지 검색(필터)해서 보여줍니다.

상기내용은 본인이 답변한 지식인 답변내용입니다.

첨부파일

(232823456) 고급필터를 이용한 지정한 날짜 구간 검색.xlsm

 파일 다운로드

​

엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준)

엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준)

엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준)