Как перейти по гиперссылке на скрытый лист в Excel?

Если у вас есть книга с несколькими листами и вы хотите использовать гиперссылки на главном листе для перехода к скрытым листам, вы заметите, что гиперссылки становятся неактивными после того, как листы скрыты. Чтобы решить эту проблему, вы можете использовать код VBA, чтобы обеспечить автоматическое открытие соответствующего скрытого листа при нажатии на гиперссылку. В этой статье представлены пошаговые инструкции для реализации этой функциональности, а также предложена возможность снова скрыть лист после возвращения на главный лист.

Переход по гиперссылке для открытия скрытого листа с помощью кода VBA

Переход по гиперссылке для открытия скрытого листа, а затем его повторное скрытие с помощью кода VBA

Переход по гиперссылке для открытия скрытого листа с помощью кода VBA

Следующий код VBA может помочь вам открыть скрытый лист при нажатии на соответствующую гиперссылку, выполните следующие действия:

1. Щелкните правой кнопкой мыши ярлык листа, по которому вы хотите перейти по гиперссылке на скрытый лист, затем выберите Конвертировать из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой модуль:

Код VBA: Переход по гиперссылке для открытия скрытого листа:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

Примечание: В приведенном выше коде число 1 в строке If Target.Column = 1 Then указывает номер столбца, содержащего гиперссылки, измените его по своему усмотрению.

2. Затем сохраните и закройте это окно кода. Теперь, когда вы нажмете на гиперссылку, ведущую к определенному скрытому листу, он откроется немедленно.

Переход по гиперссылке для открытия скрытого листа, а затем его повторное скрытие с помощью кода VBA

Иногда вам нужно перейти по гиперссылке для открытия скрытого листа, а когда вы вернетесь на главный лист, вы хотите, чтобы открытый лист снова был скрыт. Следующий код VBA может помочь вам в этом:

1. Щелкните правой кнопкой мыши ярлык листа, по которому вы хотите перейти по гиперссылке на скрытый лист, затем выберите Конвертировать из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой модуль:

Код VBA: Переход по гиперссылке для открытия скрытого листа и последующего его повторного скрытия:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2. Затем сохраните и закройте окно кода. Когда вы нажмете на гиперссылку, связанный скрытый лист откроется немедленно, но если вы вернетесь на главный лист, содержащий гиперссылки, открытый лист снова будет автоматически скрыт.

Примечание: Эти коды применяются только к именам листов, которые совпадают с текстом гиперссылки.

Демонстрация: Переход по гиперссылке для открытия скрытого листа с помощью кода VBA