いつもお世話になっております。
おしえてくれませんでしょうか
sheet1
sheet2
sheet3
があります
C列 お客様
D列 説別
E列 血液型
F列 生年月日
G列 担当
Listbox1 には
With ListBox1
.AddItem "工藤"
.AddItem "加藤"
.AddItem "遠藤"
.AddItem "内藤"
.AddItem "佐藤"
.Font.Size = 14
End With
リストボックス1の担当をクリックしたら、
その担当のお客様を表示させたいです。
わかる方おしえてくれませんでしょうか
添付ファイルもつけました。
よろしくお願いいたします。
下記のコードを実行しても
リストボックス2には
なにも表示されませんです。
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ベストアンサー
- 回答日時:
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
でうまくいきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
空白セルをとばして転記
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
VBAでのリスト不一致抽出について
-
VBマクロ 色の付いたセルを...
-
vbaでシートより100より大きい...
-
エクセルVBAで『A列』に新...
-
URLのリンク切れをマクロを使っ...
-
SUM関数の範囲を変数を代入して...
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
グリッドの列の最大値を求めたい。
-
VBAで重複データを確認したい
-
IIF関数の使い方
-
VBAで、離れた複数の列に対して...
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報