Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een hyperlink naar een verborgen blad te volgen in Excel?

Ik heb bijvoorbeeld een werkmap die meerdere werkbladen bevat, het eerste basisblad bevat hyperlinks naar andere werkbladen en nu verberg ik alle bladen behalve de eerste. In dit geval zijn de hyperlinks die een link naar verborgen bladen bevatten niet beschikbaar. Maar hoe kon je deze hyperlinks succesvol laten werken? Wanneer u op één hyperlink klikt, wordt het gekoppelde verborgen blad in één keer geopend als volgt:

document hyperlink naar verborgen blad 1

Volg de hyperlink om een ​​verborgen blad met VBA-code te openen

Volg de hyperlink om het verborgen blad te openen en verberg het vervolgens opnieuw met VBA-code


Lijst alle werkbladnamen en link naar elk blad:

Doordat uw bureau Kutools for Excel's Lijst met bladnamen maken hulpprogramma, kunt u snel een lijst maken van alle werkbladnamen in een nieuw blad met hyperlinks of macrotoetsen als u dat wilt.

werkbladnamen met hyperlinks werkbladnamen met macrotoetsen
doc-list-werkblad-names2  2 doc-list-werkblad-names2  2 doc-list-werkblad-names2

Volg de hyperlink om een ​​verborgen blad met VBA-code te openen


De volgende VBA-code kan u helpen om het verborgen werkblad te openen wanneer u op de relatieve hyperlink klikt. Doe dit als volgt:

1. Klik met de rechtermuisknop op de bladtab waaraan u de hyperlink naar het verborgen blad wilt toevoegen en kies vervolgens Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: volg de hyperlink om het verborgen blad te openen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    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

document hyperlink naar verborgen blad 2

Notes: In de bovenstaande code, het nummer 1 In dit If Target.Column = 1 Then script geeft het kolomnummer aan dat de hyperlinks bevat, verander het naar wens.

2. Bewaar en sluit vervolgens dit codevenster nu, wanneer u op de hyperlink klikt die linkt naar het specifieke verborgen blad, wordt het verborgen blad in een keer geopend.


Volg de hyperlink om het verborgen blad te openen en verberg het vervolgens opnieuw met VBA-code

Soms moet u de hyperlink volgen om het verborgen blad te openen en wanneer u het hoofdpagina teruggaat, wilt u dat het geopende blad weer wordt verborgen. De onderstaande VBA-code kan je een plezier doen:

1. Klik met de rechtermuisknop op de bladtab waaraan u de hyperlink naar het verborgen blad wilt toevoegen en kies vervolgens Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: volg de hyperlink om het verborgen blad te openen wanneer je teruggaat, verberg het opnieuw:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

document hyperlink naar verborgen blad 3

2. Sla vervolgens advertentie op en sluit het codevenster. Wanneer u op de hyperlink klikt, wordt het gekoppelde verborgen blad onmiddellijk geopend, maar als u teruggaat naar het hoofdblad met de hyperlinks, wordt het geopende blad automatisch weer verborgen.

Notes: Deze codes worden alleen toegepast op de bladnamen die overeenkomen met uw hyperlinktekst.


Demo: volg de hyperlink om een ​​verborgen blad met VBA-code te openen

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 30-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    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.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    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)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]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)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    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.