Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заполнить ComboBox / 3 сообщений из 3, страница 1 из 1
16.12.2008, 20:06:52
    #35718321
sitih
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как заполнить ComboBox
Здравствуйте. Подскажите пожалуйста. Есть список данных на листе "БИ". Есть combobox на листе "Лист1". Список на листе "БИ" переодически дополняется. Нужно при открытии данного файла загрузить этот спмсок в Combobox на листе "Лист1" файл с кодом вложил, но что то ругается он на код. Плизззз.
...
Рейтинг: 0 / 0
17.12.2008, 11:20:52
    #35719290
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как заполнить ComboBox
Вот верный код:

Код: 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
18.12.2008, 13:32:31
    #35722220
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как заполнить ComboBox
Настенька,

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

Код: plaintext
Dim n As Long

А то вдруг у пользователя больше, чем 32536 ячеек
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заполнить ComboBox / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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