Jak śledzić hiperłącze do ukrytego arkusza w programie Excel?
Na przykład mam skoroszyt, który zawiera wiele arkuszy roboczych, pierwszy arkusz wzorcowy zawiera hiperłącza do innych arkuszy, a teraz ukrywam wszystkie arkusze oprócz pierwszego. W takim przypadku hiperłącza prowadzące do ukrytych arkuszy nie są dostępne. Ale jak możesz sprawić, by te hiperłącza działały pomyślnie? Po kliknięciu jednego hiperłącza połączony ukryty arkusz zostanie otwarty od razu, jak pokazano na poniższym zrzucie ekranu:
Postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz z kodem VBA
Postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz, a następnie ukryj go ponownie za pomocą kodu VBA
Postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz z kodem VBA
Poniższy kod VBA może pomóc w otwarciu ukrytego arkusza roboczego po kliknięciu jego względnego hiperłącza, wykonaj następujące czynności:
1. Kliknij prawym przyciskiem myszy kartę arkusza, do której chcesz podążać za hiperłączem do ukrytego arkusza, a następnie wybierz Wyświetl kod z menu kontekstowego w wyskakującym pliku Microsoft Visual Basic for Applications w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: podążaj za hiperłączem, aby otworzyć ukryty arkusz:
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
Note: W powyższym kodzie numer 1 w tym Jeśli Target.Column = 1 Then skrypt wskazuje numer kolumny zawierającej hiperłącza, zmień go według potrzeb.
2. Następnie zapisz i zamknij to okno kodu, teraz po kliknięciu hiperłącza prowadzącego do określonego ukrytego arkusza, ukryty arkusz zostanie otwarty od razu.
Postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz, a następnie ukryj go ponownie za pomocą kodu VBA
Czasami trzeba skorzystać z hiperłącza, aby otworzyć ukryty arkusz, a gdy wrócisz do arkusza wzorcowego, chcesz ponownie ukryć otwarty arkusz. Poniższy kod VBA może wyświadczyć ci przysługę:
1. Kliknij prawym przyciskiem myszy kartę arkusza, do której chcesz podążać za hiperłączem do ukrytego arkusza, a następnie wybierz Wyświetl kod z menu kontekstowego w wyskakującym pliku Microsoft Visual Basic for Applications w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz, gdy wróć, ukryj go ponownie:
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. Następnie zapisz i zamknij okno kodu, po kliknięciu hiperłącza połączony ukryty arkusz zostanie natychmiast otwarty, ale jeśli wrócisz do arkusza głównego, który zawiera hiperłącza, otwarty arkusz zostanie automatycznie ponownie ukryty.
Note: Kody te są stosowane tylko do nazw arkuszy, które pasują do tekstu hiperłącza.
Demo: Postępuj zgodnie z hiperłączem, aby otworzyć ukryty arkusz z kodem VBA
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
