Страницы: 1
RSS
Флажок CheckBox
 
Доброго времени суток! Есть флажок (элементы управления формы). Есть текст рядом. Нужно, чтобы при клике на флажок текст зачеркивался и соответственно, при повторном клике текст возвращался в исходное положение. Желательно все реализовать для флажка (элементы управления формы), не элементы ActiveX

Изменено: bookman - 14.01.2013 21:33:46
 
Правый клик на флажке - Назначить макрос - ОК, в заготовку макроса вставьте
Код
With ActiveSheet.CheckBoxes(Application.Caller)
    .TopLeftCell.Offset(1, 1).Font.Strikethrough = .Value = xlOn
End With
Будет меняться форматирование ячейки, которая расположена на одну правее и на одну ниже относительно ячейки, в которой расположен левый верхний угол фигуры-флажка (т.е. не самого квадратика, а прямоугольника, видимого в режиме конструктора).

Этот макрос может быть общим для многих флажков, для каждого будет меняться своя ячейка.
 
Казанский, конечно, при желании можно сломать любую хорошую вещь.  :D
и на каждый случай "защиту от дурака" придумать сложно.
но, в этот раз, я не сильно старался.  :oops:
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Уффф...
 
RAN,
Через УФ супер (+++)
Изменено: R Dmitry - 15.01.2013 01:17:48
Спасибо
 
Друзья, спасибо! А как сделать так, чтобы при зачеркивании менялся цвет текста, скажем на серый цвет?
 
если примера от RAN, подходит то в УФ меняйте цвет шрифта.
RAN, можно было и просто =$A$2 формулу записать без двойного отрицания.  :)
Изменено: V - 15.01.2013 14:33:07
 
Код
With ActiveSheet.CheckBoxes(Application.Caller)
    .TopLeftCell.Offset(1, 1).Font.Strikethrough = .Value = xlOn
End With


Мне вот этот вариант подошел. У Ran я не смог продублировать флажок на другие ячейки. Вот как в этот код добавить замену цвета?
 
Вариант..
 
V, я же не формулист  :)
 
Почему-то в 2007 отсутствие двойного отрицания -не проходит  :)
 
странно...
а "=1" в конце тоже убрали?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Понял.Не вник :)
 
Можно было написать
=$A$2 = ИСТИНА, но поленился, написал =--$A$2 = 1
А как оказывается, и этого не надо было. ;)
 
Всех благодарю! Понравились варианты Казанского и Маугли!
Страницы: 1
Читают тему
Наверх