[[20210907154945]]　『ユーザーフォームからテキストボックスに値を抽出』（えむ）　ページの最後に飛ぶ

『ユーザーフォームからテキストボックスに値を抽出』（えむ）

ユーザーフォームに表示させた表（A2:I376）のデータをクリックすると指定のテキストボックスに指定の列のデータを反映するようにしたいです。
Private Sub 一覧リストボックス_Click()
Dim targetRow
targetRow = 一覧リストボックス
TextBox1 = 一覧リストボックス
TextBox2 = 一覧リストボックス
TextBox3 = 一覧リストボックス
End Sub
現在、テキストボックスに飛ばせていますが、一番左の列のデータが飛んでしまっています。
各テキストボックスに指定の列の値を抽出する方法を教えてください。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

情報が著しく欠損しているのであてずっぽうですが、
リストのインデックスは1からでなく0からになっていますか？
（めざめるパワー） 2021/09/07(火) 16:20

Private Sub 一覧リストボックス_Click()

    With 一覧リストボックス
        TextBox1.Value = .List(.ListIndex, 0)
        TextBox2.Value = .List(.ListIndex, 1)
        TextBox3.Value = .List(.ListIndex, 2)
    End With
End Sub
（mm） 2021/09/07(火) 16:44

めざめるパワーさん
情報の欠如大変申し訳ございません。
コメント頂いたコードで解決することが出来ました。
ありがとうございました。
（えむ） 2021/09/07(火) 17:01

コメント返信：

[ 一覧(最新更新順) ]

[[20210907154945]] 『ユーザーフォームからテキストボックスに値を抽出』（えむ） ページの最後に飛ぶ

[[20210907154945]]　『ユーザーフォームからテキストボックスに値を抽出』（えむ）　ページの最後に飛ぶ