아래 코드와 같이 loop combobox_change에 대한 간단한 명령이 있습니까?Multi Combobox Change Declaration
Private Sub ComboBox1_Change()
nkm = cmbslno.ListIndex + 1
Set wk = Sheets("kkm" & nkm)
TextBox1.Text = Application.WorksheetFunction.VLookup(ComboBox1, wk.Range("A33:B52"), 2, 0)
End Sub
Private Sub ComboBox2_Change()
nkm = cmbslno.ListIndex + 1
Set wk = Sheets("kkm" & nkm)
TextBox2.Text = Application.WorksheetFunction.VLookup(ComboBox2, wk.Range("A33:B52"), 2, 0)
End Sub
Private Sub ComboBox3_Change()
nkm = cmbslno.ListIndex + 1
Set wk = Sheets("kkm" & nkm)
TextBox3.Text = Application.WorksheetFunction.VLookup(ComboBox3, wk.Range("A33:B52"), 2, 0)
End Sub
Private Sub ComboBox4_Change()
nkm = cmbslno.ListIndex + 1
Set wk = Sheets("kkm" & nkm)
TextBox4.Text = Application.WorksheetFunction.VLookup(ComboBox4, wk.Range("A33:B52"), 2, 0)
End Sub
나는
for i = 1 to 15
......... "code above" .....
next
1에서 15까지는 어떤 관련이 있습니까? 콤보 상자의 수는 15 개입니까? – QHarr
예. 및 텍스트 상자 –
이러한 양식의 일부입니까? – QHarr