Excel VBA質問箱 IV

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

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


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

61057 / 76738

←次へ　｜　前へ→


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

[名前なし] - 04/12/4(土) 20:40 -


	引用なし

	パスワード

こうかな？

Private Sub UserForm_Initialize()
Dim MyAr, ListRange, i

　　MyAr = Array("A50:A68", "B50:B57", "C50:C63", "D50:D64", "E50:E66", _
　　"A70:A83", "B70:B77", "C70:C81", "D70:D77", "E70:E76", "F70:F79")

　　For i = 0 To UBound(MyAr)
　　　　ListRange = Worksheets("U1").Range(MyAr(i)).Value
　　　　Controls("ListBox" & i + 1).List = ListRange
　　　　Controls("ListBox" & i + 1).ListIndex = 0
　　Next

End Sub

0 hits

▼

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