Hur följer jag hyperlänk till doldt ark i Excel?
Till exempel har jag en arbetsbok som innehåller flera kalkylblad, det första huvudarket har hyperlänkar till andra ark, och nu döljer jag alla ark utom det första. I det här fallet finns inte hyperlänkar som länkar till dolda ark. Men hur kan du få dessa hyperlänkar att fungera framgångsrikt? När du klickar på en hyperlänk öppnas det länkade dolda arket på samma gång som följande skärmdump visas:
Följ hyperlänken för att öppna doldt ark med VBA-kod
Följ hyperlänken för att öppna doldt ark och sedan dölja det igen med VBA-kod
Följ hyperlänken för att öppna doldt ark med VBA-kod
Följande VBA-kod kan hjälpa dig att öppna det dolda kalkylbladet när du klickar på dess relativa hyperlänk, gör så här:
1. Högerklicka på arkfliken som du vill följa hyperlänken till doldt ark och välj sedan Visa kod från snabbmenyn, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i den tomma modulen:
VBA-kod: Följ hyperlänk för att öppna doldt 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
Anmärkningar: I ovanstående kod, numret 1 I detta Om Target.Column = 1 Då skriptet anger kolumnnumret som innehåller hyperlänkar, ändra det efter behov.
2. Spara och stäng sedan detta kodfönster, nu när du klickar på hyperlänken som länkar till det specifika dolda arket, öppnas det dolda arket på en gång.
Följ hyperlänken för att öppna doldt ark och sedan dölja det igen med VBA-kod
Ibland måste du följa hyperlänken för att öppna det dolda arket, och när du går tillbaka till huvudarket vill du att det öppnade arket ska döljas igen. Nedanstående VBA-kod kan göra dig en tjänst:
1. Högerklicka på arkfliken som du vill följa hyperlänken till doldt ark och välj sedan Visa kod från snabbmenyn, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i den tomma modulen:
VBA-kod: Följ hyperlänk för att öppna doldt ark när du går tillbaka dölj 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. Spara sedan annonsen för att stänga kodfönstret. När du klickar på hyperlänken öppnas det länkade dolda arket omedelbart, men om du går tillbaka till huvudbladet som innehåller hyperlänkar döljs det öppnade arket automatiskt igen.
Anmärkningar: Avhandlingskoder tillämpas endast på bladnamnen som matchar din hyperlänkstext.
Demo: Följ hyperlänken för att öppna doldt ark med VBA-kod
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!