Excel VBA オートフィルターで特定期間のデータを抽出する

Sub 期間抽出()
　ActiveSheet.AutoFilterMode = False
　Range("A1").AutoFilter field:=1, _
　Criteria1:=">=2017/4/4", _
　Operator:=xlAnd, _
　Criteria2:="<=2017/4/6"
End Sub

3行目～6行目
【Range(“A1″).AutoFilter Field:=1, _
Criteria1:=”>=2017/4/4″, _
Operator:=xlAnd, _
Criteria2:=”<=2017/4/6″】
RangeオブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドを使用してデータを抽出します。
抽出条件の対象となる列を表す引数Field【ﾌｨｰﾙﾄﾞ】に1列目を表す1を設定します。1つめの抽出条件となる文字列を表す引数Criteria1【ｸﾗｲﾃﾘｱﾜﾝ】に比較演算子を使用し2017/4/4以上を設定します。次に、抽出条件を表す引数Operator【ｵﾍﾟﾚｰﾀ】にAND条件（Criteria1かつCriteria2）を表すXlAndを設定します。2つめの抽出条件となる文字列を表す引数Criteria2【ｸﾗｲﾃﾘｱﾄｩ】に比較演算子を使用し2017/4/6以下を設定して2017/4/4～2017/4/6のデータを抽出します。

Sub 期間抽出()
　　ActiveSheet.AutoFilterMode = False
　Dim 期間1 As String
　Dim 期間2 As String
　　期間1 = InputBox("ﾃﾞｰﾀ抽出開始日を入力してください。（2017/1/1形式で入力）")
　　期間2 = InputBox("ﾃﾞｰﾀ抽出終了日を入力してください。（2017/1/1形式で入力）")
　　Range("A1").AutoFilter Field:=1, _
　　Criteria1:=">=" & 期間1, _
　　Operator:=xlAnd, _
　　Criteria2:="<=" & 期間2
End Sub

3行目【Dim 期間1 As String】
InputBox関数を利用してユーザーから抽出期間の開始の日付を受取り、格納する変数「期間1」を文字列型(String)で宣言します。

4行目【Dim 期間2 As String】
InputBox関数を利用してユーザーから抽出期間の終了の日付を受取り、格納する変数「期間2」を文字列型(String)で宣言します。

5行目【期間1 = InputBox(“ﾃﾞｰﾀ抽出開始日を入力してください。（2017/1/1形式で入力）”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を利用してユーザーから抽出期間の開始日を受取り変数「期間1」に代入します。

6行目【期間2 = InputBox(“ﾃﾞｰﾀ抽出終了日を入力してください。（2017/1/1形式で入力）”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を利用してユーザーから抽出期間の終了日を受取り変数「期間2」に代入します。

7行目以降は上記の「オートフィルタで特定期間のデータを抽出する」コードの3行目～6行目と基本的には同じです。抽出文字列が変数「期間1」と変数「期間2」に置き換わっただけです。

Sub 期間抽出()
　　ActiveSheet.AutoFilterMode = False
　Dim 期間1 As String
　Dim 期間2 As String
　　期間1 = InputBox("ﾃﾞｰﾀ抽出開始日を入力してください。（2017/1/1形式で入力）")
　　期間2 = InputBox("ﾃﾞｰﾀ抽出終了日を入力してください。（2017/1/1形式で入力）")
　　Range("A1").AutoFilter Field:=1, _
　　Criteria1:=">=" & 期間1, _
　　Operator:=xlAnd, _
　　Criteria2:="<=" & 期間2
　　Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "抽出"
　　Sheets(1).Range("A1").CurrentRegion.Copy Sheets("抽出").Range("A1")
　　Sheets(1).AutoFilterMode = False
End Sub

11行目【Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = “抽出”】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAdd【ｱﾄﾞ】メソッドを使用してワークシートを追加して「抽出」という名前を付けます。

12行目【Sheets(1).Range(“A1″).CurrentRegion.Copy Sheets(抽出”).Range(“A1”)】
抽出された元のデータがあるシートをインデックス番号で指定してA1セルからのデータ範囲をCurrentRegion【ｶﾚﾝﾄﾘｼﾞｮﾝ】プロパティで参照してCopy【ｺﾋﾟｰ】メソッドでコピーして追加した抽出シートに貼り付けます。

13行目【Sheets(1).AutoFilterMode = False】
元のシートをインデックス番号で参照して、WorksheetオブジェクトのAutoFilterMode【ｵｰﾄﾌｨﾙﾀﾓｰﾄﾞ】にFalseを設定してオートフィルターモードを解除します。