Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2013, 15:57   #1
Number_30
Пользователь
 
Регистрация: 30.01.2013
Сообщений: 15
По умолчанию Таблица с чекбоксом в userform

Здравствуйте!

Есть задача - необходимо вытянуть в userform данные из Лист 1 (A1:D300) в табличном виде и привязать к этой таблице чекбоксы, с возможностью выбрать один или несколько строк чекбоксом и сохранить выбранные строки в Лист 2.

Был вариант с использованием label-ов, но строк уже 300 и будет другая таблица с 700 строк. и копировать строку 700 раз не вариант. Копировать по несколько строк подряд тоже не вариант - код сбивается.

Кто нибудь, пожалуйста, может помочь с вопросом?
Number_30 вне форума Ответить с цитированием
Старый 04.02.2013, 16:35   #2
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 776
По умолчанию

Number_30, элемент управления ListBox вам не подходит для этой цели? В нём можно использовать CheckBoxы.
Скрипт вне форума Ответить с цитированием
Старый 04.02.2013, 17:51   #3
Number_30
Пользователь
 
Регистрация: 30.01.2013
Сообщений: 15
По умолчанию

Спасибо, с листбоксом разобрался почти, но вот вторая часть вопроса - копировать только отмеченные чекбоксом строки на новый лист?
Number_30 вне форума Ответить с цитированием
Старый 04.02.2013, 17:57   #4
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 776
По умолчанию

Код показывает принцип:
Код:
Private Sub CommandButton2_Click()
    
    Dim i As Long
    
    'Порядковый номер первой строки в ListBox ноль.
    For i = 0 To Me.ListBox1.ListCount - 1 Step 1
        'Выводим на монитор результат. Если "True", значит
            'флажок стоит.
        MsgBox Me.ListBox1.Selected(i)
    Next i
    
End Sub
Скрипт вне форума Ответить с цитированием
Старый 06.02.2013, 09:22   #5
Number_30
Пользователь
 
Регистрация: 30.01.2013
Сообщений: 15
По умолчанию

Спасибо большое, разобрался!
Number_30 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа в UserForm Александра С. Microsoft Office Word 0 14.03.2012 21:55
userform 0creator0 Microsoft Office Excel 0 07.12.2011 22:41
userform alegl Помощь студентам 1 16.12.2010 00:58
UserForm i777 Microsoft Office Excel 2 17.11.2010 02:04
"Вопрос при выходе" регулируется чекбоксом.... как? Человек_Борща Общие вопросы Delphi 3 17.02.2010 23:35