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

質問

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

よろしお願いします。

回答No.1

pkh4989 · ベストアンサー

こんにちは。
以下のマクロを参考にしてください。
マクロ貼り付け方法： 入力シートをマウス右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

お礼

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