Kako slediti hiperpovezavi do skritega lista v Excelu?
Na primer, imam delovni zvezek, ki vsebuje več delovnih listov, prvi glavni list ima hiperpovezave do drugih listov, zdaj pa skrijem vse liste razen prvega. V tem primeru hiperpovezave, ki vodijo do skritih listov, niso na voljo. Kako pa bi lahko te hiperpovezave uspešno delovale? Ko kliknete eno hiperpovezavo, se bo takoj odprl povezani skriti list, kot je prikazano na sliki spodaj:
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 okno, 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 okensko okno. Ko kliknete hiperpovezavo, ki vodi do določenega skritega lista, se skrit list takoj odpre.
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 okno, 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: Kode tez se uporabljajo samo za imena listov, ki se ujemajo z besedilom hiperpovezave.
Predstavitev: Sledite hiperpovezavi, da odprete skriti list s kodo VBA
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!