エクセル機能 オートフィルター

複数シートに同一条件のオートフィルターのかけかたを教えて下さい。

シート”実績”

　　　A　　　B　　　 C
１　店名　　数量　 金額
２　あ　　　１０　１２
３　い　　 １２　 ８


シート”予算”
　　　A　　　B　　 　C
１　店名　　数量　 金額
２　あ　　　９　 １１
３　い　　 １１　 １０

A列で"あ"のフィルタをシート名「実績」シート名「予算」両方にかけたい。
実際は前年シート等もあります。

条件をどこかのセルに入力すれば複数シートを一斉にオートフィルターするにはどうすればよいでしょうか。

No.2 ベストアンサー 回答者： tom04 回答日時： 2016/07/08 09:14

No.１です。

＞フィルターをかけたい列はB列であったり、C列であったりD列であったりします。
それに対応するようにはどうすればよろしいでしょうか。

ん～～～かなり厄介ですね。
とりあえず「検索キー」が存在する列でフィルタを掛けるようにしてみました。

Sub フィルタ2()
Dim k As Long, c As Range
Dim myRng As Range, myStr As String
myStr = Application.InputBox("検索キーを入力")
For k = 1 To Worksheets.Count
With Worksheets(k)
Set myRng = Range(.Cells(8, "B"), .Cells(3000, "S"))
Set c = myRng.Find(what:=myStr, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Range(.Cells(7, "B"), .Cells(7, "S")).AutoFilter field:=c.Column - 1, Criteria1:=myStr
End If
End With
Next k
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。
中身を理解するよう頑張ります。
取り急ぎやりたいこと出来たので連絡させて頂きました。

お礼日時：2016/07/08 13:07

No.3 回答者： kikukohasodatu 回答日時： 2016/07/09 16:26

同じフォーマットなら複数シートを選択しながら実行できそうな気がします。

シフトキーを押しながら全てのシートを選択していってください。

その状態から、
・オートフィルタをかけ直す
・"あ"をフィルタ

こちらの手元で検証できないので、一度お試しください。

この回答へのお礼

ありがとうございます。
試しましたがうまくいきませんでした。

お礼日時：2016/07/14 07:14

No.1 回答者： tom04 回答日時： 2016/07/07 16:52

こんにちは！

なかなか回答がつかないようなので・・・
一般機能ではコツコツ1Sheetずつフィルタを掛けるしか方法がないようです。
VBAになりますが、一例です。
各シートのA列でフィルタを掛けるようにしています。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　カーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Dim k As Long, mystr As String 'この行から//
Sub フィルタ()
mystr = Application.InputBox("検索するキーを入力")
For k = 1 To Worksheets.Count
Worksheets(k).Range("A1").AutoFilter field:=1, Criteria1:=mystr
Next k
End Sub

Sub フィルタ解除()
For k = 1 To Worksheets.Count
Worksheets(k).AutoFilterMode = False
Next k
End Sub 'この行まで//

※　フィルタが掛かったままでは何かと不便だと思うので
フィルタ解除のコードのマクロも一緒に記載しています。m(_ _)m

この回答へのお礼

ありがとうございます。
実際の範囲は先頭の行を含めて、B7：S3000　なんです。
そして、フィルターをかけたい列はB列であったり、C列であったりD列であったりします。
それに対応するようにはどうすればよろしいでしょうか。
あと出しで申し訳ありません。

お礼日時：2016/07/08 08:28