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

본문 바로가기

vb6.0/vba

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

회원사진
하나를하더라도최선을
2020-09-04 14:38 5,645 0

본문



고급필터(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 까지 검색(필터)해서 보여줍니다.

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색