| Вопрос: Как создать зависимые списки | Добавлено: 21.12.06 09:03 |
Автор вопроса:  Vovka | ICQ: 345650092 |
|
Уважаемые участники форума, возникла следующая проблема.
Нужно в форме Excel создать несколько зависимых списков с помощью Combobox, т. е. чтобы привыборе элемента в первом Combobox, содержимое второго было соответствующим, при выборе во втором, содержимое третьего тоже было соответствующим. Помогите с написанием кода. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Vovka ICQ: 345650092 Вопросов: 2 Ответов: 4 |
Профиль | | #1 | Добавлено: 21.12.06 11:20 |
| Если данный вопрос уже поднимался на форуме или вы знаете где можно найти решение данной проблемы, пожалуста оставьте ссылку я буду очень благодарен. | ||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 22.12.06 19:38 |
|
Private Sub Combo1_Click()
Select Case Combo1.Text Case "блаблабла1" Combo2.Clear Combo2.AddItem "блаблабла1.1" Combo2.AddItem "блаблабла1.2" Combo2.AddItem "блаблабла1.3" Case "блаблабла2" Combo2.Clear Combo2.AddItem "блаблабла2.1" Combo2.AddItem "блаблабла2.2" Combo2.AddItem "блаблабла2.3" Case Else Combo2.Clear Combo2.AddItem "else1" Combo2.AddItem "else1" Combo2.AddItem "else1" '... End Select End Sub Private Sub Form_Load() Combo1.AddItem "блаблабла1" Combo1.AddItem "блаблабла2" Combo1.AddItem "блаблабла3" End Sub |
||
|
Номер ответа: 3 Автор ответа: VovkaICQ: 345650092 Вопросов: 2 Ответов: 4 |
Профиль | | #3 | Добавлено: 27.12.06 09:11 |
| Cпасибо за рабочий код, но лучше если бы это было сделано с помощью Rowsource, а то если я каждый элемент начну так добавлять у меня неделя уйдет, у самого что не получается с использованием того же оператора select case. Заранее спасибо | ||
Страница: 1 |