|
▼HIRO さん 今晩は
これでできると思います。
c1 = Sheet1.ComboBox1.Text
c2 = Sheet1.ComboBox2.Text
c3 = Sheet1.ComboBox3.Text
With Worksheets("Sheet1").Range("A13")
If c1 <> "" Then .AutoFilter field:=1, Criteria1:=c1
If c2 <> "" Then .AutoFilter field:=2, Criteria1:=c2
If c3 <> "" Then .AutoFilter field:=3, Criteria1:=c3
End With
>VBAにおいて オートフィルターを使用して表を絞り込み検索したいのですが
>複数の列(項目)において AND で絞り込みたいのです
>検索するキーはコンボボックスより取得して 絞り込む項目は
>3つでいずれも入力されていないものは無視して動作させたいのです
>現在
>
>If Sheet1.ComboBox1.Text = "" Then
>Else
>Worksheets("Sheet1").Range("A13").AutoFilter _
> field:=1, _
> Criteria1:=A
>End If
>
>このように指定しているのですが
>このやり方で更に他の列(項目)を追加したい時はどうしたらいいでしょうか?
>自分は上記の指定を複数使用したら出来るのかと思い試しましたが
>うまく検索する事が出来ませんでした。
|
|