[VBA] 날짜 변수 생성,날짜 데이터 필터

● 날짜 변수 선언

 

 Dim year As Long, month As Long, day As Long, hour As Long, minute As Long, second As Long
    
    year = Format(Date, "yyyy")
    month = Format(Date, "mm")
    day = Format(Date, "dd")
    hour = Format(Time, "hh")
    minute = Format(Time, "nn")
    second = Format(Time, "ss")

>Date,Time 은 Now에서 분리됨

 

 

 

 

● 날짜 데이터 필터

If month = 1 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year - 1 & "-12-01", Operator:=xlAnd, Criteria2:="<=" & year - 1 & "-12-31"
    ElseIf month = 2 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-01-01", Operator:=xlAnd, Criteria2:="<=" & year & "-01-31"
    ElseIf month = 3 Then 
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-02-01", Operator:=xlAnd, Criteria2:="<=" & year & "-02-28"
    ElseIf month = 4 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-03-01", Operator:=xlAnd, Criteria2:="<=" & year & "-03-31"
    ElseIf month = 5 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-04-01", Operator:=xlAnd, Criteria2:="<=" & year & "-04-30"
    ElseIf month = 6 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-05-01", Operator:=xlAnd, Criteria2:="<=" & year & "-05-31"
    ElseIf month = 7 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-06-01", Operator:=xlAnd, Criteria2:="<=" & year & "-06-30"
    ElseIf month = 8 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-07-01", Operator:=xlAnd, Criteria2:="<=" & year & "-07-31"
    ElseIf month = 9 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-08-01", Operator:=xlAnd, Criteria2:="<=" & year & "-08-31"
    ElseIf month = 10 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-09-01", Operator:=xlAnd, Criteria2:="<=" & year & "-09-30"
    ElseIf month = 11 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-10-01", Operator:=xlAnd, Criteria2:="<=" & year & "-10-31"
    ElseIf month = 12 Then
        Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year & "-11-01", Operator:=xlAnd, Criteria2:="<=" & year & "-11-30"
    End If

>이달을 기준으로 저번달을 필터해주는 코드이다.