Πώς να ακολουθήσετε τον υπερσύνδεσμο σε κρυφό φύλλο στο Excel;

Για παράδειγμα, έχω ένα βιβλίο εργασίας που περιέχει πολλά φύλλα εργασίας, το πρώτο κύριο φύλλο έχει υπερσυνδέσμους με άλλα φύλλα και τώρα κρύβω όλα τα φύλλα εκτός από το πρώτο. Σε αυτήν την περίπτωση, οι υπερσύνδεσμοι που συνδέονται με κρυφά φύλλα δεν είναι διαθέσιμοι. Αλλά, πώς θα μπορούσατε να κάνετε αυτούς τους υπερσυνδέσμους να λειτουργούν με επιτυχία; Όταν κάνετε κλικ σε έναν υπερσύνδεσμο, το συνδεδεμένο κρυφό φύλλο θα ανοίξει ταυτόχρονα όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε κρυφό φύλλο με κωδικό VBA

Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε το κρυφό φύλλο και στη συνέχεια να το αποκρύψετε ξανά με τον κωδικό VBA

Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε κρυφό φύλλο με κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να ανοίξετε το κρυφό φύλλο εργασίας όταν κάνετε κλικ στον σχετικό υπερσύνδεσμό του, κάντε το ως εξής:

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να ακολουθήσετε τον υπερσύνδεσμο σε κρυφό φύλλο και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:

Κωδικός VBA: Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε κρυφό φύλλο:

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

Σημείωση: Στον παραπάνω κωδικό, ο αριθμός 1 σε αυτό το Αν Target.Column = 1 Στη συνέχεια Το σενάριο δείχνει τον αριθμό της στήλης που περιέχει τους υπερσυνδέσμους, αλλάξτε την ανάγκη σας.

2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, όταν κάνετε κλικ στον υπερσύνδεσμο που συνδέεται με το συγκεκριμένο κρυφό φύλλο, το κρυφό φύλλο θα ανοίξει ταυτόχρονα.

Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε το κρυφό φύλλο και στη συνέχεια να το αποκρύψετε ξανά με τον κωδικό VBA

Μερικές φορές, πρέπει να ακολουθήσετε τον υπερσύνδεσμο για να ανοίξετε το κρυφό φύλλο και όταν επιστρέφετε το κύριο φύλλο, θέλετε το κρυφό φύλλο να κρυφτεί ξανά. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει:

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να ακολουθήσετε τον υπερσύνδεσμο σε κρυφό φύλλο και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:

Κωδικός VBA: Ακολουθήστε τον υπερσύνδεσμο για να ανοίξετε το κρυφό φύλλο όταν επιστρέψετε να το κρύψετε ξανά:

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. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα, όταν κάνετε κλικ στον υπερσύνδεσμο, το συνδεδεμένο κρυφό φύλλο θα ανοίξει αμέσως, αλλά, αν επιστρέψετε το κύριο φύλλο που περιέχει τους υπερσυνδέσμους, το ανοιχτό φύλλο θα κρυφτεί ξανά αυτόματα.

Σημείωση: Αυτοί οι κωδικοί εφαρμόζονται μόνο στα ονόματα φύλλων που ταιριάζουν με το κείμενο της υπερσύνδεσής σας.

Επίδειξη: Ακολουθήστε υπερσύνδεσμο για να ανοίξετε κρυφό φύλλο με κωδικό VBA