こんばんは!
VBAになってしまいますが・・・
一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストして、A1セルのリスト表示を色々変更してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target = Range("A1") Then
Range("A3:D20").AutoFilter field:=4, Criteria1:=Range("A1")
End If
End Sub 'この行まで
尚、オートフィルタを解除する場合は通常通り メニュー からフィルタの解除を行ってください。
参考になれば良いのですが・・・m(__)m
お礼
ご教示いただいた方法でうまくできました。 ご回答いただき、ありがとうございました。