リストボックス セルの値を取得する

いつもお世話になっております。
おしえてくれませんでしょうか

sheet1
sheet2
sheet3
があります

Ｃ列　お客様
Ｄ列　説別
Ｅ列　血液型
Ｆ列　生年月日
Ｇ列　担当

Listbox1 には
With ListBox1
.AddItem "工藤"
.AddItem "加藤"
.AddItem "遠藤"
.AddItem "内藤"
.AddItem "佐藤"
.Font.Size = 14
End With

リストボックス1の担当をクリックしたら、
その担当のお客様を表示させたいです。

わかる方おしえてくれませんでしょうか
添付ファイルもつけました。

よろしくお願いいたします。


下記のコードを実行しても
リストボックス２には
なにも表示されませんです。

Private Sub ListBox1_Click()
Dim wS As Worksheet
Dim i As Long

s = Array("Sheet1", "Sheet2", "Sheet3")

For Each wS In Worksheets(s)

For i = 3 To wS.Cells(Rows.Count, 3).End(xlUp).Row
If ListBox1.Value = wS.Cells(i, 7) Then

ListBox2.Value = wS.Cells(i, 3)
End If

Next
Next

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/05/21 21:11

Listbox1 には

With ListBox1
.AddItem "工藤"
.AddItem "加藤"
.AddItem "遠藤"
.AddItem "内藤"
.AddItem "佐藤"
.Font.Size = 14
End With

こちらを理解されているのに

ListBox2.Value = wS.Cells(i, 3)

どうしてこの方法になるのでしょう？

この回答へのお礼

ありがとうございました。
With ListBox2

.AddItem wS.Cells(i, 3)
End With
でうまくいきました。

お礼日時：2022/05/21 21:38