Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Скрыть все группировки с помощью макроса и переход на другой лист
 
Здравствуйте! Помогите, пожалуйста, с макросом. Необходимо при нажатии кнопки на Листе 2 скрыть всю группировку на Листе 1(то есть все категории, подкатегории и пр) и просто перейти на Лист 1.
 
Что-то слишком легко получилось:
Код
Sub скрыть_группировку()
    Sheets(1).Outline.ShowLevels RowLevels:=1
    Sheets(2).Activate
End Sub
С уважением,
Федор/Все_просто
 
Спасибо, но тут проблема в том, что нужно и все подкатегории скрыть, которые открыты. Т.е все подгруппы каждой группы при нажатии кнопки должны закрыться.
Изменено: max-energe - 2 Мар 2015 12:17:55
 
Код
Sub HideLevels()
    Dim lLevCnt As Long
    Dim wssh As Worksheet
    Set wssh = Sheets(1)
    On Error Resume Next
    For lLevCnt = 8 To 1 Step -1
        wssh.Outline.ShowLevels lLevCnt
    Next
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо огромное!
Страницы: 1
Читают тему (гостей: 1)