Hvordan følger man hyperlink til skjult ark i Excel?
For eksempel har jeg en projektmappe, der indeholder flere regneark, det første masterark har hyperlinks til andre ark, og nu skjuler jeg alle ark undtagen det første. I dette tilfælde er de hyperlinks, der linker til skjulte ark, ikke tilgængelige. Men hvordan kunne du få disse hyperlinks til at fungere med succes? Når du klikker på et hyperlink, åbnes det sammenkædede skjulte ark med det samme som følgende skærmbillede vist:
Følg hyperlink for at åbne skjult ark med VBA-kode
Følg hyperlink for at åbne skjult ark og derefter skjule det igen med VBA-kode
Følg hyperlink for at åbne skjult ark med VBA-kode
Følgende VBA-kode kan hjælpe dig med at åbne det skjulte regneark, når du klikker på dets relative hyperlink, gør venligst som dette:
1. Højreklik på arkfanen, som du vil følge hyperlinket til skjult ark, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme modul:
VBA-kode: Følg hyperlink for at åbne skjult ark:
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
Bemærk: I ovenstående kode, nummeret 1 i dette Hvis Target.Column = 1 Så scriptet angiver kolonnenummeret, der indeholder hyperlinks, skal du ændre det efter dine behov.
2. Gem derefter og luk dette kodevindue, når du nu klikker på hyperlinket, der linker til det specifikke skjulte ark, åbnes det skjulte ark med det samme.
Følg hyperlink for at åbne skjult ark og derefter skjule det igen med VBA-kode
Nogle gange er du nødt til at følge hyperlinket for at åbne det skjulte ark, og når du går tilbage til masterarket, vil du have, at det åbnede ark skal skjules igen. Nedenstående VBA-kode kan gøre dig en tjeneste:
1. Højreklik på arkfanen, som du vil følge hyperlinket til skjult ark, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme modul:
VBA-kode: Følg hyperlink for at åbne skjult ark, når du går tilbage, skjul det igen:
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. Gem derefter en annonce, der lukker kodevinduet, når du klikker på hyperlinket, åbnes det linkede skjulte ark med det samme, men hvis du går tilbage til masterarket, der indeholder hyperlinks, skjules det åbnede ark automatisk igen.
Bemærk: Disse koder anvendes kun på de arknavne, der matcher din hyperlinktekst.
Demo: Følg hyperlink for at åbne skjult ark med VBA-kode
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!