【エクセル】入力すると、オートフィルタ自動適用?

タイトルの件、質問いたします。

図１のように、まず、オートフィルタに、B2の項目が、【完了】の行は、表示されないように
設定します。OKをクリックすると、B2項目の状態が、完了となっている、行は
消え【隠れる】ます。

これを、完了と入力【リストから選ぶ】と、自動的に消える、隠れるようにしたい。
→オートフィルターオプションにて、選択をしなくても、入力した時点【リストから選択】で
消えるようにはできないでしょうか？？

オートフィルターオプションをかけたままにしておき、上書きをしたら、消えるようにも
思いましたが、変わらずでした。

ご存知の方、いらっしゃいましたら、宜しくお願いします。

【エクセルバージョン】
２００２、２００３、２００７

No.1 ベストアンサー 回答者： CoalTar 回答日時： 2011/08/31 06:37

1行目「台帳」と2行目の「項目」間に空白行を設けます。

2行目は非表示にしてもOK。表とタイトルを切り離しましょう。

シート見出しを右クリックし「コードの表示」
Private Sub Worksheet_Change(ByVal Target As Range)
　　 '対象がB列（2列目）
　　 If Target.Column <> 2 Then Exit Sub
　　 '対象が4行目以降列
　　 If Target.Row < 4 Then Exit Sub
　　 'オートフィルターの範囲外は無視
　　 If Intersect(Target, Range("B3").CurrentRegion) Is Nothing Then Exit Sub
　　
　　 If Target.Value = "完了" Then '対象に「完了」が入力された場合
　　 　　 　　 Target.AutoFilter Field:=2, Criteria1:="<>完了"
　　 End If
End Sub
を張り付ける。

ちなみに「完了」・「未完了」しか入力しない場合ですが、
準備、
ツール - ユーザー設定 - コマンドから「オートフィルタ」のボタンを配置しておく
0.完了と入力後
1.未完了のセルクリック
2.「オートフィルタ」ボタンクリック
とVBAに頼らなくても2工程で非表示にできます。

この回答への補足

ご回答ありがとうございます。うまく、できました。
しかし、選択すると隠れる、言葉は、【完了】だけではありませんでした。

●完了
●佐藤さんへ引継完了
●鈴木さんへ引継完了

etc全部で、５つ位はあります。

オートフィルは、全部で２つしか、入力する事ができません。
なので、上記より、３つ以上、【自動的に隠れる】言葉を設置する事はできますか？

ご存知でしたら、ご指導を宜しくお願いします。

補足日時：2011/09/01 07:12

No.2 回答者： CoalTar 回答日時： 2011/09/01 08:05

マクロは苦手なのですが、マクロの自動記録で条件部分を

「完了」で終わらない または、「未完了」と等しい
Criteria1:="<>*完了", Operator:=xlOr, Criteria2:="=未完了"

「完了」で終わらない または、「未完了」で終わる
Criteria1:="<>*完了", Operator:=xlOr, Criteria2:="=*未完了"

3つ以上はオートフィルタ オプションではできないと思うので
条件の表を作り、フィルタオプションの設定を使う必要があると思う

当方しか回答していないので回答しましたが、
基本的に追加質問はお断りです。