|
ユーザーフォームに下記のように書くと
ブックを開くときエラーが出て開けません。
数を減らすと開くのですが
どうしてもこれだけ欲しいのですが良い方法は無いでしょうか?
Private Sub ComboBox1_Change()
With Me.ComboBox1
If .ListIndex <> -1 Then
TextBox42.Text = .List(.ListIndex, 1)
End If
End With
End Sub
上記が9回続きます
Private Sub ComboBox10_Change()
With Me.ComboBox10
If .ListIndex <> -1 Then
TextBox48.Text = .List(.ListIndex, 1)
End If
If .ListIndex <> -1 Then
TextBox49.Text = .List(.ListIndex, 2)
End If
If .ListIndex <> -1 Then
TextBox50.Text = .List(.ListIndex, 3)
End If
If .ListIndex <> -1 Then
TextBox51.Text = .List(.ListIndex, 4)
End If
End With
End Sub
上記が10回続きます
Private Sub ComboBox20_Change()
With Me.ComboBox20
If .ListIndex <> -1 Then
TextBox159.Text = .List(.ListIndex, 1)
End If
If .ListIndex <> -1 Then
TextBox160.Text = .List(.ListIndex, 2)
End If
If .ListIndex <> -1 Then
TextBox161.Text = .List(.ListIndex, 3)
End If
If .ListIndex <> -1 Then
TextBox162.Text = .List(.ListIndex, 4)
End If
If .ListIndex <> -1 Then
TextBox163.Text = .List(.ListIndex, 5)
End If
End With
End Sub
上記が10回続きます。
こんなにコンボボックスは使用不可なのでしょうか?
|
|