Доброго времени суток! Есть флажок (элементы управления формы). Есть текст рядом. Нужно, чтобы при клике на флажок текст зачеркивался и соответственно, при повторном клике текст возвращался в исходное положение. Желательно все реализовать для флажка (элементы управления формы), не элементы ActiveX
Правый клик на флажке - Назначить макрос - ОК, в заготовку макроса вставьте
Код
With ActiveSheet.CheckBoxes(Application.Caller)
.TopLeftCell.Offset(1, 1).Font.Strikethrough = .Value = xlOn
End With
Будет меняться форматирование ячейки, которая расположена на одну правее и на одну ниже относительно ячейки, в которой расположен левый верхний угол фигуры-флажка (т.е. не самого квадратика, а прямоугольника, видимого в режиме конструктора).
Этот макрос может быть общим для многих флажков, для каждого будет меняться своя ячейка.
Казанский, конечно, при желании можно сломать любую хорошую вещь. и на каждый случай "защиту от дурака" придумать сложно. но, в этот раз, я не сильно старался.