Excel VBA質問箱 IV

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

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


62353 / 76732 ←次へ | 前へ→

【18986】Re:リストボックスのプロパティ
回答  Kobasan  - 04/10/19(火) 0:27 -

引用なし
パスワード
   >有り難うございます。もし連続した名前でないときには
>このようにに簡潔には出来ないのでしょうか?
1つは、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

'------------------------------------
2つ目は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
試してみて下さい

0 hits

【18982】リストボックスのプロパティ mickeypapa 04/10/18(月) 21:33 質問
【18983】Re:リストボックスのプロパティ ISK 04/10/18(月) 22:27 回答
【18984】Re:リストボックスのプロパティ mickeypapa 04/10/18(月) 23:17 お礼
【18986】Re:リストボックスのプロパティ Kobasan 04/10/19(火) 0:27 回答
【19032】Re:リストボックスのプロパティ mickeypapa 04/10/19(火) 22:13 お礼
【20303】Re:リストボックスのプロパティ mickeypapa 04/12/4(土) 18:25 質問
【20306】Re:リストボックスのプロパティ [名前なし] 04/12/4(土) 20:40 回答
【20307】Re:リストボックスのプロパティ mickeypapa 04/12/4(土) 21:56 お礼
【20308】Re:リストボックスのプロパティ kobasan 04/12/4(土) 23:03 回答
【20316】Re:リストボックスのプロパティ mickeypapa 04/12/5(日) 8:58 お礼
【20317】Re:リストボックスのプロパティ kobasan 04/12/5(日) 12:34 発言
【20322】Re:リストボックスのプロパティ mickeypapa 04/12/5(日) 14:42 お礼
【18990】Re:リストボックスのプロパティ Jaka 04/10/19(火) 9:28 回答
【19030】Re:リストボックスのプロパティ mickeypapa 04/10/19(火) 21:16 お礼

62353 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free