複数条件のオートフィルタ（VBA）

excel vbaについて質問です。

画像のようにAからGまでデータが入力されており、以下の2つでオートフィルターをしたいです。
textbox1→A列
combobox1→G列

以下では①のあと②が実行されてしまい、同時にフィルターをかけることができません。
※V1にはcomboboxのリストに値が入っています。

①With Worksheets("sheet1").Range("A2").CurrentRegion
.AutoFilter
.AutoFilter 1, Worksheets("sheet1").TextBox1.Text
End With
②With Worksheets("sheet1").Range("A2").CurrentRegion
.AutoFilter
.AutoFilter 7, Worksheets("sheet1").Range("V1").Text
Cancel = True
End With

よろしくお願いします。

No.2 ベストアンサー 回答者： bonaron 回答日時： 2022/12/10 07:21

②With Worksheets("sheet1").Range("A2").CurrentRegion

.AutoFilter　　' ここでフィルターを解除している
.AutoFilter 7, Worksheets("sheet1").Range("V1").Text

①で行ったフィルターをチャラにしているから
> 同時にフィルターをかけることができません。
ということになっています。

問題の行を削除して下さい。

この回答へのお礼

ありがとうございます。
思い通りの結果になりました！

お礼日時：2022/12/12 10:24

No.1 回答者： fujillin 回答日時： 2022/12/09 16:02

こんにちは

直接の回答ではありません。

VBAのご質問ですけれど、その内容はエクセルの基本機能のフィルターオプションを利用すれば可能な内容と思います。
というか、フィルターオプションならもっと複雑な抽出もできます。
（図を見る限りでは、オプション指定のセル部分は、ご提示のままというわけにはいかないかもですが）

他との関連などで、どうしてもVBAになさりたい場合は、フィルターオプションでの操作を、マクロの記録にとって参考になさるのが宜しいかと。