Доброго времени суток уважаемые гуру excel . Столкнулся с такой проблемой, в книге 7 флажков и 2 кнопки "вкл" "выкл" (все созданы через элементы управления). В созданиях макроса слабо разбираюсь, потому прошу помощи у вас. Как сделать что бы кнопка "вкл" включала флажки, кнопка "выкл" выключала флажки. За ранее спасибо за помощь!
Доброго времени суток уважаемые гуру excel . Столкнулся с такой проблемой, в книге 7 флажков и 2 кнопки "вкл" "выкл" (все созданы через элементы управления). В созданиях макроса слабо разбираюсь, потому прошу помощи у вас. Как сделать что бы кнопка "вкл" включала флажки, кнопка "выкл" выключала флажки. За ранее спасибо за помощь!vitia88
Sub Da() For Each c_ In ActiveSheet.CheckBoxes c_.Value = True Next End Sub Sub Net() For Each c_ In ActiveSheet.CheckBoxes c_.Value = False Next End Sub
[/vba]
Так нужно? [vba]
Код
Sub Da() For Each c_ In ActiveSheet.CheckBoxes c_.Value = True Next End Sub Sub Net() For Each c_ In ActiveSheet.CheckBoxes c_.Value = False Next End Sub
Спасибо за оперативный ответ! А можно ли как кто кнопки привязать к конкретным флажкам? Потому как на листе будут располагаться другие флажки, и за их включение выключение будут отвечать другие кнопки
Спасибо за оперативный ответ! А можно ли как кто кнопки привязать к конкретным флажкам? Потому как на листе будут располагаться другие флажки, и за их включение выключение будут отвечать другие кнопкиvitia88
Можно. По названиям, по положению, по привязке к ячейкам, по названию или положению нажатой кнопки, по положению спутников NASA, по последней инструкции ВЦСПС, ...
[vba]
Код
Sub Da() lf0_ = Cells(1, 1).Left 'лев. граница ячейки А1 lf1_ = Cells(1, 2).Left 'лев. граница ячейки В1 For Each c_ In ActiveSheet.CheckBoxes lfc_ = c_.Left If lfc_ >= lf0_ And lfc_ <= lf1_ Then c_.Value = True End If Next End Sub Sub Net() lf0_ = Cells(1, 1).Left lf1_ = Cells(1, 2).Left For Each c_ In ActiveSheet.CheckBoxes lfc_ = c_.Left If lfc_ >= lf0_ And lfc_ <= lf1_ Then c_.Value = False End If Next End Sub
[/vba]
Можно. По названиям, по положению, по привязке к ячейкам, по названию или положению нажатой кнопки, по положению спутников NASA, по последней инструкции ВЦСПС, ...
[vba]
Код
Sub Da() lf0_ = Cells(1, 1).Left 'лев. граница ячейки А1 lf1_ = Cells(1, 2).Left 'лев. граница ячейки В1 For Each c_ In ActiveSheet.CheckBoxes lfc_ = c_.Left If lfc_ >= lf0_ And lfc_ <= lf1_ Then c_.Value = True End If Next End Sub Sub Net() lf0_ = Cells(1, 1).Left lf1_ = Cells(1, 2).Left For Each c_ In ActiveSheet.CheckBoxes lfc_ = c_.Left If lfc_ >= lf0_ And lfc_ <= lf1_ Then c_.Value = False End If Next End Sub