Excel VBA質問箱 IV

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

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


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

42091 / 76732

←次へ　｜　前へ→


	【39712】Re:Listboxで・・

ハト - 06/6/29(木) 14:57 -


	引用なし

	パスワード

おはようございます

▼Tamurasine さん：
>空の状態のリストボックスに
>
>ListBox1.AddItem "項目1"
>
>ListBox1.List(0, 1) = "項目2"
>ListBox1.List(0, 2) = "項目3"
>ListBox1.List(0, 3) = "項目4"
>ListBox1.List(0, 4) = "項目5"
>ListBox1.List(0, 5) = "項目6"
>ListBox1.List(0, 6) = "項目7"
>ListBox1.List(0, 7) = "項目8"
>ListBox1.List(0, 8) = "項目9"
>ListBox1.List(0, 9) = "項目10"
>ListBox1.List(0, 10) = "項目11"
>ListBox1.List(0, 11) = "項目12"
>
>というように入力したいのですが・・
>ListBox1.List(0, 9) = "項目10"
>までなら正常に動作するのですがそれ以降を加えるとエラーになってしまいます。
>
>なぜでしょうか？よろしくお願いします

ヘルプを見ると
-----------------------------------------------------
ColumnCount プロパティ

解説

たとえば、社員名簿のフォームで、そのリストボックス (ListBox) コントロールの ColumnCount プロパティに 3 を指定して、1 列目には姓を、2 列目には名前を、3 列目には社員コードを表示するものとします。

ColumnCount プロパティに 0 を設定すると、列はすべて表示されなくなります。-1 を設定すると、表示可能な列がすべて表示されます。非連結データソースの場合は、最大 10 列 (0 ～ 9) までの制限があります。
-----------------------------------------------------

これが原因だと思われます

ですので配列を使って

Dim LTmp(0, 12)
　　
LTmp(0, 0) = "項目1"
LTmp(0, 1) = "項目2"
LTmp(0, 2) = "項目3"
LTmp(0, 3) = "項目4"
LTmp(0, 4) = "項目5"
LTmp(0, 5) = "項目6"
LTmp(0, 6) = "項目7"
LTmp(0, 7) = "項目8"
LTmp(0, 8) = "項目9"
LTmp(0, 9) = "項目10"
LTmp(0, 10) = "項目11"
LTmp(0, 11) = "項目12"
　　
ListBox1.List() = LTmp

のようにすればエラーにならず、処理できます

1 hits

▼

【39709】Listboxで・・ Tamurasine 06/6/29(木) 14:00