Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автоматическое разворачивание свернутой группировкой области при переходе с гиперссылки
 
Приветствую форумчан.
Есть ячейки с гиперссылками. Кликая на них меня перекидывает на ячейки, которые принадлежат области с группировкой. Т.е. скрыты под шапкой группировки. Нужно, чтоб при переходе на ячейку с гиперссылки раскрывалась область группировки
Заметка: адреса ячеек/листы в прикрепленном примере условные. В рабочем документе больше 1 гиперссылки и адреса другие.
Изменено: deinstalation - 21 Фев 2017 10:36:26
 
В модуль листа:
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Range(Target.Name).Rows.OutlineLevel > 1 Then _
        Range(Target.Name).Rows.ShowDetail = -1
End Sub
Я сам - дурнее всякого примера! ...
 
вставил в модуль листа так: ПКМ на лист - Insert - module. Далее вставляю скопированный код, но после клика по гиперссылке не раскрывает свернутую область. Может я неправильно вставил код? макросы всключены
 
Не надо вставлять модули. Для каждого листа и так есть свой модуль.
Я сам - дурнее всякого примера! ...
 
Кнопка цитирования не для ответа [МОДЕРАТОР]

kuklp, код отлично работает, а вот если ячейку с гиперссылкой заменить на кнопку VB(из элементов управления) как сделать так что бы при нажатии раскрылся именно тот диапазон которому назначена кнопка, и сворачивались остальные ??
Изменено: Jystas - 15 Сен 2017 19:22:40
Страницы: 1
Читают тему (гостей: 1)
Наверх