Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Раскрытие группированных строк при нажатии на гиперссылку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Раскрытие группированных строк при нажатии на гиперссылку (Формулы/Formulas)
Раскрытие группированных строк при нажатии на гиперссылку
Nikitos79 Дата: Понедельник, 22.08.2016, 22:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Группированы строки с 1 по 9, с 11 по 19, с 21 по 29. На 10, 20, 30 есть надписи с гиперссылкой на первые строки, то есть на 1, 11 и 21. Возможно ли сделать так, чтобы при нажатии на гиперссылку группированные строки раскрывались сами при переходе.
К сообщению приложен файл: 5555555555555.xlsx(9Kb)


Сообщение отредактировал Nikitos79 - Понедельник, 22.08.2016, 22:15
 
Ответить
СообщениеГруппированы строки с 1 по 9, с 11 по 19, с 21 по 29. На 10, 20, 30 есть надписи с гиперссылкой на первые строки, то есть на 1, 11 и 21. Возможно ли сделать так, чтобы при нажатии на гиперссылку группированные строки раскрывались сами при переходе.

Автор - Nikitos79
Дата добавления - 22.08.2016 в 22:13
Roman777 Дата: Вторник, 23.08.2016, 11:41 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 780
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Nikitos79,
как Вариант:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> Cells(10, 1).Address And Target.Address <> Cells(20, 1).Address _
And Target.Address <> Cells(30, 1).Address Then Exit Sub
i1& = Target.Row
i2& = Selection.Row
'MsgBox i1 & " " & i2
Range(Rows(i1-1), Rows(i2)).Hidden = False

End Sub
[/vba]
А можно даже так. Тогда и скрываться будет по нажатию на ту же ячейку с гиперссылкой:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> Cells(10, 1).Address And Target.Address <> Cells(20, 1).Address _
And Target.Address <> Cells(30, 1).Address Then Exit Sub
i1& = Target.Row
i2& = Selection.Row
'MsgBox i1 & " " & i2
Range(Rows(i1 - 1), Rows(i2)).Hidden = Not Range(Rows(i1-1), Rows(i2)).Hidden

End Sub
[/vba]
К сообщению приложен файл: 5555555555555-1.xls(34Kb)


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Вторник, 23.08.2016, 11:51
 
Ответить
СообщениеNikitos79,
как Вариант:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> Cells(10, 1).Address And Target.Address <> Cells(20, 1).Address _
And Target.Address <> Cells(30, 1).Address Then Exit Sub
i1& = Target.Row
i2& = Selection.Row
'MsgBox i1 & " " & i2
Range(Rows(i1-1), Rows(i2)).Hidden = False

End Sub
[/vba]
А можно даже так. Тогда и скрываться будет по нажатию на ту же ячейку с гиперссылкой:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> Cells(10, 1).Address And Target.Address <> Cells(20, 1).Address _
And Target.Address <> Cells(30, 1).Address Then Exit Sub
i1& = Target.Row
i2& = Selection.Row
'MsgBox i1 & " " & i2
Range(Rows(i1 - 1), Rows(i2)).Hidden = Not Range(Rows(i1-1), Rows(i2)).Hidden

End Sub
[/vba]

Автор - Roman777
Дата добавления - 23.08.2016 в 11:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Раскрытие группированных строк при нажатии на гиперссылку (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!