リストポックスへの抽出方法

いつもお世話になっております

リストポックス1には担当名

性別
CheckBox1　男
CheckBox2　女

血液型
CheckBox3　A
CheckBox4 B
CheckBox5 O
CheckBox6 AB

リストポックス2には
抽出結果を表示されたいのですが、

リストポックス1には担当名を選択して
下記のコードを実行すると
リストポックス2抽出結果がでます。

これに　性別と　血液型　を選択して
抽出結果を表示させたいです。
わかる方おしえてくれませんでしょうか


Dim Dic As Object
Dim i As Long
Dim j As Long
Set Dic = CreateObject("Scripting.Dictionary")
ListBox2.Clear

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 8).Value = ListBox1.List(ListBox1.ListIndex) Then
If Not Dic.Exists(Cells(i, 8)) Then
With ListBox2
.AddItem ""
.List(.ListCount - 1, 0) = Cells(i, 3).Value
Dic(Cells(i, 8)) = True

End With
End If
End If

Next

No.1 回答者： 初心者ですが何か。 回答日時： 2022/08/10 19:27

気になるのは、どうして単一の選択をするのにチェックボックスを用いるのか？

担当者が重複した際どうしたいのか、その希望結果があった方が良かったかと。
それに担当者と性別・血液型情報から何を抜き出したいのかもわからないし、どう表示したいのかも不明。

と、スマホで見てたら書いてしまいました。

この回答へのお礼

返信ありがとうございます。
担当者重複することは　ありません。

例えば　遠藤　工藤
性別　男と女
血液型　ＡとＯ
で抽出結果

難しですね

お礼日時：2022/08/10 20:14