Добавление активных ячеек в ListBox

Вход

Регистрация

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

= Мир MS Excel/Добавление активных ячеек в ListBox - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление активных ячеек в ListBox (Макросы/Sub)

Добавление активных ячеек в ListBox

televnoy

Дата: Пятница, 30.06.2017, 11:03 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Доброго времени суток, уважаемые форумчане

.
В общем задача такая. Имеется набор данных в ячейках (разные столбцы(в разных файлах), разные строки), их требуется добавить в ListBox. По идее алгоритм такой выделяется либо одна ячейка, либо диапазон яеек типо (B5:B10), и при нажатии кнопки это данные вносяться в список ListBox (либо добавляется к существующему.

P.S.
В файле собраны темы к которым у меня вопросы: Добавление данных ячеек в ListBox, удаление строки в ListBox, Сумма ListBox

К сообщению приложен файл: 8737800.xls (47.5 Kb)

О-па! 0_o

Ответить

Karataev

Дата: Пятница, 30.06.2017, 11:07 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

[vba]

Код

Private Sub CommandButton1_Click()
    Dim cel As Range
    For Each cel In Selection.Cells
        Me.ListBox1.AddItem cel.Value
    Next cel
End Sub

[/vba]

Ответить

televnoy

Дата: Пятница, 30.06.2017, 11:54 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Karataev, Спасибо огромнейшее =)

О-па! 0_o

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление активных ячеек в ListBox (Макросы/Sub)

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