При выборе значения в любом из ComboBox-ов очистить все остальные

@aNJay · Регистрация: 28.02.2016

Author24 — интернет-сервис помощи студентам

задачка вроде не сложная, но не могу придумать решение.

есть 5 комбобоксов
ComboBox1, ComboBox2...
они заполнены

нужно при выборе значения в любом из комбобоксов все остальные очищались.

@Alex77755 · 28.02.2016, 17:30

можно загнать в массив и проверяя имя, например, остальные очищать.
А можно вписать в клик каждому вызов процедуры с параметром

Visual Basic

Option Explicit
 
Private Sub ComboBox1_Click()
qwert 1
End Sub
 
Private Sub ComboBox2_Click()
qwert 2
End Sub
 
Private Sub ComboBox3_Click()
qwert 3
End Sub
 
Private Sub ComboBox4_Click()
qwert 4
End Sub
 
Private Sub ComboBox5_Click()
qwert 4
End Sub
 
Private Sub qwert(n)
Dim i
For i = 1 To 5
    If i <> n Then Me.Controls("ComboBox" & i).Clear
Next i
 
End Sub
 
Private Sub UserForm_Click()
Dim i, j
For i = 1 To 5
    For j = 1 To 50
    Me.Controls("ComboBox" & i).AddItem j
    Next j
Next i
End Sub

передавать можно и имя комбо

@aNJay · 28.02.2016, 18:08 **[ТС]**

Спасибо, правда я имел в виду ComboBox.Value = Empty, но в целом то что надо.

@aNJay 0 / 0 / 0 Регистрация: 28.02.2016 Сообщений: 4
		1
	При выборе значения в любом из ComboBox-ов очистить все остальные 28.02.2016, 17:05. Показов 1480. Ответов 2 Метки combobox (Все метки) задачка вроде не сложная, но не могу придумать решение. есть 5 комбобоксов ComboBox1, ComboBox2... они заполнены нужно при выборе значения в любом из комбобоксов все остальные очищались. 0

@aNJay 0 / 0 / 0 Регистрация: 28.02.2016 Сообщений: 4
	28.02.2016, 18:08 [ТС]	3
	Спасибо, правда я имел в виду ComboBox.Value = Empty, но в целом то что надо. 0

Опции темы

При выборе значения в любом из ComboBox-ов очистить все остальные

Решение