Флажок включает другие флажки

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

Флажок включает другие флажки (Макросы/Sub)

pabchek

Дата: Четверг, 17.12.2015, 08:46 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 931

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

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

Excel 2007

Всем здравствовать!
На график вывел несколько строк данных, которые включаются флажками. Также попытался реализовать чтобы все эти флажки включались с помощью одного флажка в ячейке С1. Сделал макрос. В общем то все работает, но понимаю, что реализация очень далека от оптимальной. Сам не VBA-писатель - кто-нибудь сможет показать как можно сделать красиво?

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

"Учиться, учиться и еще раз учиться!"
WM: R399923528092

Ответить

Саня

Дата: Четверг, 17.12.2015, 09:17 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

[vba]

Код

Sub Все_флажки2()
    [C2:C13] = [C1]
    ' правильнее так:
    ' Range("C2:C13").Value = Range("C1").Value

    '''    Range("D17:D28").Select
    '''    Selection.Copy
    '''    Range("C2").Select
    '''    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     '''        :=False, Transpose:=False
    '''    Range("D2").Select
    '''    Application.CutCopyMode = False
End Sub

[/vba]

Ответить

pabchek

Дата: Четверг, 17.12.2015, 10:00 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 931

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

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

Excel 2007

Саня, спасибо большое!
Да, сделал [vba]

Код

Sub Все_флажки2()
Range("C2:C13").Value = Range("C1").Value
End Sub

[/vba]
Работает отлично. Обнаружил глюк - первый раз когда нажимаешь флажок в ячейке С2 он также снимает или устанавливает все флажки. Потом проходит, знаете с чем может быть связано?