エクセル VBA リストボックスについて質問です。

Question

VBAにて、リストボックスに表示されたデータをダブルクリックして、
メッセージボックスにデータを表示したいです。

エラーですが、型が一致していません。

とエラーが出ます。

よろしくお願い致します。

追記です。
データをMsgboXに出力するには、どうすればよいでしょうか。

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Worksheets("入力画面")
.Range(.Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 1), .Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 11)).Select
End With
End Sub
コード

Comments

[ttyp03]

特に問題はなさそうでした。正常に動いています。ただ質問のメッセージボックスがコード上にないので、何を表示させたいのかが不明です。質問を明確にしてください。

[ttyp03]

データって何を指していますか？リストボックスで選択されたアイテム？でも提示されたコードはRangeで参照してますし。明確にお願いします。

[ffhtfttfh]

データは入力画面のシートに入っている11項目を抽出したいです。

Answer 1

なかなか質問を編集してくれないので先走りますが、ダブルクリックしたアイテムをメッセージボックスに表示したいだけなら下記でよいと思います。

MsgBox ListBox1.List(ListBox1.ListIndex, 0)
または
MsgBox ListBox1.Text

追記
範囲選択したセルの値を結合してメッセージボックスに表示する。

Dim r1 As Variant
Dim r2 As Variant
With Worksheets("入力画面")
    r1 = .Range(.Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 1), .Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 11))
    r2 = WorksheetFunction.Transpose(WorksheetFunction.Transpose(r1))
    MsgBox Join(r2, "")
End With

Comments

[ffhtfttfh]

回答ありがとうございます。
書き忘れですが、
11項目有るので、一番最初の項目しか出力されません。

[ttyp03]

「何を」出力するのが正しい仕様なのですか？
推測すると、現状Rangeで指定している範囲の値を結合して出力したいということでしょうか？

[ffhtfttfh]

そうです
口べたですいません

[ttyp03]

口下手という問題ではないような。。。

回答本文の方に追記しておいたので見てみてください。

Answer 2

前の質問からの流れなら、Debug.Printを知っておくと良いでしょう。
【エクセルVBA】初心者のうちから知っておくべきDebug.Printの使い方