|
コンボボックスのリストを選んだら他のテキストボックス2・3・4・5にエクセルで作った表のデータが入力されると言った感じなのですが、うまくいきません。
Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.Value
Set myrange = Range(Cells(2, 5), Cells(Range("E65536").End(xlUp).Row, 5))
'データ範囲
Dim myrange As Range
For Each wRange In myrange
If wRange.Value = Me.ComboBox1.Text Then
Me.TextBox2.Value = wRange.Offset(, 1).Value
'コードをテキストボックス2へ転送
End If
If wRange.Value = Me.ComboBox1.Value Then
Me.TextBox3.Value = wRange.Offset(, -1).Value
'コードをテキストボックス3へ転送
End If
If wRange.Value = Me.ComboBox1.Value Then
Me.TextBox4.Value = wRange.Offset(, 2).Value
'コードをテキストボックス4へ転送
End If
If wRange.Value = Me.ComboBox1.Value Then
Me.TextBox5.Value = wRange.Offset(, -4).Value & _
wRange.Offset(, -3).Value & wRange.Offset(, -2).Value
'コードをテキストボックス5へ転送
End If
Next wRange
End Sub
|
|