Jak sledovat hypertextový odkaz na skrytý list v aplikaci Excel?
Například mám sešit, který obsahuje více listů, první hlavní list má hypertextové odkazy na jiné listy a nyní skryji všechny listy kromě prvního. V tomto případě nejsou k dispozici hypertextové odkazy, které odkazují na skryté listy. Jak ale můžete zajistit, aby tyto hypertextové odkazy fungovaly úspěšně? Když kliknete na jeden hypertextový odkaz, propojený skrytý list se otevře najednou, jak ukazuje následující snímek obrazovky:
Pomocí hypertextového odkazu otevřete skrytý list s kódem VBA
Pomocí hypertextového odkazu otevřete skrytý list a poté jej znovu skryjte pomocí kódu VBA
Pomocí hypertextového odkazu otevřete skrytý list s kódem VBA
Následující kód VBA vám může pomoci otevřít skrytý list po kliknutí na jeho relativní hypertextový odkaz, postupujte takto:
1. Pravým tlačítkem klikněte na kartu listu, na kterou chcete použít hypertextový odkaz na skrytý list, a poté vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do prázdného modulu:
Kód VBA: Pomocí hypertextového odkazu otevřete skrytý 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
Poznámka: Ve výše uvedeném kódu číslo 1 v této Pokud Target.Column = 1 Potom skript označuje číslo sloupce, který obsahuje hypertextové odkazy, změňte jej podle potřeby.
2. Poté uložte a zavřete toto okno s kódem, nyní, když kliknete na hypertextový odkaz, který odkazuje na konkrétní skrytý list, skrytý list se otevře najednou.
Pomocí hypertextového odkazu otevřete skrytý list a poté jej znovu skryjte pomocí kódu VBA
Někdy je třeba sledovat hypertextový odkaz a otevřít skrytý list, a když se vrátíte zpět k hlavnímu listu, chcete, aby byl otevřený list znovu skryt. Níže uvedený kód VBA vám může udělat laskavost:
1. Pravým tlačítkem klikněte na kartu listu, na kterou chcete použít hypertextový odkaz na skrytý list, a poté vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do prázdného modulu:
Kód VBA: Pomocí hypertextového odkazu otevřete skrytý list, když se vrátíte zpět, skryjte jej znovu:
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. Poté uložte reklamu a zavřete okno s kódem. Když kliknete na hypertextový odkaz, propojený skrytý list se okamžitě otevře, ale pokud se vrátíte zpět na hlavní list, který obsahuje hypertextové odkazy, otevřený list se znovu automaticky skryje.
Poznámka: Kódy závěrečných prací se použijí pouze na názvy listů, které odpovídají vašemu textu hypertextového odkazu.
Demo: Pomocí hypertextového odkazu otevřete skrytý list s kódem VBA
Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!