Note: The other languages of the website are Google-translated. Back to English

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:

hyperddolen doc i ddalen gudd 1

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

hyperddolen doc i ddalen gudd 2

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

hyperddolen doc i ddalen gudd 3

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!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio cuddio dalen sydd â hyperddolen. Hoffwn allu clicio ar y daflen ewch i'r daflen hypergyswllt ac yna cliciwch yn ôl i'r daflen a chau'r ddalen gudd. Rwyf wedi rhoi cynnig ar eich cyfarwyddiadau ond nid yw'n gweithio. Ddim yn siŵr beth rydw i'n ei wneud yn anghywir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ddalen sydd wedi'i chuddio sy'n cynnwys hyperddolen. Hoffwn allu mynd i'r ddalen gudd a'i chael yn agos pan fyddaf yn mynd yn ôl at y ddalen wreiddiol. Defnyddiais y cod ond nid yw'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio'r cod hwn ar ddwy daflen wahanol yn fy llyfr gwaith, ac yn y ddau achos mae'n gweithio'n wych, heblaw am yr hyperddolen gyntaf ar bob tudalen. Rwy'n cael "Subscript out of range error" ac mae'r dadfygiwr yn pwyntio at y "Sheets(strLinkSheet).Visible = Gwir" yn union ar ôl y "diwedd os". Unrhyw un arall yn gweld y gwall hwn? Dim ond ar y ddolen gyntaf ar y dudalen y mae. (mae fy hypergysylltiadau yng ngholofn A, ac yn dechrau yn rhes 2)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Rwyf wedi defnyddio'r cod hwn ar ddwy ddalen wahanol yn fy llyfr gwaith, ac yn y ddau achos mae'n gweithio'n wych, heblaw am yr hyperddolen gyntaf ar bob tudalen. Rwy'n cael "Subscript out of range error" ac mae'r dadfygiwr yn pwyntio at y "Sheets(strLinkSheet).Visible = Gwir" yn union ar ôl y "diwedd os". Unrhyw un arall yn gweld y gwall hwn? Dim ond ar y ddolen gyntaf ar y dudalen y mae. (mae fy hypergysylltiadau yng ngholofn A, ac yn dechrau yn rhes 2)Gan HelzBelz[/quote] Ni all enwau dalennau gael gofod fel "Taflen 1". Gosodais enwau fy dalen ar "Daflen 1" a daeth y gwall i ben.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'r cod ar ddwy ddalen wahanol. Mae'n gweithio ar gyfer un o tua 40 hyperddolen ar un ddalen ac mae'n agor dau o tua 10 hyperddolen un mae hi'n ei hail, mae'r dalennau ar yr ail sy'n agor yn mynd yn ôl i guddio pan fyddaf yn dychwelyd at y ddalen. Y gwall rwy'n ei gael pan na fydd yn agor dalen yw gwall amser rhedeg"9": sgript allan o'r ystod a'r cod mae'n fy nghyfeirio ato - Sheets(strLinkSheet).Visible = Gwir Unrhyw syniadau pa newid sydd angen gwneud y gwaith cod ar bob un o'r dalennau? Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhif yn unig yw fy hyperddolen "testun", ac nid yw'n gweithio ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn ddefnyddio'r cod hwn ond dim ond eisiau iddo fod yn berthnasol i golofn A. Mae gen i gysylltiadau cyfeiriad gwe eraill mewn celloedd eraill sy'n achosi problem wrth redeg y cod hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi creu llawer o wordbook ac rwyf am fynegeio rhai mewn un dudalen.

DS: Fy mhwynt yw fy mod eisiau cuddio'r holl ddalennau, bydd y dalennau'n gysylltiedig â gosod llun i brif dudalen. Wrth glicio ar y llun dangosir y ddalen gysylltiedig a phan ddof yn ôl at y brif ddalen bydd y ddalen dad-guddio yn cael ei chuddio eto
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn siŵr a fyddaf yn cael ymateb i'r un hwn, ond pan fyddaf yn clicio ar unrhyw un o'm hypergysylltiadau rwy'n cael gwall "nid yw'r cyfeirnod yn ddilys".
Mae popeth yn dal i weithio, mae angen i mi glicio iawn i barhau.
A oes gan unrhyw un syniad beth sy'n achosi'r gwall hwn ar gyfer y cod hwn?
Diolch yn fawr,
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir