Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Динамическое изменение RowSource для ComboBox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Динамическое изменение RowSource для ComboBox (Макросы/Sub)
Динамическое изменение RowSource для ComboBox
oleg60 Дата: Среда, 24.08.2016, 17:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите, пожалуйста: в свойстве RowSource CombmBox прописан диапазон A2:A7. Можно ли значение этого свойства менять динамически при добавлении новых данных в А8:А...(записей в CombmBox) в столбце A?
К сообщению приложен файл: 2928001.xlsm(21Kb)


Сообщение отредактировал oleg60 - Среда, 24.08.2016, 17:15
 
Ответить
СообщениеПодскажите, пожалуйста: в свойстве RowSource CombmBox прописан диапазон A2:A7. Можно ли значение этого свойства менять динамически при добавлении новых данных в А8:А...(записей в CombmBox) в столбце A?

Автор - oleg60
Дата добавления - 24.08.2016 в 17:13
sboy Дата: Среда, 24.08.2016, 17:29 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
[vba]
Код
Private Sub UserForm_Initialize()
lr = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
t = "A2:A" & lr
ComboBox1.RowSource = t
End Sub
[/vba]


Сообщение отредактировал sboy - Среда, 24.08.2016, 17:44
 
Ответить
СообщениеДобрый день.
[vba]
Код
Private Sub UserForm_Initialize()
lr = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
t = "A2:A" & lr
ComboBox1.RowSource = t
End Sub
[/vba]

Автор - sboy
Дата добавления - 24.08.2016 в 17:29
KuklP Дата: Среда, 24.08.2016, 18:11 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Вариант:
[vba]
Код
Private Sub UserForm_Initialize()
    ComboBox1.List = Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub
[/vba]
К сообщению приложен файл: _2928001.xlsm(19Kb)


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Среда, 24.08.2016, 18:13
 
Ответить
СообщениеВариант:
[vba]
Код
Private Sub UserForm_Initialize()
    ComboBox1.List = Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub
[/vba]

Автор - KuklP
Дата добавления - 24.08.2016 в 18:11
oleg60 Дата: Четверг, 25.08.2016, 08:23 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, большое, за помощь, оба варианта отлично работают.
 
Ответить
СообщениеСпасибо, большое, за помощь, оба варианта отлично работают.

Автор - oleg60
Дата добавления - 25.08.2016 в 08:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Динамическое изменение RowSource для ComboBox (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!