Πώς να ακολουθήσετε τον υπερσύνδεσμο σε κρυφό φύλλο στο 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
Note: Στον παραπάνω κωδικό, ο αριθμός 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. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα, όταν κάνετε κλικ στον υπερσύνδεσμο, το συνδεδεμένο κρυφό φύλλο θα ανοίξει αμέσως, αλλά, αν επιστρέψετε το κύριο φύλλο που περιέχει τους υπερσυνδέσμους, το ανοιχτό φύλλο θα κρυφτεί ξανά αυτόματα.
Note: Αυτοί οι κωδικοί εφαρμόζονται μόνο στα ονόματα φύλλων που ταιριάζουν με το κείμενο της υπερσύνδεσής σας.
Επίδειξη: Ακολουθήστε υπερσύνδεσμο για να ανοίξετε κρυφό φύλλο με κωδικό VBA
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
