Salt la conținutul principal

Cum se urmărește hyperlinkul către foaia ascunsă în Excel?

De exemplu, am un registru de lucru care conține mai multe foi de lucru, prima foaie principală are hyperlinkuri la alte foi și acum ascund toate foile, cu excepția primei. În acest caz, hyperlinkurile care trimit către foi ascunse nu sunt disponibile. Dar, cum ați putea face ca aceste hyperlinkuri să funcționeze cu succes? Când faceți clic pe un hyperlink, foaia ascunsă legată va fi deschisă imediat după cum se arată în următoarea captură de ecran:

hyperlink doc către foaia ascunsă 1

Urmați hyperlinkul pentru a deschide foaia ascunsă cu cod VBA

Urmați hyperlinkul pentru a deschide foaia ascunsă și apoi ascundeți-o din nou cu codul VBA


Urmați hyperlinkul pentru a deschide foaia ascunsă cu cod VBA

Următorul cod VBA vă poate ajuta să deschideți foaia de lucru ascunsă atunci când faceți clic pe hyperlinkul relativ, vă rugăm să procedați astfel:

1. Faceți clic dreapta pe fila de foaie pe care doriți să urmați hyperlinkul la foaia ascunsă, apoi alegeți Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în modulul gol:

Cod VBA: urmați hyperlinkul pentru a deschide foaia ascunsă:

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

hyperlink doc către foaia ascunsă 2

notițe: În codul de mai sus, numărul 1 în acest Dacă Target.Column = 1 Atunci scriptul indică numărul coloanei care conține hyperlink-uri, vă rugăm să-l modificați nevoia dvs.

2. Apoi salvați și închideți această fereastră de cod, acum, când faceți clic pe hyperlinkul care leagă foaia ascunsă specifică, foaia ascunsă va fi deschisă simultan.


Urmați hyperlinkul pentru a deschide foaia ascunsă și apoi ascundeți-o din nou cu codul VBA

Uneori, trebuie să urmați hyperlinkul pentru a deschide foaia ascunsă și, atunci când reveniți la foaia principală, doriți ca foaia deschisă să fie ascunsă din nou. Codul VBA de mai jos vă poate face o favoare:

1. Faceți clic dreapta pe fila de foaie pe care doriți să urmați hyperlinkul la foaia ascunsă, apoi alegeți Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în modulul gol:

Cod VBA: urmați hyperlinkul pentru a deschide foaia ascunsă când reveniți la ascunderea din nou:

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

hyperlink doc către foaia ascunsă 3

2. Apoi salvați anunțul închideți fereastra de cod, când faceți clic pe hyperlink, foaia ascunsă legată va fi deschisă imediat, dar, dacă reveniți la foaia principală care conține hyperlinkurile, foaia deschisă va fi ascunsă din nou automat.

notițe: Aceste coduri se aplică numai numele foilor care se potrivesc cu textul hyperlinkului dvs.


Demo: urmați hyperlinkul pentru a deschide foaia ascunsă cu cod VBA

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Not sure if I will get a response to this one, but when I click the any of my hyperlinks I get a "reference isn't valid" error.
Everything still works, I just need to click ok to continue.
Does anyone have an idea what causes this error for this code?
Thank you,
This comment was minimized by the moderator on the site
I have created many wordbook and I want to index those in one page.

N.B: My point is I want to hide all the sheets, the sheets will linked with setting picture to main page. By clicking the picture linked sheet will be shown and when I come back to the main sheet the un-hide sheet will be hidden again
This comment was minimized by the moderator on the site
I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
This comment was minimized by the moderator on the site
My hyperlink "text" is number only, and it doesn't work...
This comment was minimized by the moderator on the site
I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet. The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True Any ideas as to what change is needed make the code work on all of the sheets? Thank you in advance.
This comment was minimized by the moderator on the site
I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if". Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
This comment was minimized by the moderator on the site
[quote]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if". Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)By HelzBelz[/quote] Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
This comment was minimized by the moderator on the site
I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
This comment was minimized by the moderator on the site
I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations