Пример:
Код |
---|
Private Sub ComboBox1_Change() If ComboBox1.Text = "Case_1" Then ComboBox2.ListFillRange = "Case_1" ElseIf ComboBox1.Text = "Case_2" Then ComboBox2.ListFillRange = "Case_2" End If End Sub |
В ручную конечно можно перебрать ComboBox1, ComboBox2 и т.д., но проблема в том, что у меня имеется до 1000 строк на листе, и в каждой строке по 5 ComboBox наполнения списка каждых 4 ComboBox строки зависит от значения предыдущего, например:
1) Строка 1: Значение Combobox1 является условием для диапазона списка Combobox2; Значение Combobox2 является условием для диапазона списка Combobox3; Значение Combobox3 является условием для диапазона списка Combobox4; Значение Combobox4 является условием для диапазона списка Combobox5 (в данной строке наполнение списками закончено);
2) Строка 2: Значение Combobox5 является условием для диапазона списка Combobox6; Значение Combobox6 является условием для диапазона списка Combobox7; Значение Combobox7 является условием для диапазона списка Combobox8; Значение Combobox8 является условием для диапазона списка Combobox9 (в данной строке наполнение списками закончено и так далее по строка).
Вручную прописывать для изменения каждого из 4 ComboBox в строке слишком проблематично.
Возможно ли прописать какую-либо процедуру по которой:
1) Combobox1, Combobox5, Combobox10 и тд. будет всегда критерием для наполнения списка Combobox2, Combobox6, Combobox11 и тд. по названным диапазонам
Код |
---|
If ComboBox1.Text = "Case_1" Then ComboBox2.ListFillRange = "Case_1" ElseIf ComboBox1.Text = "Case_2" Then ComboBox2.ListFillRange = "Case_2" End If |
Код |
---|
If ComboBox2.Text = "Case_3" Then ComboBox3.ListFillRange = "Case_3" ElseIf ComboBox2.Text = "Case_4" Then ComboBox3.ListFillRange = "Case_4" End If |
Без перебора наименований ComboBox вручную для каждого (ComboBox1_Change, ComboBox2_Change, ComboBox3_Change, ComboBox4_Change и так до 4000)?