таблица из 3 клонок
combobox смотрит первую колонку
нужно что бы при выборе в combobox1 значения соответствующего строке 1 в textbox1 подстовлялось значение из колонки 2 а в textbox2 из колонки 3
Private Sub ComboBox1_Click()
For i = 1 To 12
If Sheets("Лист1").Cells(i, 1).Value = ComboBox1.List(ComboBox1.ListIndex) Then
TextBox1 = Sheets("Лист1").Cells(i, 2).Value
TextBox2 = Sheets("Лист1").Cells(i, 3).Value
End If
Next i
End Sub
Private Sub CommandButton1_Click()
For i = 1 To 12 'заполнение ComboBox1 значениями первого столбца
ComboBox1.AddItem Sheets("Лист1").Cells(i, 1).Value
Next i
' или
'ComboBox1.ListFillRange = "A1:A12"
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 42