Заполнение ListBox и Combobox - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день уважаемые специалисты. Тема заполнения ListBox и Combobox наверное уже изъезжена вдоль и поперек. Однако, когда занимаешься программированием не регулярно, а по мере необходимости, то сталкиваешься с моментами, ответы на которые не всегда есть в книгах и на форумах. Один из таких моментов это не возможность вставить из диапазона список их одного значения, т.е например, иногда бывает, что в листбокс нужно передать значение, соответствующее одной строке:
Естественно написано упрощенно и вместо "A1:A2" будет поставляться диапазон по определенному условию из разных частей книги, который может содержать как 50, так и одну строку. Вопрос как это можно обойти. Спасибо.

Решение задачи: «Заполнение ListBox и Combobox»

textual
Листинг программы
For Each s In Worksheets("Лист1").Range("A1:A1")
ListBox1.AddItem s.Value
Next

Оцени полезность:

13   голосов , оценка 3.923 из 5