|
UserFormに下記のように記入し
ComboBoxでリストから選択した項目に対象となる
項目をTextBoxに表示するようにしてあります。
この状態のままでしたら正常に動作してくれますが、
それぞれをsheet2の特定のセルに代入する為に
ComboBoxとTextBoxそれぞれのプロパティーの
ControlSourceにsheet2!C3〜C6を設定すると
UserFormを開いて最初に選択した方のComboBox内には
何も表示されません、同時にセルにも選択した内容が代入されません。
このとき、対象となるTextBoxにはちゃんと表示されます。
なぜなのか分からず困ってます、どなたかご教授いただけないでしょうか。
Private Sub UserForm_Initialize()
Worksheets("sheet1").Select
With Me.ComboBox1
.RowSource = "sheet3!A2:B102"
End With
With Me.ComboBox2
.RowSource = "sheet4!A2:B102"
End With
End Sub
Private Sub ComboBox1_Change()
With Me.ComboBox1
If .ListIndex <> -1 Then
TextBox1.Text = .List(.ListIndex, 1)
End If
End With
End Sub
Private Sub ComboBox2_Change()
With Me.ComboBox2
If .ListIndex <> -1 Then
TextBox2.Text = .List(.ListIndex, 1)
End If
End With
End Sub
|
|