Πίνακας περιεχομένων
Η ακόλουθη μακροεντολή περνάει κάθε φύλλο σε ένα βιβλίο εργασίας και γράφει το όνομα της καρτέλας κάθε φύλλου διαδοχικά σε ένα φύλλο που επιλέγετε. Αυτό θα μπορούσε να είναι βολικό για μια γρήγορη λίστα κάθε φύλλου σε ένα βιβλίο εργασίας με πολλά φύλλα.
Καταχωρίστε όλα τα φύλλα εργασίας σε ένα τετράδιο εργασίας
Για να χρησιμοποιήσετε τη μακροεντολή απλά αντικαταστήστε τη λέξη Sheet1 (εμφανίζεται δύο φορές) στον κώδικα με το όνομα της καρτέλας όπου θα θέλατε τα αποτελέσματα. Βεβαιωθείτε ότι δεν υπάρχουν σημαντικές πληροφορίες στην καρτέλα εξόδου, επειδή διαγράφει τα δεδομένα τους προτού γράψετε σε αυτήν.
123456789101112131415 | Υποκατάλογος Φύλλα ()Dim ws Ως φύλλο εργασίαςDim x ως ακέραιοςx = 1Φύλλα ("Φύλλο1"). Εύρος ("Α: Α"). ΣαφέςΓια κάθε ws σε φύλλα εργασίαςΦύλλα ("Φύλλο1"). Κελιά (x, 1) = ws.Namex = x + 1Επόμενο wsΤέλος υπο |