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

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

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

No.1 ベストアンサー 回答者： nishi6 回答日時： 2004/02/23 17:51

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

この回答へのお礼

無事できました！！

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

お礼日時：2004/02/24 10:07