エクセルのＶＢＡマクロを使用したフィルタの掛け方

エクセルで　オートフィルターを自動で実行するような
プログラムを組んでみたいのですが、アドバイスを
よろしくお願いします。
A1セルに入力した数字を元にＡ３～Ｂ１０のデーターに自動でフィルターを実行し表示させたいのです。

よろしお願いします。

No.1 ベストアンサー 回答者： pkh4989 回答日時： 2009/02/26 19:28

こんにちは。

以下のマクロを参考にしてください。
マクロ貼り付け方法： 入力シートをマウス右Click → 「コードの表示」→ 表示される画面に貼り付け

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address = "$A$1" Then
　　　　With ActiveSheet
　　　　　　.Range("A2:A10").AutoFilter Field:=1, Criteria1:="=" & .Range("A1"), Operator:=xlAnd
　　　　End With
　　End If
End Sub

この回答へのお礼

アドバイス、どうもありがとうございました。
早速試してみます！

お礼日時：2009/02/27 03:55