|
初めて投稿させて頂きます。
下記の、ComboBox_Change()の部分ですが、
For Nextなどを使って、一つにまとめられないでしょうか?
ネットで検索しながら、色々と試してみたのですが、
どうしてもTextBoxへ反映させる事ができませんでした。
どなたか、御親切な方に教えて頂きたく。
Private Sub UserForm_Initialize()
Dim cmb(5) As ComboBox
Set cmb(0) = ComboBox1
Set cmb(1) = ComboBox2
Set cmb(2) = ComboBox3
Set cmb(3) = ComboBox4
Set cmb(4) = ComboBox5
For i = 0 To 4
With cmb(i)
.AddItem "AAA"
.AddItem "BBB"
End With
Next
End Sub
- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Change()
Me.Controls("TextBox27").Value = ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.Controls("TextBox28").Value = ComboBox2
End Sub
・
・
・
Private Sub ComboBox5_Change()
Me.Controls("TextBox31").Value = ComboBox5
End Sub
|
|