Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление активных ячеек в ListBox (Макросы/Sub)
Добавление активных ячеек в ListBox
televnoy Дата: Пятница, 30.06.2017, 11:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

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

P.S.
В файле собраны темы к которым у меня вопросы: Добавление данных ячеек в ListBox, удаление строки в ListBox, Сумма ListBox
К сообщению приложен файл: 8737800.xls(48Kb)


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

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

Автор - televnoy
Дата добавления - 30.06.2017 в 11:03
Karataev Дата: Пятница, 30.06.2017, 11:07 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 857
Репутация: 321 ±
Замечаний: 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]


 
Ответить
Сообщение[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]

Автор - Karataev
Дата добавления - 30.06.2017 в 11:07
televnoy Дата: Пятница, 30.06.2017, 11:54 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

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


О-па! 0_o
 
Ответить
СообщениеKarataev, Спасибо огромнейшее =)

Автор - televnoy
Дата добавления - 30.06.2017 в 11:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление активных ячеек в ListBox (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!