Выбор всех флажков

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

Выбор всех флажков (Формулы/Formulas)

Выбор всех флажков

Asretyq

Дата: Среда, 26.04.2017, 14:06 | Сообщение № 1

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

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

Сообщений: 200

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

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

Excel 2013

Как сделать при выборе одного флажка выбираются остальные, а другие независимы. То есть я выбираю флажок 1, то включаются другие флажки, выключаю флажок 1 и другие тоже выключаются. А остальные сами по себе

К сообщению приложен файл: _Microsoft_Exce.xlsx (12.4 Kb)

Ответить

Udik

Дата: Среда, 26.04.2017, 15:30 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

Можно таким вот извратным способом. Связываем чекбокс с ячейкой, рядом формула тупо дублирует значение связанной ячейки. И в модуле листа отслеживаем событие Calculate
[vba]

Код

Private Sub Worksheet_Calculate()

Application.EnableEvents = False
ActiveSheet.CheckBoxes = ActiveSheet.Cells(1, 10).Value
Application.EnableEvents = True

End Sub

[/vba]
[p.s.]Я не знаю как по-другому отследить смену флажка на листе.

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

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Среда, 26.04.2017, 15:33

Ответить

sboy

Дата: Среда, 26.04.2017, 15:35 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Еще вариант
[vba]

Код

Sub Флажок1_Щелчок()
Application.ScreenUpdating = False
    Set aC = ActiveCell
    ActiveSheet.Shapes(1).Select
    onoff = Selection.Value
        For x = 2 To ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(x).Select
            Selection.Value = onoff
        Next x
    aC.Select
Application.ScreenUpdating = True
End Sub

[/vba]
[p.s.]правда топорный с Селектами, пока только учусь писать коды для элементов управления на листе