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

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

Перейдите по гиперссылке, чтобы открыть скрытый лист с кодом VBA

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

Перейдите по гиперссылке, чтобы открыть скрытый лист с кодом VBA

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

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

Код 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 В этом Если Target.Column = 1 Then скрипт указывает номер столбца, который содержит гиперссылки, пожалуйста, измените его по своему усмотрению.

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

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

Иногда вам нужно перейти по гиперссылке, чтобы открыть скрытый лист, и когда вы вернетесь к мастер-листу, вы хотите, чтобы открытый лист снова был скрыт. Приведенный ниже код VBA может оказать вам услугу:

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

Код 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