リストボックスの値を拾うには

質問

リストボックスの値を拾うには
以下のボタンコマンドでListBox1のListIndexから配列二番目の値を「hinban」という変数に取り込みたいのですがうまくいきません。
「hinban = ListBox1.List(ListBox1.ListIndex, 1)」という行を書いてみましたが
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」とアラートが出てしまいます。
VBA初心者です。
解決法を教えてください。

Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim i As Integer
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'For i = 1 To 3
'.Cells(lastRow, i).Value = ListBox1.List(ListBox1.ListIndex, i - 1)
hinban = ListBox1.List(ListBox1.ListIndex, 1)
'Next i
End With
End Sub

回答No.3

piroin654 · ベストアンサー

＃2です。Meとはこの場合はUserForm自身を
指します。つまり、

Me!ListBox1

とはUserForm自身にあるListBox1を指しています。

お礼

ありがとうございます。
詳しい説明とサンプルプログラムありがとうございました。
ご指摘の通りリストボックスはUserFormにあり、hinbanを標準モジュールで受け取って標準モジュールデ処理をするというプログラムです。
早速サンプルプログラムを試してみます。
本当にありがとうございました。

回答No.2

piroin654

リストボックスはUserFormに設置してあるのでは
と思いますが、hinban = Me!ListBox1.List(i, 1)
のようにMe!をつければListBox1を認識できると思います。

まず、以下のようにしてみてください。
なお、hinbanが変数宣言されていないので
以下のように宣言していますが、hinbanの型
が分からないのでVariantとしています。

Private Sub CommandButton1_Click()
Dim i As Integer
Dim hinban As Variant

With Worksheets("Sheet1")
For i = 0 To Me!ListBox1.ListCount - 1
hinban = Me!ListBox1.List(i, 1)
MsgBox hinban
Next i
End With
End Sub

メッセージボックスが二番目の配列の値を
連続して表示します。あるいは、

With Worksheets("Sheet1")
For i = 0 To Me!ListBox1.ListCount - 1
hinban = hinban & Me!ListBox1.List(i, 1) & vbCrLf
Next i
End With
MsgBox hinban

とすればメッセージボックスにすべての二番目の配列の値
を表示します。

なお、With Worksheets("Sheet1")とEnd With
はUserformにリストボックスがある場合は
上記のコードでは必要ありません。この
二つをコメントアウトしても機能します。

これを土台にして機能を付加していってみたら
どうですか。

回答No.1

nicotinism

リストボックスの二番目の配列は
ListBox1.Column(pvargColumn:=1)
で求められるかと。

お礼

回答ありがとうございました。
コピーペーストで内容も分からず書いているもので変な質問ですみませんでした。
教えていただきましたコマンドも含めて勉強します。