Добавить в листбокс циклом данные

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Добавить в листбокс циклом данные (Макросы/Sub)

ant6729

Дата: Среда, 06.06.2018, 15:48 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем привет, тут я как-то не бум-бум

В приложении файл, я хочу понять, как добавить весь список цифр в первой колонке в комбобокс при запуске формы.
Кто-нибудь может препарировать мое творчество?

К сообщению приложен файл: AddItem.xlsm (17.8 Kb)

Сообщение отредактировал ant6729 - Среда, 06.06.2018, 15:49

Ответить

boa

Дата: Среда, 06.06.2018, 16:00 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

Как в листбоксе так и в комбобоксе источник данных задается параметром RowSourse
зачем цикл?

К сообщению приложен файл: 1170911.jpg (81.7 Kb)

Сообщение отредактировал boa - Среда, 06.06.2018, 16:09

Ответить

ant6729

Дата: Среда, 06.06.2018, 16:07 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Садись, пять.

Потому что границы роусорс постоянно меняются. Если их станет больше - в сорс добавится только то, что было указано до этого
Или я не прав?

Ответить

boa

Дата: Среда, 06.06.2018, 16:14 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

ant6729,
Соображаешь!
ну тогда добавь в код формы
[vba]

Код

Private Sub UserForm_Initialize()
Set newRange = Sheets("Лист1").Range("определи свой новый диапазон")
Me.ListBox1.RowSource = newRange.Address(0, 0, xlA1)
End Sub

[/vba]

Сообщение отредактировал boa - Среда, 06.06.2018, 16:25

Ответить

_Boroda_

Дата: Среда, 06.06.2018, 16:17 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16901

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub UserForm_Activate()
ListBox1.List = Sheets("Лист1").Range("A2:A" & Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

[/vba]

К сообщению приложен файл: AddItem_1.xlsm (17.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ant6729

Дата: Среда, 06.06.2018, 16:24 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем спасибо!

У меня что-то такое получилось, посмотрю дома

[vba]

Код

Private Sub UserForm_Initialize()

Dim rRange As Range
lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
Set rRange = Worksheets("Лист1").Range("A1:A" & lr)
ListBox1.RowSource = rRange.Address

End Sub

[/vba]

Ответить

Добавить в листбокс циклом данные (Макросы/Sub)

Страница 1 из 1
1