Как добавить значения с листа Exel в Combobox на форме

Программирование на Visual Basic for Applications
GeorgeM
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 16.12.2004 (Чт) 15:01

Как добавить значения с листа Exel в Combobox на форме

Сообщение GeorgeM » 16.12.2004 (Чт) 15:09

Есть форма и на ней два комбобокса Combo1 и Combo2
На листе Exel в одном столбце есть список вида
Группа1
555
2222
33
44444
Группа2
66
8888
Группа3
99999
и т.д. в списке 5000-6000 записей
Как в Combo1 добавить только группы Группа1 ...ГруппаN
а в Combo2 только значения 555,2222,33?
Формат ячеек на листе Общий

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 16.12.2004 (Чт) 15:13

Пройтись циклом по столбцу, использовать условие, например,

If Left(Cells(i,1),6)="Группа"

(или, если в один бокс нужно записать только слова, а в другой только числа, функцию IsNumeric), и, в зависимости от условия, заносить значение в первый или второй комбобокс.

GeorgeM
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 16.12.2004 (Чт) 15:01

Сообщение GeorgeM » 16.12.2004 (Чт) 15:39

А без цикла никак 5000 строк медленно будет?

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 16.12.2004 (Чт) 15:42

Боюсь, что никак. :cry:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.12.2004 (Чт) 15:46

Вариант второй. Сортируешь столбец, в первый Combo добавляешь последние N элементов (N найдешь), во второй Combo добавляешь все остальное.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 38

    TopList