Снять выделения с элемента формы на определенных листах

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Снять выделения с элемента формы на определенных листах (Макросы/Sub)

ASWP

Дата: Воскресенье, 02.09.2018, 12:06 | Сообщение № 1

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

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

Сообщений: 183

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

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

Excel 2007

Добрый день. Попытался сделать макрос который снимает отметку с элемента формы, но он просматривает все листы, а мне нужно чтобы он работал только со второго листа и до определенного(например четвертого), как это сделать?

К сообщению приложен файл: svso.xlsm (23.2 Kb)

я знаю что ничего не знаю, но другие не знают и этого

Ответить

_Boroda_

Дата: Воскресенье, 02.09.2018, 12:37 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
    For i = 2 To 4
        With ThisWorkbook.Sheets(i)
            .Unprotect
            For j = 1 To 3
                .Shapes("Option Button " & j).ControlFormat.Value = xlOff
            Next j
            .Protect
        End With
    Next i
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ASWP

Дата: Воскресенье, 02.09.2018, 13:11 | Сообщение № 3

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

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

Сообщений: 183

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

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

Excel 2007

_Boroda_, Да, все работает. А если мне нужно после выполнения макроса перейти на определенный лист, то в конце нужно добавить это ,правильно?
[vba]

Код

Sheets("Лист2").Activate

[/vba]

я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Воскресенье, 02.09.2018, 13:13

Ответить

_Boroda_

Дата: Воскресенье, 02.09.2018, 13:28 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Да

Ответить

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