フォームのリストボックスに値を表示させたい

質問

VBA　フォームのリストボックスに値を表示させたい

Ａ１→aaa
Ａ２→bbb

リストボックスに上記の値を表示させたいなら、
Private Sub UserForm_Initialize()
UserForm1.ListBox1.RowSource = "Sheet1!A1:A2"
End Sub
で出来ますが、シート上のセルで表示する値を指定するのではなく、ＶＢＡ上で、リストボックスに表示させる値を指定したいのです。

Private Sub UserForm_Initialize()
UserForm1.ListBox1.RowSource = "aaa,bbb"
End Sub
を実行すると、VBA実行時エラー380になってしまいます。

UserForm1.ListBox1.RowSource = "aaa;bbb"
もダメでした。

ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

簡単には
Private Sub UserForm_Initialize()
UserForm1.ListBox1.additem "aaa"
UserForm1.ListBox1.additem "bbb"
End Sub
のようにします。

Private Sub UserForm_Initialize()
me.listbox1.list = array("aaa", "bbb")
End Sub
などのようにしても出来ます。

それぞれの命令について、ＶＢＡのヘルプをよく読んで参考にしてみて下さい。

お礼

ありがとうございました。