Excel ユーザーフォームでコンボボックスを使用してデータ入力

質問

Excelのユーザーフォームでコンボボックスを使用して、シートのデータを表示しています。
コンボボックス：ComboBox1
テキストボックス1-3：TextBox1-3
コンボボックスのRowSource：シート名!A2:C100
コンボボックスの変更時の動作：
Me!TextBox1.Value = ComboBox1.Value

とここまではできたんですが、テキストボックス2にシートのB列の値を、テキストボックス3にシートのC列の値を入れたいのですが、
どのようにしたらいいのでしょうか？

回答No.1

nishi6 · ベストアンサー

ComboBox1のクリックイベントに書いてみます。
　　（当然ですが、ComboBox1のColumnCount=3です）

Private Sub ComboBox1_Click()
　　With ComboBox1
　　　　TextBox1.Text = .List(.ListIndex, 0)
　　　　TextBox2.Text = .List(.ListIndex, 1)
　　　　TextBox3.Text = .List(.ListIndex, 2)
　　End With
End Sub

お礼

無事できました！！

ありがとうございました！