ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заполнить ComboBox
3 сообщений из 3, страница 1 из 1
как заполнить ComboBox
    #35718321
sitih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sitih
Гость
Здравствуйте. Подскажите пожалуйста. Есть список данных на листе "БИ". Есть combobox на листе "Лист1". Список на листе "БИ" переодически дополняется. Нужно при открытии данного файла загрузить этот спмсок в Combobox на листе "Лист1" файл с кодом вложил, но что то ругается он на код. Плизззз.
...
Рейтинг: 0 / 0
16.12.2008, 20:06:52
| Ответить | Цитировать | Написать  
как заполнить ComboBox
    #35719290
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Вот верный код:

Код: plaintext
1.
2.
3.
4.
5.
Sheets("БИ").Activate ' загрузка данных
Dim Диапазон As String
Dim n As Integer
n = Application.CountA(Range("A:A"))
Диапазон = "A1:A" & CStr(n +  1 )
Sheets("Лист1").ComboBox1.ListFillRange = "БИ!" & Диапазон

У combobox на листе Excel нет свойства rowsource, есть ListFillRange.
...
Рейтинг: 0 / 0
17.12.2008, 11:20:52
| Ответить | Цитировать | Написать  
как заполнить ComboBox
    #35722220
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
Настенька,

В вашем коде переменную n лучше определять не как Integer, а как Long

Код: plaintext
Dim n As Long

А то вдруг у пользователя больше, чем 32536 ячеек
...
Рейтинг: 0 / 0
18.12.2008, 13:32:31
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заполнить ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35718321&tid=2179984]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 188ms
total:  466ms
созд. / загр.: 466ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]