Hogyan követhető a hiperhivatkozás a rejtett lapra az Excelben?
Például van egy munkafüzetem, amely több munkalapot tartalmaz, az első törzslapon hiperhivatkozások vannak más lapokkal, és most az összes lapot elrejtem, az első kivételével. Ebben az esetben a rejtett lapokra mutató hiperhivatkozások nem állnak rendelkezésre. De hogyan tudná ezeket a hiperhivatkozásokat sikeresen működtetni? Ha egy hiperhivatkozásra kattint, a hivatkozott rejtett lap egyszerre megnyílik a következő képernyőkép szerint:
Kövesse a hiperhivatkozást a rejtett lap VBA kóddal történő megnyitásához
Kövesse a hiperhivatkozást a rejtett lap megnyitásához, majd ismét elrejtheti VBA kóddal
Kövesse a hiperhivatkozást a rejtett lap VBA kóddal történő megnyitásához
A következő VBA-kód segíthet megnyitni a rejtett munkalapot, amikor rákattint a relatív hiperhivatkozására. Kérjük, tegye a következőket:
1. Kattintson a jobb gombbal azon a lapfülön, amelyen a rejtett lapra mutató hiperhivatkozást szeretné követni, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üres modulba:
VBA kód: Kövesse a hiperhivatkozást a rejtett lap megnyitásához:
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
Megjegyzések: A fenti kódban a szám 1 ebben Ha Target.Column = 1 Akkor a szkript jelzi az oszlop számát, amely a hiperhivatkozásokat tartalmazza, kérjük, változtassa meg igénye szerint.
2. Ezután mentse el és zárja be ezt a kódablakot. Most, amikor az adott rejtett munkalapra mutató hivatkozásra kattint, a rejtett lap egyszerre megnyílik.
Kövesse a hiperhivatkozást a rejtett lap megnyitásához, majd ismét elrejtheti VBA kóddal
Néha követnie kell a hiperhivatkozást a rejtett lap megnyitásához, és amikor visszatér a törzslapra, azt szeretné, hogy a megnyitott lapot újra elrejtse. Az alábbi VBA kód jót tehet Önnek:
1. Kattintson a jobb gombbal azon a lapfülön, amelyen a rejtett lapra mutató hiperhivatkozást szeretné követni, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üres modulba:
VBA-kód: Kövesse a hiperhivatkozást a rejtett lap megnyitásához, amikor visszalép a rejtéshez:
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. Ezután mentse a hirdetésablak bezárását a kódablakba, amikor a hiperhivatkozásra kattint, a hivatkozott rejtett lap azonnal megnyílik, de ha visszalép a hiperhivatkozásokat tartalmazó törzslapra, akkor a megnyílt lap ismét automatikusan el lesz rejtve.
Megjegyzések: Ezeket a kódokat csak azokra a lapnevekre alkalmazzák, amelyek megfelelnek a hiperhivatkozás szövegének.
Bemutató: Kövesse a hiperhivatkozást a rejtett lap VBA kóddal történő megnyitásához
Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
