Sut i ddilyn hyperddolen i ddalen gudd yn Excel?
Er enghraifft, mae gen i lyfr gwaith sy'n cynnwys nifer o daflenni gwaith, mae gan y brif ddalen hypergysylltiadau â thaflenni eraill, ac nawr, rydw i'n cuddio pob dalen ac eithrio'r un gyntaf. Yn yr achos hwn, nid yw'r hypergysylltiadau sy'n cysylltu â thaflenni cudd ar gael. Ond, sut allech chi wneud i'r hypergysylltiadau hyn weithio'n llwyddiannus? Pan gliciwch un hyperddolen, bydd y ddalen gudd gysylltiedig yn cael ei hagor ar unwaith fel y dangosir y screenshot canlynol:
Dilynwch hyperddolen i agor taflen gudd gyda chod VBA
Dilynwch hyperddolen i agor taflen gudd ac yna ei chuddio eto gyda chod VBA
Dilynwch hyperddolen i agor taflen gudd gyda chod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i agor y daflen waith gudd wrth glicio ar ei hyperddolen gymharol, gwnewch hyn:
1. Cliciwch ar y dde ar y tab dalen rydych chi am ddilyn yr hyperddolen i ddalen gudd, ac yna dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwl gwag:
Cod VBA: Dilynwch hyperddolen i agor taflen gudd:
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
Nodyn: Yn y cod uchod, y rhif 1 yn hyn o Os Targed.Column = 1 Yna mae'r sgript yn nodi rhif y golofn sy'n cynnwys yr hyperddolenni, newidiwch eich angen.
2. Yna arbedwch a chau y ffenestr god hon, nawr, pan fyddwch chi'n clicio ar yr hyperddolen sy'n cysylltu â'r ddalen gudd benodol, bydd y ddalen gudd yn cael ei hagor ar unwaith.
Dilynwch hyperddolen i agor taflen gudd ac yna ei chuddio eto gyda chod VBA
Weithiau, mae angen i chi ddilyn yr hyperddolen i agor y ddalen gudd, a phan ewch yn ôl y brif ddalen, rydych chi am i'r ddalen agored gael ei chuddio eto. Gall y cod VBA isod ffafrio chi:
1. Cliciwch ar y dde ar y tab dalen rydych chi am ddilyn yr hyperddolen i ddalen gudd, ac yna dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwl gwag:
Cod VBA: Dilynwch hyperddolen i agor taflen gudd wrth fynd yn ôl cuddiwch hi eto:
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. Yna arbedwch hysbyseb cau'r ffenestr god, pan gliciwch yr hyperddolen, bydd y ddalen gudd gysylltiedig yn cael ei hagor ar unwaith, ond, os ewch yn ôl i'r brif ddalen sy'n cynnwys yr hyperddolenni, bydd y ddalen a agorwyd yn cael ei chuddio'n awtomatig eto.
Nodyn: Dim ond i'r enwau dalennau sy'n cyfateb i'ch testun hyperddolen y cymhwysir y codau traethodau ymchwil hyn.
Demo: Dilynwch hyperddolen i agor taflen gudd gyda chod VBA
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!