Я сам не знаю каким методом можно реализовать такую штуку. В идеале бы условным форматированием, но мне в голову не приходит такая возможность. По этому создаю тему в макросах так как в макросах это наверняка можно реализовать. Если условным форматированием можно то вариант примерно такой в ячейку пишем какое количество должно быть открыто и открывается в зависимости от циферки если 1то только не залитые столбцы. Если 2 то и не залитые и светлые, если 3 то раскрываются все три блока столбцов.
Если только макросами можно это решить тогда кнопочками 1,2,3 аналогично.
Спасибо.
Здравствуйте.
Я сам не знаю каким методом можно реализовать такую штуку. В идеале бы условным форматированием, но мне в голову не приходит такая возможность. По этому создаю тему в макросах так как в макросах это наверняка можно реализовать. Если условным форматированием можно то вариант примерно такой в ячейку пишем какое количество должно быть открыто и открывается в зависимости от циферки если 1то только не залитые столбцы. Если 2 то и не залитые и светлые, если 3 то раскрываются все три блока столбцов.
Если только макросами можно это решить тогда кнопочками 1,2,3 аналогично.
SLAVICK, Извините. Я пример прикреплял прикреплял да что-то он не прикрепился. Я то знаю правила. Почему он отвалился не пойму. ( Вот исправил.
SLAVICK, Извините. Я пример прикреплял прикреплял да что-то он не прикрепился. Я то знаю правила. Почему он отвалился не пойму. ( Вот исправил.koyaanisqatsi
Sub macro1() Dim r As Range, rF As Range, rH As Range Dim u&, u1& Set rF = [c7:am7] rF.EntireColumn.Hidden = False u = [b1] u1 = [b3] For Each r In rF If r.Interior.Color = u Xor r.Interior.Color = u1 Then If rH Is Nothing Then Set rH = r Else Set rH = Union(rH, r) End If Next rH.EntireColumn.Hidden = True End Sub
[/vba] Остальное в файле. ЗЫ На 2-м листе добавил скрытие отображение обычной группировкой - может подойдет
Вот пример для 1-й кнопки : [vba]
Код
Sub macro1() Dim r As Range, rF As Range, rH As Range Dim u&, u1& Set rF = [c7:am7] rF.EntireColumn.Hidden = False u = [b1] u1 = [b3] For Each r In rF If r.Interior.Color = u Xor r.Interior.Color = u1 Then If rH Is Nothing Then Set rH = r Else Set rH = Union(rH, r) End If Next rH.EntireColumn.Hidden = True End Sub
[/vba] Остальное в файле. ЗЫ На 2-м листе добавил скрытие отображение обычной группировкой - может подойдет SLAVICK
SLAVICK, 2 и 3 правильно работают 1 не правильно. кликая на 1 надо чтобы скрывалось поле залитое светлым и темным. все что не покрашено было бы развернуто. Попробую разобраться. Спасибо )
И в разных последовательностях не работают тоже (
SLAVICK, 2 и 3 правильно работают 1 не правильно. кликая на 1 надо чтобы скрывалось поле залитое светлым и темным. все что не покрашено было бы развернуто. Попробую разобраться. Спасибо )
И в разных последовательностях не работают тоже (koyaanisqatsi
Сообщение отредактировал koyaanisqatsi - Понедельник, 21.09.2015, 20:33