|
▼トキノハジメ さん:
>▼kanabun さん:
>有難うございます。余分なコードをなくして参考コードだけにしたら
>表が3行目だけが残って後は全部消えてしまいました
「3行目だけが残って後は全部消えてしまいました」
ということから言えることは、
・フィルタはかかった。
・が、条件にマッチする行が存在しなかった。
ということです。
A列、B列のフィルタ条件(各Criteria1)に合うデータ行が 実際に
一つもないのか? あるいは 少なくとも一つ以上存在するけれど、コードで
フィルタかけると抽出されないのか?
確認してください。
' ↓ ここの値を確認
> .AutoFilter Field:=1, Criteria1:=ws2.Range("E2").Value
> .AutoFilter Field:=2, Criteria1:=ws2.Range("H2").Value
実際にも条件にマッチするものがなかったなら →ws2の[E2]と[H2]セルの値
を変更する。
実際にはA,B列条件に該当する行があるにもかかわらず、AutoFilterで
抽出されなかったばあい → ws2の[E2]と[H2]セルの値を教えてください。
ws2の[E2]と[H2]セルの値は まさか 日付じゃないですよね?
日付ですと、Criteria1 だけではダメですけど。
|
|