フィルタを設定したExcelシートへのレコード追加

質問

Excelの帳票にVBAでデータを追加する処理なんですが
シートにフィルタが設定されている場合、データの追加後正しい表示がされません。
追加したデータの値がフィルタの設定値なら表示し、設定値でなければ表示しないようにできますか？
なお、フィルタは複数の列に対し設定します。
よろしくお願いしま～す。

回答No.2

imogasi · ベストアンサー

補足要求をさせてください。
(フィルタオプションで抽出した後ならレコード（行）を付け加えられる）（１）例としてＡ１～E６に下記データを入れる
著者 分類クラス 定価 分類クラス 定価
三原 a 14 a >15
大川 b 15
山田 c 20
志茂田 a 12
沓抜 a 30
（２）データ－フィルタ－フィルタオプションの設定で
リスト範囲$A$1:$E６$（$A$1:$C$６でも同じ）
検索条件の範囲$D$1:$E$2でOKで
著者 分類クラス 定価
沓抜 a 30　　　となる。
（３）これに下記を追加する（７、８行）
大下 a 40　　　　　　　　　　（A）
近藤 ｄ 45　　　　　　　　　　（B）
を加えて入力できる。しかし２行とも表示される。
（４）もう一度データ－フィルタ－フィルタオプションの設定を
すれば、
沓抜 a 30
大下 a 40となる。
（５）この（４）をせずに、入力と同時に（３）のAは表示し、（３）の
Bは消すと言うことでしょうか。
（６）それとも（３）のデータの追加を全て終わった後、コマンド
ボタン（新に追加するとして）を押せば、（４）の状態になれば
良いのでしょうか。
補足をしていただければ答えやすいのではと思います。
（６）なら今組んでおられるVBAの延長線上で可能と思います。（５）はイベントの捉え方が私には難しいのと、
条件に合わないものの非表示をどうするか、AdvancedFilterメソッドの力を借りるのでしょう。
あるいはAutoFilterを使っておられますか。

お礼

回答ありがとうございました。
でも、自分の考えていたのと少し違っていたようです。
もう少し自分で考えて見ます・・・。

補足

ご回答ありがとうございますっ。
検索条件はユーザーが手入力により直接指定します。上の例ですとユーザーがaとかbを設定して、そのシートにVBAで入力フォームからデータを挿入するんですが入力データがフィルタに設定されてたら表示してされてなかったら非表示にしたいんです。できますでしょうか？

回答No.1

Fat01ton

私も余りＶＢＥに詳しくありませんがこんな方法ではどうでしょうか？
一度、フィルタを解除してデータを追加後
ＶＢＡ上でもう再度、追加前の条件でオートフィルタを設定してみてはいかがでしょうか？