エクセルで複数のSheetを一括フィルタ変更

シートが5枚あります
１のシートのヘッダー部分に入力枠を設け、山田と入力してボタンを押したら一度にすべてのシートのA列を山田でフィルタが掛けられるマクロを設定したいです
フィルタクリアする時はクリアボタンを押すか入力枠を空欄にしてボタンを押すイメージです

宜しくお願いします

No.2 回答者： ママチャリ 回答日時： 2020/02/23 21:36

「フィルターオプション（詳細設定）」って、ご存知ですが？

VBAだと「Range.AdvancedFilter」メソッドになるのですが・・・。

これは、VBAだけではなく、マニュアル操作でも出来るので、是非やってみて下さい。
マニュアルで出来るようになったら、それをマクロ記録してみて下さい。
記録されたマクロを見れば、大体の仕組みは分かると思います。
「リスト範囲」や「選択条件範囲」の指定を可変対応すれば、
非常に強力な武器になります（個人的には、Excelで一番便利な機能だと思っている）。
とりあえず、挑戦してみる価値はあると思います。
もし、分からないことが出てきたら、また質問するっていう手もあるし・・・。

この回答へのお礼

長らく教えてgooにアクセスできず放置してすみません！
すごく難しいのと、別の作業が入っていまだ試せていないのですが、トライしてみたいと思います。
ありがとうございました！

お礼日時：2020/05/16 11:47

No.1 回答者： Qchan1962 回答日時： 2020/02/21 16:48

こんにちは、

少々情報が足りなく、、ですが
＞１のシートのヘッダー部分に入力枠を設け　　は、　シート名　１のシート　と仮定　＞入力枠　は、　Ａ１セルと仮定
また、
各シート1行目及びＡ列のデータ間に空白がないと言う条件で

Option Explicit
Sub sampleFilter()
Dim sh As Worksheet
　　For Each sh In Worksheets
　　　　If Not sh.Name = "１のシート" Then
　　　　　　If Not Sheets("１のシート").Range("A1") = "" Then
　　　　　　　　sh.UsedRange.AutoFilter Field:=1, Criteria1:=Sheets("１のシート").Range("A1").Text
　　　　　　Else
　　　　　　　　sh.UsedRange.AutoFilter
　　　　　　End If
　　　　End If
　　Next sh
End Sub

１のシートも対象に含める場合は、If Not sh.Name = "１のシート" Then　を削除し、対応の　End If　の削除してください。

入力枠に空白の入力、実行すると解除します。

解除だけしたいのなら
Sub sampleFilterOFF()
Dim sh As Worksheet
　　For Each sh In Worksheets
　　　　sh.UsedRange.AutoFilter
　　Next sh
End Sub

この回答へのお礼

長らく教えてgooにアクセスできず放置してすみません！
わーコピペだけで実現出来たらすっごく嬉しいです。
すごく難しいのと、別の作業が入っていまだ試せていないのですが、トライしてみたいと思います。
ありがとうございました！

お礼日時：2020/05/16 11:48