Страницы: 1
RSS
Макросом развертывать/схлопывать группы столбцов по отдельности
 
Доброго времени суток.

Есть файл, в нем 4 группы сгруппированных столбцов.

Подскажите, пожалуйста, можно ли макросами сделать следующее:
1) при выполнении 1 макроса развертываются столбцы 1 группы;
2) при выполнении 2 макроса развертываются столбцы 2 группы;
и так для 4 групп.
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
 
flower, а вы пробовали записать макрос?
Не бойтесь совершенства. Вам его не достичь.
 
Mershik,пробовала через команду на вкладке данные "Отобразить детали". Увы не работает такой прием( Макрос оказался пустой.
Изменено: flower - 16.08.2019 12:54:06
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
 
flower, а количество сгруппированных столбцов всегда одинаковое?
Не бойтесь совершенства. Вам его не достичь.
 
Это может быть один макрос. Как макросу понять, что его запустили?
 
Mershik,нет, именно так, как в файле с примером
vikttur,в том то и дело, нужно раскрывать по отдельности, если разом, то это настроено...
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
 
Вы вопрос не поняли.
Как Вы собираетесь запускать макросы? Если для каждого кнопка - то зачем макрос? Группы можно сворачивать/разворачивать и по отдельности
 
vikttur,для удобства,  сейчас так и делаю, но таблица большая, приходится часто переключаться между группами, думала, это можно реализовать, подожду, может, кто знает...
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
 
Нормально нужно вопрос ставить, тогда и ответ быстрее поступает :)
Если снять галку "Итоги в столбцах справа от данных" (закладка Данные-Структура группировки),  то работать с группами удобнее. Может, этого будет достаточно?

Если нет, разместите перед группами 4 кнопки с похожими строками кода:
Код
Sub GroupColumns()
    Columns("P:Z").Hidden = Not Columns("P:P").Hidden
End Sub

Можно чуть по другому: добавить скрытие других групп (Hidden =True), но открывать нужную (Hidden =False)

А вот с одним общим макросом:
Код
Sub Group1(): Call GroupColumns(1): End Sub
Sub Group2(): Call GroupColumns(2): End Sub
Sub Group3(): Call GroupColumns(3): End Sub
Sub Group4(): Call GroupColumns(4): End Sub

Sub GroupColumns(lGroup As Long)
    Select Case lGrop
    Case 1: Columns("P:Z").Hidden = Not Columns("P:P").Hidden
    Case 2: ' Columns...
    Case 1: ' Columns...
    Case 1: ' Columns...
    End Select
End Sub
 
vikttur,Спасибо! Очень помогли!) Но, как нужно было сформулировать вопрос, подскажите?)
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
 
Так, как дополнили последующими сообщениями.
 
vikttur,добавила 4 кнопочки на панель быстрого доступа, очень удобно получилось, все рядом, теперь не надо "елозить" мышкой по листу". Спасибо!)
Если не спросить — никогда не узнаешь, если знаешь — нужно лишь спросить.
Страницы: 1
Наверх