電子書籍ギフト♪ 最大10,000円が当たる!

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

リストポックス検索のやり方をおしえてくれませんでしょうか
下記のコードは検索など調べました。

Listbox4からListbox7
まであり、下記のようになっています。

Listbox4からListbox7 まで選択した結果を
抽出したのですが、わかる方おしえてくれませんでしょうか

下記のコードの部分が  ListBox4と ListBox5のつなげ方がわかりません。

With ListBox4
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Dic.Add .List(i), ""
End If
Next
End With

If Dic.Count > 0 Then _
Rng.AutoFilter Field:=7, _
Criteria1:=Dic.keys, _
Operator:=xlFilterValues



エクセルのデータは
B列  C列  D列  E列  F列     G列     H列   I列
No  名前 担当  性別 血液型  契約予定日  担当   電話
33 福田 晴生 フクタ ハルオ 男 O 2021/4/1 近藤 090-1356-8171
34 田代 火呂絵 タシロ ヒロエ 女 O 2022/5/8 田中 070-2204-7522
36 加藤 凱次 カトウ カツジ 男 A 2022/6/8 加藤 070-6017-6911
39 中谷 美貴 ナカタニ ミキ 女 B 2022/4/1 佐藤 090-5652-8823
40 広瀬 貴雅 ヒロセ タカマサ 男 A 2022/8/8 工藤 090-0774-3804
43 小倉 亜依 オグラ アイ 女 O 2022/10/12 工藤 090-3935-1395
45 松崎 正宣 マツサキ マサノリ 男 B 2022/7/12 近藤

質問者からの補足コメント

  • エクセルのデータの内容添付しました。

    「リストポックス検索」の補足画像1
      補足日時:2022/06/19 21:34
教えて!goo グレード

A 回答 (1件)

こんな感じかな。



For Each myListBox In Array(ListBox4, Listbox5, Listbox6, Listbox7)
With myListBox



End With
Next myListBox
    • good
    • 0
この回答へのお礼

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

お礼日時:2022/06/19 23:05

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

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

教えて!goo グレード

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

人気Q&Aランキング