ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание ComboBox ("выпадающего списка")
11 сообщений из 11, страница 1 из 1
Создание ComboBox ("выпадающего списка")
    #36683502
Ярослав DaleYY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ярослав DaleYY
Гость
Добрый день

Я новичок в VBA поэтому прошу вашей помощи:
1. Подскажите подалуйста - как с помощью VBA создать ComboBox ?
Пробую вот так, но не работает:
- Set lstBox = Form.Designer.Controls.Add("Forms.ComboBox.1")
и так тоже нет:
- Set lstBox = Controls.Add("Forms.ComboBox.1")
Ошибка 424 - Object Required

Можно РАБОЧИЙ пример ?

2. Как удалить все ComboBox на листе или удалить ComboBox в конкретной ячейке ?


Буду очень признателен за быстрый ответ
...
Рейтинг: 0 / 0
11.06.2010, 17:40
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699273
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Ярослав DaleYY, добавить куда на форму или в документ, если в документ тоггда Адд
...
Рейтинг: 0 / 0
21.06.2010, 20:48
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699346
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Selection.InlineShapes.AddOLEControl ClassType:="Forms.ComboBox.1" 'на месте курсора вставить ...
...
Рейтинг: 0 / 0
21.06.2010, 22:09
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699354
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Selection.InlineShapes.AddOLEControl ClassType:="Forms.ComboBox.1" 'на месте курсора вставить ...
...
Рейтинг: 0 / 0
21.06.2010, 22:20
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699360
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Selection.InlineShapes.AddOLEControl ClassType:="Forms.ComboBox.1" 'на месте курсора вставить ...
...
Рейтинг: 0 / 0
21.06.2010, 22:26
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699620
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Ярослав DaleYYДобрый день

Я новичок в VBA поэтому прошу вашей помощи:
1. Подскажите подалуйста - как с помощью VBA создать ComboBox ?
Пробую вот так, но не работает:
- Set lstBox = Form.Designer.Controls.Add("Forms.ComboBox.1")
и так тоже нет:
- Set lstBox = Controls.Add("Forms.ComboBox.1")
Ошибка 424 - Object Required

Можно РАБОЧИЙ пример ?

2. Как удалить все ComboBox на листе или удалить ComboBox в конкретной ячейке ?


Буду очень признателен за быстрый ответ


Хоть и не страдаю реанимацией старых тем, но вот такой способ будет тоже корректным, и, мое мнение, более простым.
Код: plaintext
1.
2.
3.
4.
5.
6.
            Set Mytext = UserForm1.Controls.Add("forms.combobox.1")  ' местоположение элемента userform1
                    With Mytext
                    .Name = "Choise" & i  ' наименование созданного элемента, удобно чтобы отслеживать состояние контрола (своеобразная ссылка), и легко можно удалить контрол если он временный
                    .AutoSize = False: .Left =  300 :  .Top =  36 :   .Width =  40  ' у меня очень маленький комбобокс
                    .List = chois  ' это массив с элементами выбора
                    .Value = chois( 1 )  ' текущий видимый элемент
            End With
...
Рейтинг: 0 / 0
22.06.2010, 08:49
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699768
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shamanus, вообще простой способ, только на строке
.List = chois ' это массив с элементами выбора
ошибка 381
...
Рейтинг: 0 / 0
22.06.2010, 10:08
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699845
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Ципихович Эндрю,

А у Вас этот массив объявлен? А элементы в нем есть?
381 Invalid property-array index Недопустимый индекс массива свойств


Просто это кусок моего кода из рабочей программы. Там на создаваемый контрол приходилось вешать сразу массив элементов для выбора. Если у Вас другой источник данных (другой массив или rowsource), то эту часть кода надо заменить скажем на

Код: plaintext
                    .RowSource ="=A1:A10"  ' это массив с элементами выбора

тогда источником будет лист и ячейки с 1 до 10
...
Рейтинг: 0 / 0
22.06.2010, 10:37
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699870
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shamanus, всё понятно, самое интересное, что автор молчит
...
Рейтинг: 0 / 0
22.06.2010, 10:44
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36699887
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Ципихович ЭндрюShamanus, всё понятно, самое интересное, что автор молчит

автору нужно было это 11 дней назад и срочно. Думаю он или уже нашел решение или отказался от затеи, поэтому я и написал

ShamanusХоть и не страдаю реанимацией старых тем,

подразумевая, что решение уже не будет нужно автору.
Я ответил только с целью если кто то потом через поиск будет искать решение этой проблемы, то найдет его в этом топике.
...
Рейтинг: 0 / 0
22.06.2010, 10:49
| Ответить | Цитировать | Написать  
Создание ComboBox ("выпадающего списка")
    #36833188
worship
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
worship
Гость
ребято, прочитал и ничо не понял :(

у меня есть:

if <условие> then ... вот тут надо в заданной ячейке вставить комбобокс нужных размеров, с данными списка из другого листа и, самое главное, связать бокс с определённой ячейкой.

как это сделать?

спасибо.
...
Рейтинг: 0 / 0
07.09.2010, 08:08
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание ComboBox ("выпадающего списка")
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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