いつもお世話になっております
リストポックス検索のやり方をおしえてくれませんでしょうか
下記のコードは検索など調べました。
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 近藤
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) リストボックス セルの値を取得する 1 2022/05/21 20:47
- Visual Basic(VBA) リストポックスへの抽出方法 1 2022/08/10 17:58
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報
エクセルのデータの内容添付しました。