Πίνακας περιεχομένων
Δημιουργία ευρετηρίου υπερσύνδεσης όλων των φύλλων εργασίας στο τετράδιο εργασίας
Ας πάρουμε τη μακροεντολή για να αναφέρουμε όλα τα φύλλα σε ένα βιβλίο εργασίας ένα βήμα παραπέρα και να δημιουργήσουμε ένα μενού υπερ -σύνδεσης για κάθε φύλλο σε ένα βιβλίο εργασίας. Αυτή είναι μια μεγάλη εξοικονόμηση χρόνου για κάποιον που έχει πολλά φύλλα και προσπαθεί να δημιουργήσει ένα μενού υπερ -συνδέσεων σε καθένα χειροκίνητα.
Για να χρησιμοποιήσετε τη μακροεντολή απλά αντικαταστήστε τη λέξη Sheet1 (εμφανίζεται δύο φορές) στον κώδικα με το όνομα της καρτέλας όπου θα θέλατε τα αποτελέσματα. Βεβαιωθείτε ότι δεν υπάρχουν σημαντικές πληροφορίες στην καρτέλα εξόδου, επειδή διαγράφει τα δεδομένα τους προτού γράψετε σε αυτήν. Μετά την εκτέλεση της μακροεντολής, δημιουργείται μια λίστα με κάθε φύλλο με υπερσύνδεση σε κάθε φύλλο.
| 1234567891011121314151617181920 | Υποκατάλογος Φύλλα ()Dim ws Ως φύλλο εργασίαςDim x ως ακέραιοςx = 1Φύλλα ("Φύλλο1"). Εύρος ("Α: Α"). ΣαφέςΓια κάθε ws σε φύλλα εργασίαςΦύλλα ("Φύλλο1"). Κελιά (x, 1) .ΕπιλέξτεActiveSheet.Hyperlinks.Add _Άγκυρα: = Επιλογή, Διεύθυνση: = "", Υποδιεύθυνση: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Επόμενο wsΤέλος υπο |
