Nikitos79
Дата: Понедельник, 22.08.2016, 22:13 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
Группированы строки с 1 по 9, с 11 по 19, с 21 по 29. На 10, 20, 30 есть надписи с гиперссылкой на первые строки, то есть на 1, 11 и 21. Возможно ли сделать так, чтобы при нажатии на гиперссылку группированные строки раскрывались сами при переходе.
Группированы строки с 1 по 9, с 11 по 19, с 21 по 29. На 10, 20, 30 есть надписи с гиперссылкой на первые строки, то есть на 1, 11 и 21. Возможно ли сделать так, чтобы при нажатии на гиперссылку группированные строки раскрывались сами при переходе. Nikitos79
Сообщение отредактировал 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация:
127
±
Замечаний:
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]
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
Много чего не знаю!!!!
Сообщение отредактировал 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