『ユーザーフォームからテキストボックスに値を抽出』(えむ) ユーザーフォームに表示させた表(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