|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
06.01.2009, 19:32 | #1 |
Регистрация: 27.12.2008
Сообщений: 7
|
Формирование ComboBox, VBA, Excel
Формирование ComboBox на основе данных на листе Excel. Только из данных 4 столбца. Начиная со второй строки. Количество строк неизвестно. Дублирование убирается.
ComboBox1.AddItem "не выбрано" ComboBox1.Value = "не выбрано" Dim i As Integer Dim n As Integer Dim s As Boolean s = False Row = 2 Do While ActiveWorkbook.Worksheets("База Данных").Cells(Row, 4) <> "" SH = ActiveWorkbook.Worksheets("База Данных").Cells(Row, 4) n = ComboBox1.ListCount For i = 1 To n ComboBox1.ListIndex = i If SH = ComboBox1.Value Then s = True End If Next If s = False Then ComboBox1.AddItem SH End If Loop Ругается на ComboBox1.ListIndex = i в цикле For ... Next пишет: Invalid property value Что не так делаю? Последний раз редактировалось Grusha; 07.01.2009 в 12:12. |
07.01.2009, 07:17 | #2 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Так подойдёт? См. пример
|
07.01.2009, 12:13 | #3 |
Регистрация: 27.12.2008
Сообщений: 7
|
Ваш пример работает, спасибо.
И все же интересно очень, что за ошибка у меня в коде? Подскажите, пожалуйста. Вроде бы все правильно написано. |
07.01.2009, 13:29 | #4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Посмотрите примеры заполнения полей на формах ввода у меня на сайте
(по ссылке - макросы и программы, содержащие формы для ввода и редактирования данных на листе Excel) Там множество примеров с заполнением Combobox Цитата:
Обратите внимание на выделенные строки: Код:
Ну или даже так: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 19.11.2011 в 00:17. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Excel VBA | fidot | Microsoft Office Excel | 1 | 28.12.2008 19:20 |
VBA Excel ComboBox | corsarlt | Microsoft Office Excel | 2 | 05.06.2008 23:50 |
Формирование Excel-документа через OLE-сервер с Unicode-символами | sergushkin | Microsoft Office Excel | 2 | 13.04.2008 23:04 |
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол | Askat | Общие вопросы Delphi | 0 | 18.07.2007 06:28 |
Формирование отчета в Excel из Delphi | Chals | Общие вопросы Delphi | 1 | 04.06.2007 19:25 |