Работа с множественным выбором значений в ListBox VBA

Пользователь

Сообщений: 340 Регистрация: 01.01.1970

06.04.2012 09:36:48

Доброго дня!

Помогите, пожалуйста, с решением неольшого вопроса.

Есть UserForm с ListBox1. ListBox1 содержит 10 значений (например, фамилии сотрудников). Разрешен выбор нескольких значений (MultiSelect).

Если выбрано одно значение, поместить его в ячейку листа получилось: ActiveCell.Value = ListBox1.List(ListBox1.ListIndex)

Но вот никак не получается поместить в одну ячейку результат выбора нескольких значений ListBox.

Решение думаю очень простое, но ни как не могу найти ответа на такой вроде несложный вопрос.

Буду очень признателен за помощь.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 06.04.2012 09:52:10 Здравствуйте! Циклом перебираем строки в ListBox, если выделена - сцепить в ячейку с существующими там данными.

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#3 06.04.2012 10:04:11 Попробуйте так, см файл Прикрепленные файлы post_324584.xls (37 КБ) Редко но метко ...

Andrew

Пользователь

Сообщений: 340 Регистрация: 01.01.1970

06.04.2012 10:12:49

Только Юрий мне сказал про Select, сразу удалось найти пример:
http://www.planetaexcel.ru/forum.php?thread_id=12678
For n = 1 To Me.ListBox1.ListCount
If Me.ListBox1.selected(n) = True Then msgbox Me.ListBox1.List(n)
Next n

Спасибо!

GIG_ant, тоже большое спасибо за помощь - то, что я и искал.

GIG_ant

Пользователь

Сообщений: 3102 Регистрация: 24.12.2012

06.04.2012 10:18:40

Обратите внимание что стандартно нумерация элементов в списке начинается с нуля, поэтому в таком варианте как у вас:
For n = 1 To Me.ListBox1.ListCount
первый элемент списка не проверяется и в конце цикла выдаст ошибку!
Посмотрите как этот цикл реализован у меня.

Редко но метко ...

Andrew Пользователь Сообщений: 340 Регистрация: 01.01.1970	#6 06.04.2012 11:27:21 GIG_ant, да я именно ваш вариант и взял в работу :)

Читают тему