Google
 
Web itpro-blogger.blogspot.com
月曜日, 11月 12, 2007

[VBA]リストボックス(ListBox)

▼質問
複数の列を表示するリストボックス(ListBox)を作成するにはどうしたらいいの?

▼回答
ユーザフォーム(UserForm)にリストボックス(ListBox)を貼り付けて次のコードを
UserForm_Initialize()に記述する。

ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 20 & ";" & 10
Call ListBox1.AddItem(",", 0)
ListBox1.list(0, 0) = "列1"
ListBox1.list(0, 1) = "列2"

これでもいける?

Dim column(1, 1) As Variant
column(0, 0) = "列1": column(1, 0) = "列2"
ListBox1.column() = column

▼質問
見出しを作成するにはどうしたらいいの?

▼回答
次のコードを書いてみたがエラーが発生してしまう。なぜ?

ListBox1.ColumnCount = 2
ListBox1.RowSourceType = "Value List"
ListBox1.RowSource = "列1;列2"
ListBox1.TextColumn = 3
ListBox1.ColumnWidths = 20 & ";" & 10
ListBox1.ColumnHeads = True

エラーの内容は、RowSourceTypeで実行時エラー'13'の「型が一致しません。」が発生する。
RowSourceTypeはAccessしか使えないのかな?

今度は、RowSourceTypeをコメントにして実行してみると次行のRowSourceでエラーが発生する。
エラーの内容は、実行時エラー'380'の「RowSourceプロパティを設定できません。プロパティの
値が不正です。」と・・・。

ダメダメだー!!

諦めよう。。。(T_T)






Comments: コメントを投稿

<< Home

This page is powered by Blogger. Isn't yours?