Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62353 / 76732

←次へ　｜　前へ→


	【18986】Re:リストボックスのプロパティ

Kobasan - 04/10/19(火) 0:27 -


	引用なし

	パスワード

>有り難うございます。もし連続した名前でないときには
>このようにに簡潔には出来ないのでしょうか？
１つは、Collection を使った場合
Private colListBox As New Collection

Private Sub UserForm_Initialize()
　　'↓定義の際に[ New ]を付けない場合は必要
　　' Set colListBox = New Collection
　　With colListBox
　　　　.Add ListBox1
　　　　.Add ListBox2
　　　　.Add ListBox3
　　End With
　　'
　　For i = 1 To 3
　　　　colListBox(i).List = Array(1, 2, 3, 4)　'MyArray
　　　　colListBox(i).ListIndex = 0
　　Next
End Sub

'------------------------------------
２つ目はListBox を配列宣言した場合
'[ Collection ]の代わりに、ListBox を配列宣言してもできます。
'この場合は、[Add ]ではなく、[Set ]ステートメントで代入を行ないます。
Private CtrlListBox(1 To 7) As MsForms.ListBox

Private Sub UserForm_Initialize()
　　Set CtrlListBox(1) = ListBox1
　　Set CtrlListBox(2) = ListBox2
　　Set CtrlListBox(3) = ListBox3
　　'
　　For i = 1 To 3
　　　　CtrlListBox(i).List = Array(1, 2, 3, 4)　'MyArray
　　　　CtrlListBox(i).ListIndex = 0
　　Next
End Sub
試してみて下さい

1 hits

▼

【18982】リストボックスのプロパティ mickeypapa 04/10/18(月) 21:33