EXCEL リストボックスのデータから除外したい
次の3項目のフォームがあります。
"番号"
"お店"
"分類"
これら項目に入力した値からシートデータベースの情報をリストボックスに表示させているのですが、"分類"にあるABCDEの情報のうちDの情報を省いて表示させたいのですがわかりません。
省く指定はチェックボックスを考えています。
ご教授よろしくお願いいたします。
↓コード
Private Sub SetListBox()
Dim wRow As Long
Dim wLstRow As Long
Dim wHitFlg As Boolean
Me.lst顧客リスト.Clear
wLstRow = 0
With Worksheets("顧客情報")
For wRow = 2 To .Range("A1").CurrentRegion.Rows.Count
wHitFlg = True
If Me.txt顧客名 <> "" Then
If InStr(1, .Cells(wRow, .Range("顧客名列").Column), Me.txt顧客名, vbTextCompare) = 0 Then
wHitFlg = False
End If
End If
If Me.cmb顧客分類 <> "" Then
If .Cells(wRow, .Range("顧客分類列").Column) <> Me.cmb顧客分類 Then
wHitFlg = False
End If
End If
If Me.TextBox1 <> "" Then
If InStr(1, .Cells(wRow, .Range("フリガナ列").Column), Me.TextBox1, vbTextCompare) = 0 Then
wHitFlg = False
End If
End If
If wHitFlg = True Then
Me.lst顧客リスト.AddItem ""
Me.lst顧客リスト.List(wLstRow, 0) = wRow
Me.lst顧客リスト.List(wLstRow, 1) = Worksheets("顧客情報").Cells(wRow, 2)
Me.lst顧客リスト.List(wLstRow, 2) = Worksheets("顧客情報").Cells(wRow, 3)
Me.lst顧客リスト.List(wLstRow, 3) = Worksheets("顧客情報").Cells(wRow, 8)
wLstRow = wLstRow + 1
End If
Next
End With
お礼
ご回答ありがとうございました。 ネットで調べてサンプルコードのままコピーしていた のですが、もとから間違えていたのですね。 ありがとうございました。