複数フィルターのリセット

質問

立て続けに質問ばかり出しています。
下記の処理を同時に行う場合、1行の記述で済ませることができますか？

Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3

今は問題なく稼動しているので別に構わないのですが、今後もっともっと多いフィルターを一度にリセットさせる場合はどうしようかと疑問に思った次第です。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

たぶん、こういうことでは？

　With ActiveSheet
　If .AutoFilterMode And .FilterMode Then
　 .ShowAllData
　End If
　End With

お礼

ありがとうございます。現時点で描いていた処理に適した回答です。

今は3列のフィルターを利用して数種類程度の集計をしているだけですが、
いずれ20列前後中の複数列の条件を組み合わせて十数通りの集計が必要になると考えていました。

これで不要な手間をかけずに「リセット＆再集計」ができそうです。

回答No.2

imogasi

繰り回し処理に持ち込むため、Array関数で配列的なデータを持つ。
列は不連続で、クライテリアも自由指定で
A列１、B列２、D列ｔ　のオートフィルター
AND条件で絞られます。
条件数は４以上増やせるのは簡単だと判りますね。
Sub test01()
c = Array("", 1, 2, 4)
cr = Array("", 1, 2, "t")
Selection.AutoFilter
For i = 1 To 3
Cells(1, c(i)).AutoFilter Field:=c(i), Criteria1:=cr(i)
Next i
End Sub

お礼

求めていた以上の回答でした。
複数条件の集計はこの方法で、リセットはNo.1の方の回答方法で、と早速利用させて頂きます。
ありがとうございました。

補足

お礼を投稿した後ですが、ありがとうポイントを付けるにあたりWendy02様とimogasi様、どちらも20ポイントのお礼をしたかったのですが、
今回は最初に求めていた回答をして下さったWendy02様に20ポイントを差し上げることにしました。
imogasi様には他の質問への回答も頂いており感謝しております。
これからもよろしくお願い致します。