Excel VBA オートフィルターで抽出したデータの条件を取得する

Sub 条件確認()
Dim i As Long
Dim 条件 As String
With ActiveSheet.AutoFilter
For i = 1 To .Filters.Count
  With .Filters(i)
  If .On = True Then
      条件 = 条件 & i & "列目:"
   If .Operator <> 0 Then
   On Error Resume Next
       条件 = 条件 & .Criteria1 & .Criteria2 & vbCrLf
   Else
       条件 = 条件 & .Criteria1 & vbCrLf
   End If
 End If
 End With
Next i
End With
   MsgBox 条件
End Sub

3行目【Dim 条件 As String】
取得した条件を格納する変数「条件」を文字列型(String)で宣言します。

4行目【With ActiveSheet.AutoFilter】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用して、ワークシート上のオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを参照して、With【ｳｨｽﾞ】ステートメントで指定します。

5行目【For i = 1 To .Filters.Count】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。カウンター変数iに1からwith【ｳｨｽﾞ】ステートメントで指定したAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのフィルターの集まりを表すFilters【ﾌｨﾙﾀｰｽ】コレクションのCount【ｶｳﾝﾄ】プロパティで取得したフィルターが設定されている列数を繰り返し処理の中で順次代入します。

6行目【With .Filters(i)】
With【ｳｨｽﾞ】ステートメントで指定したAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのFilters【ﾌｨﾙﾀｰｽﾞ】プロパティの引数にカウンター変数iを設定して繰り返し処理の中で各列のフィルターを表すFilter【ﾌｨﾙﾀｰ】オブジェクトを参照してWith【ｳｨｽﾞ】ステートメントで指定します。

7行目【If .On = True Then】
If【ｲﾌ】ステートメントを指定して条件分岐をします。With【ｳｨｽﾞ】ステートメントで指定したフィルターが設定されている各列を表すFilter【ﾌｨﾙﾀｰ】オブジェクトのフィルターで抽出されているかどうかの値を返すOn【ｵﾝ】プロパティを使用してTrueのとき、つまりフィルターでデータが抽出されているときを定義します。

8行目【条件 = 条件 & i & “列目:”】
抽出条件を格納する変数「条件」に、変数「条件」に格納している値とカウンター変数「i」の値と文字列の「列目：」を代入します。

9行目【If .Operator <> 0 Then】
If【ｲﾌ】ステートメントを使用して、条件分岐をします。With【ｳｨｽﾞ】ステートメントで指定した各列のフィルターを表すFilter【ﾌｨﾙﾀｰ】オブジェクトの条件式を表すOperator【ｵﾍﾟﾚｰﾀｰ】プロパティの値が0でないときを定義します。つまり、抽出条件が2つあり抽出条件式が
設定されているときを定義します。

10行目【On Error Resume Next】
On Error Resume Next【ｵﾝｴﾗｰﾘｽﾞｰﾑﾈｸｽﾄ】ステートメントを使用してエラーが発生しても無視して処理を続行させます。フィルターで日付が抽出されている場合にエラーが発生します。

11行目【条件 = 条件 & .Criteria1 & .Criteria2 & vbCrLf】
フィルターで抽出されている列の列番号が格納されている変数「条件」の内容とWith【ｳｨｽﾞ】ステートメントで指定した各列のフィルターを表すFilter【ﾌｨﾙﾀｰ】オブジェクトの1つめの抽出条件を表すCriteria1【ｸﾗｲﾃﾘｱﾜﾝ】プロパティと2つめの抽出条件を表すCriteria2【ｸﾗｲﾃﾘｱﾄｩ】プロパティを使用して各抽出条件を取得して最後に改行コードを記述し各値を「&」アンパサンドで連結して変数「条件」に代入します。

12行目【Else
条件 = 条件 & .Criteria1 & vbCrLf】
Else【ｴﾙｽﾞ】キーワードを使用して条件が成立しなかった場合、つまり条件式を表すOperator【ｵﾍﾟﾚｰﾀｰ】プロパティの値が0で条件式が無い場合（抽出条件が1つの場合）フィルターで抽出されている列番号が格納されている変数「条件」とWith【ｳｨｽﾞ】ステートメントで指定した各フィルターが設定されている列を表すFilter【ﾌｨﾙﾀｰ】オブジェクトの1つめの抽出条件を表すCriteria1【ｸﾗｲﾃﾘｱﾜﾝ】プロパティを使用して各抽出条件を取得して最後に改行コードを記述し各値を「&」アンパサンドで連結して変数「条件」に代入します。

18行目【 MsgBox 条件】
すべてのフィルターで抽出されている列を繰り返し処理の中で参照して値を代入した変数「条件」の値をMsgBox関数で表示します。