Kako slediti hiperpovezavi do skritega lista v Excelu?

Če imate delovni zvezek z več delovnimi listi in želite uporabiti hiperpovezave na glavnem listu za krmarjenje do skritih listov, boste opazili, da postanejo hiperpovezave neaktivne, ko so listi skriti. Če želite to rešiti, lahko uporabite kodo VBA, s katero zagotovite, da se s klikom na hiperpovezavo samodejno odpre ustrezen skriti list. Ta članek vsebuje navodila po korakih za dosego te funkcije in ponuja celo možnost, da ponovno skrijete list, ko se vrnete na glavni list.

Sledite hiperpovezavi, da odprete skriti list s kodo VBA

Sledite hiperpovezavi, da odprete skriti list in ga znova skrijete s kodo VBA

Sledite hiperpovezavi, da odprete skriti list s kodo VBA

Naslednja koda VBA vam lahko pomaga odpreti skriti delovni list, ko kliknete njegovo relativno hiperpovezavo. Naredite to:

1. Z desno miškino tipko kliknite zavihek lista, po katerem želite slediti hiperpovezavi do skritega lista, in nato izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije oknu kopirajte in prilepite naslednjo kodo v prazen modul:

Koda VBA: Sledite hiperpovezavi, da odprete skriti list:

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

Opombe: V zgornji kodi številka 1 v tem Če je ciljni stolpec = 1, potem skript označuje številko stolpca, ki vsebuje hiperpovezave, spremenite jo po potrebi.

2. Nato shranite in zaprite to okno s kodo, zdaj, ko kliknete hiperpovezavo, ki se povezuje na določen skriti list, se bo list takoj odprl.

Sledite hiperpovezavi, da odprete skriti list in ga znova skrijete s kodo VBA

Včasih morate slediti hiperpovezavi, da odprete skriti list, in ko se vrnete glavni list, želite, da se odprti list ponovno skrije. Spodnja koda VBA vam lahko stori uslugo:

1. Z desno miškino tipko kliknite zavihek lista, po katerem želite slediti hiperpovezavi do skritega lista, in nato izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije oknu kopirajte in prilepite naslednjo kodo v prazen modul:

Koda VBA: Sledite hiperpovezavi, da odprete skriti list, ko se znova skrijete:

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. Nato shrani oglas zapre okno kode, ko kliknete hiperpovezavo, se takoj odpre odprti povezani skriti list, če pa se vrnete nazaj na glavni list, ki vsebuje hiperpovezave, se bo odprti list samodejno ponovno skril.

Opombe: Te kode veljajo samo za imena listov, ki se ujemajo z besedilom hiperpovezave.

Predstavitev: Sledite hiperpovezavi, da odprete skriti list s kodo VBA