Заполнение таблицы единицами если отмечены checkbox'ы в UserForm

RSS

Заполнение таблицы единицами если отмечены checkbox'ы в UserForm, Внесение данных в таблицу Data Tabel из UserForm'ы с отмеченных checkbox'ов

Maksim Semenov

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

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

30.09.2022 18:05:13

Доброго дня!

Помогите пожалуйста с решением данной задачи. Либо ткните носом в соответствующую ветку форума. Есть таблица в новую строчку которой с формы необходимо внести единицы "1" если отмечены соответствующие чекбоксы после нажатия на кнопку сохранения.

Огромное спасибо заранее за помощь!!!

Прикрепленные файлы

Book1.xlsm (19.65 КБ)

Изменено: Maksim Semenov - 30.09.2022 18:05:48

Msi2102

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

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

30.09.2022 19:05:42

Попробуйте так:

Код
Private Sub CommandButton1_Click() For n = 1 To 4 Cells(ActiveCell.Row, n + 4) = IIf(Me.Controls("CheckBox" & n) = True, 1, 0) Next End Sub

Прикрепленные файлы

Book1.xlsm (22.15 КБ)

Maksim Semenov Пользователь Сообщений: 10 Регистрация: 29.08.2022	#3 03.10.2022 09:12:16 Большое спасибо!