заполняем ComboBox из таблицы с первой записи по последнюю

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполняем ComboBox из таблицы с первой записи по последнюю (Макросы/Sub)

Paulus

Дата: Пятница, 29.08.2014, 18:28 | Сообщение № 1

Группа: Гости

Как заполнить ComboBox из таблицы с первой записи по последнюю, не дальше. Нужно что бы в ComboBox писалась вручную новая информация, после нажатия на кнопку, эта информация добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox. Как это сделать?

Ответить

Pelena

Дата: Пятница, 29.08.2014, 18:55 | Сообщение № 2

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

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

Сообщений: 19197

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

Замечаний: ±

Excel 365 & Mac Excel

Не это ищете?
Если не угадала, прикладывайте файл с примером в соответствии с Правилами форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Paulus

Дата: Пятница, 29.08.2014, 19:41 | Сообщение № 3

Группа: Гости

Почти, нужно только, что бы поле со списком было в UserForm, а не в таблице.

Ответить

Gustav

Дата: Суббота, 30.08.2014, 17:26 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 2757

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

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

начинал с Excel 4.0, видел 2.1

[vba]

Код

Private Sub UserForm_Initialize()
       Dim a As Variant
       a = Worksheets(1).Range("A1:A10")
       ComboBox1.List = a
End Sub

[/vba]
или даже так:
[vba]

Код

Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets(1).Range("A1:A10").Value
End Sub

[/vba]

Цитата Paulus, 29.08.2014 в 18:28, в сообщении № 1

с первой записи по последнюю, не дальше... новая информация... добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox

А с учетом этого - как-то так:
[vba]

Код

Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets(1).Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
End Sub

[/vba]

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Воскресенье, 31.08.2014, 14:56

Ответить

combat

Дата: Четверг, 15.10.2015, 21:37 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 50

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

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

Excel 2010

Использовал Ваш код, работает если активен лист 1, но если активен др. лист, то нет, как избежать, данные через форму необходимо заносить допустим с листа 2 в лист 1,
основной лист 1, и он все время активен

Корректный перенос текста по строкам
вот отсюда все пошло

Сообщение отредактировал combat - Четверг, 15.10.2015, 21:42

Ответить

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