エクセルVBAのチェックボックスを使った検索
当方、VBA初心者です。
使用しているソフトは、エクセル2007です。
都道府県別で会社検索ができるものを作りたいと考えております。
内容は、ユーザフォームに都道府県別のチェックボックスを作っております。
その都道府県をチェックすると
オートフィルタ機能でチェックした都道府県をシート上に抽出するものです。
以下が理想とするイメージです。
会社名 住所
aaa 北海道釧路市1-1
bbb 青森県八戸市2-2
ccc 岩手県盛岡市3-3
↓※北海道と青森県をチェックした場合
会社名 住所
aaa 北海道釧路市1-1
bbb 青森県八戸市2-2
しかし、北海道と青森県をチェックしても、抽出されるのは青森県だけになります。
どのようにしたら、チェックした都道府県をすべて表示できるようになるのでしょうか。
以下が現在のイメージです。
会社名 住所
aaa 北海道釧路市1-1
bbb 青森県八戸市2-2
ccc 岩手県盛岡市3-3
↓※北海道と青森県をチェックした場合
会社名 住所
bbb 青森県八戸市2-2
以下が現在作成しているものです。
----
Private Sub CommandButton1_Click()
Unload Me
End Sub
----
Private Sub CommandButton2_Click()
If CheckBox1.Value = True Then
Selection.AutoFilter
ActiveSheet.Range("$A$5:$O$1677").AutoFilter Field:=10, Criteria1:="=*北海道*" _
, Operator:=xlAnd
End If
If CheckBox2.Value = True Then
Selection.AutoFilter
ActiveSheet.Range("$A$5:$O$1677").AutoFilter Field:=10, Criteria1:="=*青森県*" _
, Operator:=xlAnd
End If
End Sub
----
お手数ではございますが、どうがご教授をお願いいたします。
補足
複数行一括でタブかける方法を存じないのですが。