新規会員登録における電話番号登録必須化のお知らせ

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

リストポックス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

「リストポックスへの抽出方法」の質問画像
教えて!goo グレード

A 回答 (1件)

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



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

と、スマホで見てたら書いてしまいました。
    • good
    • 0
この回答へのお礼

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

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

難しですね

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング