Comment suivre le lien hypertexte vers la feuille masquée dans Excel?
Par exemple, j'ai un classeur qui contient plusieurs feuilles de calcul, la première feuille principale a des liens hypertexte vers d'autres feuilles, et maintenant, je masque toutes les feuilles sauf la première. Dans ce cas, les hyperliens qui renvoient aux feuilles masquées ne sont pas disponibles. Mais, comment pouvez-vous faire fonctionner ces hyperliens avec succès? Lorsque vous cliquez sur un lien hypertexte, la feuille masquée liée sera ouverte à la fois comme illustré ci-dessous:
Suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA
Suivez le lien hypertexte pour ouvrir la feuille cachée, puis masquez-la à nouveau avec le code VBA
Suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA
Le code VBA suivant peut vous aider à ouvrir la feuille de calcul masquée en cliquant sur son lien hypertexte relatif, procédez comme suit:
1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez suivre le lien hypertexte vers la feuille masquée, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications , veuillez copier et coller le code suivant dans le module vide:
Code VBA: suivez le lien hypertexte pour ouvrir la feuille masquée:
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
Notes: Dans le code ci-dessus, le numéro 1 dans ce Si Target.Column = 1 Then Le script indique le numéro de colonne qui contient les hyperliens, veuillez le modifier selon vos besoins.
2. Ensuite, enregistrez et fermez cette fenêtre de code, maintenant, lorsque vous cliquez sur le lien hypertexte qui lien vers la feuille cachée spécifique, la feuille cachée sera ouverte à la fois.
Suivez le lien hypertexte pour ouvrir la feuille cachée, puis masquez-la à nouveau avec le code VBA
Parfois, vous devez suivre le lien hypertexte pour ouvrir la feuille masquée, et lorsque vous revenez à la feuille maître, vous voulez que la feuille ouverte soit à nouveau masquée. Le code VBA ci-dessous peut vous rendre service:
1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez suivre le lien hypertexte vers la feuille masquée, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications , veuillez copier et coller le code suivant dans le module vide:
Code VBA: suivez le lien hypertexte pour ouvrir la feuille masquée lorsque vous revenez la masquer à nouveau:
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. Ensuite, enregistrez et fermez la fenêtre de code, lorsque vous cliquez sur le lien hypertexte, la feuille cachée liée sera ouverte immédiatement, mais, si vous revenez à la feuille maître qui contient les hyperliens, la feuille ouverte sera à nouveau masquée automatiquement.
Notes: Ces codes ne s'appliquent qu'aux noms de feuille qui correspondent au texte de votre lien hypertexte.
Démo: suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA
Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!