Снять все Активные Checkbox

Homavi Пользователь Сообщений: 333 Регистрация: 14.11.2014	#1 17.02.2018 14:53:15 на листе есть чек боксы Необходимо чтобы макрос снимал все активные чек боксы Прикрепленные файлы checkbox_clean.xlsx (18.22 КБ)

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

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

17.02.2018 15:00:44

Код
Sub bb() Dim x As OLEObject For Each x In ActiveSheet.OLEObjects If TypeOf x.Object Is msForms.CheckBox Then x.Object.Value = False Next End Sub

Изменено: Казанский - 17.02.2018 15:05:08

Homavi Пользователь Сообщений: 333 Регистрация: 14.11.2014	#3 17.02.2018 15:35:49 Казанский, спасибо все работает