Excel VBA質問箱 IV

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

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


62362 / 76738 ←次へ | 前へ→

【18983】Re:リストボックスのプロパティ
回答  ISK  - 04/10/18(月) 22:27 -

引用なし
パスワード
   ▼mickeypapa さん:
>マルチページ8枚にそれぞれリストボックスを配しています。
>それぞれのリストボックスにはシートから配列でデータを
>セットして、ColumnWidth のプロパティで40;0;0;20のようにして
>必要な項目を表示しています。このときに
>With ListBox1
>   .List = myAr
>   .ListIndex = 0
>End With
>
>With ListBox2
>   .List = myAr
>   .ListIndex = 0
>End With
>
>リストボックスの名前が違うだけで、同じ内容を
>繰り返しているのを簡略なコードに出来ないものでしょうか?

もしListBoxの番号が1 から8まで連続しているのなら

For i = 1 to 8
  Controls("Listbox" & i).List = myAr
  Controls("Listbox" & i).ListIndex = 0
Next

で試してみてください。
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 お礼

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