リストBOXの値を取得について

お忙しいところすいませんが、値の取り出しが上手くいきません？。

Private Sub CommandButton1_Click()

Dim zaiko As Long


MsgBox ListBox1.List(ListBox1.ListIndex)　　　ここまではOKです。商品名が出ます。

zaiko = ListBox1.List(ListBox1.ListIndex)　　ここでエラーになります。


MsgBox zaiko




End Sub

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2022/05/18 18:03

こんにちは

多分、型違い13エラーかなと思います
変数zaikoに品名を入れたい場合は
変数zaikoの宣言で　　Dim zaiko As String　のようにします

もしインデックスナンバーを取得したい場合は　型はそのままでもOK
zaiko = ListBox1.ListIndex　です　（インデックスは０から始まります）

この回答へのお礼

ありがとうございます。

お礼日時：2022/05/18 18:48

No.1 回答者： めぐみん_ 回答日時： 2022/05/18 18:01

商品名なら変数の型は Long(数値型)ではなくString(文字列型)じゃないかな？