Γρήγορη δημιουργία συνοπτικού φύλλου εργασίας με υπερσυνδέσμους στο Excel

Πολλοί από τους συναδέλφους μου ξοδεύουν πολύ από το χρόνο τους στη δημιουργία ενός Συνοπτικού φύλλου εργασίας στο Excel.

Ένα τυπικό συνοπτικό φύλλο εργασίας περιέχει τα ονόματα όλων των φύλλων εργασίας σε διαφορετικά κελιά και όλα τα ονόματα επίσης υπερσυνδέονται με αυτά τα φύλλα εργασίας.

Μπορείτε λοιπόν να κάνετε κλικ σε ένα κελί με όνομα φύλλου (πες Ιαν, Φεβ, Μαρ… ) και θα σας μεταφέρει σε αυτό το φύλλο εργασίας. Επιπλέον, υπάρχει επίσης μια υπερ -σύνδεση σε κάθε φύλλο εργασίας που συνδέεται πίσω με το συνοπτικό φύλλο εργασίας.

Ενώ οι συνάδελφοί μου έχουν γίνει εξαιρετικά αποτελεσματικοί σε αυτό, είναι ακόμα χάσιμο χρόνου όταν μπορείτε να κάνετε το ίδιο πράγμα σε λιγότερο από ένα δευτερόλεπτο (ναι, το διαβάσατε σωστά).

Το κόλπο είναι να δημιουργήσετε μια σύντομη μακροεντολή που θα το κάνει για εσάς.

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

Κάτι όπως φαίνεται παρακάτω:

Όπως μπορείτε να δείτε στην παραπάνω εικόνα, δημιουργεί αμέσως τη σύνοψη όταν εκτελείτε τη μακροεντολή (κάνοντας κλικ στο κουμπί). Τα ονόματα των φύλλων είναι υπερ -σύνδεσης που σας μεταφέρει στο φύλλο εργασίας όταν κάνετε κλικ σε αυτό.

Δημιουργία συνοπτικού φύλλου εργασίας με υπερσυνδέσμους

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

Εδώ είναι ο κωδικός:

Sub CreateSummary () 'Created by Sumit Bansal of trumpexcel.com' Αυτός ο κώδικας μπορεί να χρησιμοποιηθεί για τη δημιουργία συνοπτικού φύλλου εργασίας με υπερσυνδέσμους Dim x As Worksheet Dim Counter As Integer Counter = 0 Για κάθε x Σε φύλλα εργασίας Counter = Counter + 1 If Counter = 1 Στη συνέχεια GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Κάντε κλικ εδώ για να μεταβείτε στο φύλλο εργασίας" Με φύλλα εργασίας (Μετρητής) .Range ("A1"). Value = "Back to" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name). Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Επιστροφή στο" & ActiveSheet.Name End With End With ActiveCell.Offset (1, 0). Επιλέξτε Donothing: Next x End Sub 

Πού να τοποθετήσετε αυτόν τον κωδικό;

Ακολουθήστε τα παρακάτω βήματα για να τοποθετήσετε αυτόν τον κωδικό στο βιβλίο εργασίας:

1. Μεταβείτε στην καρτέλα προγραμματιστή και κάντε κλικ στο Visual Basic. Μπορείτε επίσης να χρησιμοποιήσετε τη συντόμευση πληκτρολογίου - ALT F11.
   • Εάν μπορείτε να βρείτε την καρτέλα προγραμματιστή στην κορδέλα στο Excel, κάντε κλικ εδώ για να μάθετε πώς να την αποκτήσετε.
2. Θα πρέπει να υπάρχει ένα παράθυρο Project Explorer στα αριστερά (αν δεν είναι εκεί, χρησιμοποιήστε το Control + R για να το κάνετε ορατό).
3. Μεταβείτε στην επιλογή Εισαγωγή και κάντε κλικ στην ενότητα. Αυτό προσθέτει μια ενότητα στο βιβλίο εργασίας. Επίσης, στα δεξιά, θα δείτε να εμφανίζεται το παράθυρο κώδικα (με δρομέα που αναβοσβήνει).
4. Στο παράθυρο κωδικού μονάδας, αντιγράψτε και επικολλήστε τον παραπάνω κώδικα.

Εκτέλεση του Κώδικα

Για να εκτελέσετε αυτόν τον κωδικό:

• Μεταβείτε στην καρτέλα Προγραμματιστής -> Κωδικός -> Μακροεντολές. Αυτό θα ανοίξει το πλαίσιο Μακροδιάλογος.
• Επιλέξτε το Macro CreateSummary και κάντε κλικ στο Εκτέλεση.
• Αυτό θα εκτελέσει τη μακροεντολή και θα δημιουργήσει τους υπερσυνδέσμους στο ενεργό φύλλο.

Ένας άλλος τρόπος εκτέλεσης της μακροεντολής είναι η εισαγωγή ενός κουμπιού/σχήματος και η εκχώρηση της μακροεντολής σε αυτό. Για να το κάνω αυτό:

• Εισαγάγετε ένα σχήμα στο φύλλο εργασίας. Διαμορφώστε το σχήμα όπως θέλετε.
• Κάντε δεξί κλικ πάνω του και επιλέξτε Εκχώρηση μακροεντολής.
• Στο πλαίσιο Αντιστοίχιση μακροεντολής, επιλέξτε τη μακροεντολή που θέλετε να αντιστοιχίσετε στο σχήμα και κάντε κλικ στο OK.

Τώρα, μπορείτε απλά να κάνετε κλικ στο σχήμα για να εκτελέσετε τη μακροεντολή.

Κατεβάστε το αρχείο από εδώ

Σημείωση:

1. Έχω κωδικοποιήσει το κελί Α1 σε κάθε φύλλο, το οποίο είναι υπερσυνδεδεμένο για να σας επιστρέψει στο συνοπτικό φύλλο. Βεβαιωθείτε ότι το αλλάζετε ανάλογα εάν έχετε κάτι ήδη στο κελί A1 σε κάθε φύλλο.
2. Η περίληψη δεν δημιουργεί υπερσύνδεσμο για τον εαυτό της (πράγμα που έχει νόημα καθώς βρίσκεστε ήδη σε αυτό το φύλλο).
3. Εκτελέστε αυτόν τον κώδικα όταν το Συνοπτικό φύλλο εργασίας είναι το ενεργό φύλλο εργασίας.
4. Μπορεί να θέλετε να προσθέσετε κάποια μορφοποίηση ή αναδιάταξη. Αλλά ελπίζω ότι αυτός ο κώδικας φροντίζει το δύσκολο κομμάτι.
5. Αποθηκεύστε αυτό το βιβλίο εργασίας ως επέκταση .xls ή .xlsm, καθώς περιέχει μακροεντολή.

Άλλα σεμινάρια Excel VBA:

• Λάβετε πολλαπλές τιμές αναζήτησης χωρίς επανάληψη σε ένα κελί.
• Μήτρα προτεραιότητας εργασιών - Εφαρμογή VBA.
• Πώς να συνδυάσετε πολλά βιβλία εργασίας σε ένα βιβλίο εργασίας Excel.
• Excel VBA Loops - For Next, Do while, Do Until, For καθένα (με παραδείγματα).
• Πώς να καταγράψετε μια μακροεντολή σε - Οδηγός βήμα προς βήμα.
• Πώς να αφαιρέσετε γρήγορα τους υπερσυνδέσμους από ένα φύλλο εργασίας στο Excel.
• Διαδικτυακό μάθημα Excel VBA.