VBA 日付のフィルター方法

日付のフィルター　複数選択肢同時選択

Sub test()
　　’　複数選択肢同時選択

    Range("A1").Select
        Selection.AutoFilter
            ActiveSheet.Range("$A$1:$B$32").AutoFilter Field:=1, Operator:= _
            xlFilterValues, Criteria2:=Array(2, "2010/5/11", 2, "5/20/2010", 2, "5/31/2010")

’　日付表示形式　#月/日/年#　または　#年/月/日#　
End Sub

一定範囲の日付をフィルター

Sub test2()
　’　一致範囲の日付をフィルター

        ActiveSheet.Range("$A$1:$B$32").AutoFilter Field:=1, _
            Criteria1:=">=" & CLng(CDate("2010/05/05")), _
            Operator:=xlAnd, _
            Criteria2:="<=" & CLng(CDate("2010/05/15"))
End Sub

Sub test3()
　’　Format関数の日付によるフィルター

Range("A1:A31").AutoFilter Field:=1, Criteria1:=">" & Format("2010/05/21", "yyyy/m/d")

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA DateSerial関数 日付データを求める　』

『VBA　生年月日から年齢を自動計算』

『VBA　現在時刻から年月日時分（yyyymmddhhmm）を取得』