Εάν θέλετε να εισαγάγετε ορισμένες πληροφορίες στην κεφαλίδα / υποσέλιδο του φύλλου εργασίας, όπως το όνομα αρχείου / διαδρομή αρχείου ή η τρέχουσα ημερομηνία ή αριθμός σελίδας, μπορείτε να το κάνετε χρησιμοποιώντας τον παρακάτω κώδικα. Εάν πρόκειται για ένα μόνο φύλλο εργασίας, μπορείτε να το κάνετε χειροκίνητα, αλλά αν είναι πολλαπλά φύλλα ή όλα τα φύλλα στο βιβλίο εργασίας που χρειάζονται να συμπληρωθούν αυτές οι πληροφορίες, μπορείτε να το κάνετε χρησιμοποιώντας έναν απλό μακροεντολή / κώδικα vba.
Αυτό το δείγμα μακροεντολής θα εισαγάγει μια κεφαλίδα/υποσέλιδο σε κάθε φύλλο εργασίας στο ενεργό βιβλίο εργασίας. Θα εισαγάγει επίσης την πλήρη διαδρομή στο βιβλίο εργασίας.
Option Explicit Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False each wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = "Company name:" .CenterHeader = "Page & P of & N" .RightHeader = " "Διαδρομή:" & ActiveWorkbook.Path .CenterFooter = "Όνομα βιβλίου εργασίας: & F" .RightFooter = "Φύλλο: & Α" Λήξη με επόμενο ws Set ws = Τίποτα Application.ScreenUpdating = True End Sub
Για να αντιγράψετε αυτόν τον κώδικα στο βιβλίο εργασίας σας, πατήστε Alt + F11 στο πληκτρολόγιό σας. Στη συνέχεια, στην αριστερή πλευρά, θα δείτε τα αντικείμενα του Microsoft Excel. Κάντε δεξί κλικ και επιλέξτε Εισαγωγή. Στη συνέχεια, κάντε κλικ στην ενότητα και αντιγράψτε αυτόν τον κώδικα στο παράθυρο κώδικα στα δεξιά.
Ας διαλύσουμε κάθε μέρος του κώδικα -
Ξεκινάμε με τη συνήθη δήλωση Dim όπου δηλώνουμε τις μεταβλητές. Σε αυτήν την περίπτωση, έχουμε μόνο 1 μεταβλητή - ws για το φύλλο εργασίας. Στη συνέχεια, απενεργοποιούμε την ενημέρωση οθόνης.
Τώρα, στον βρόχο FOR, κάνουμε βρόχο σε κάθε φύλλο εργασίας στο βιβλίο εργασίας που περιέχει τη μακροεντολή. Και ρυθμίζουμε κάθε παράμετρο στο Page Setup. Τα & P, & N, & D, & T, & F και & A είναι ορισμένοι κωδικοί μορφής που μπορούν να εφαρμοστούν σε κεφαλίδες και υποσέλιδα. & P εκτυπώνει τον αριθμό σελίδας. & N εκτυπώνει τον συνολικό αριθμό σελίδων στο έγγραφο. & D εκτυπώνει την τρέχουσα ημερομηνία. & Τ εκτυπώνει την τρέχουσα ώρα. Το & F εκτυπώνει το όνομα του εγγράφου και το & A εκτυπώνει το όνομα της καρτέλας του βιβλίου εργασίας.
Στο τέλος, θέσαμε το φύλλο εργασίας σε τίποτα και ελευθερώνουμε το αντικείμενο και ενεργοποιούμε την ενημέρωση της οθόνης.
Εδώ είναι 2 εικόνες. Το 1st το ένα δείχνει την κεφαλίδα και το 2nd ένα υποσέλιδο μετά την εκτέλεση της μακροεντολής.
Η κεφαλίδα έχει την ετικέτα Όνομα εταιρείας. Το όνομα δεν έχει εισαχθεί ακόμα, καθώς δεν το έχουμε συνδέσει με κανένα κύτταρο ή δεν έχουμε δώσει κείμενο για το όνομα της εταιρείας. Εάν εισαγάγετε οτιδήποτε στον κώδικα ή στο φύλλο excel και το αναφέρετε, τότε το όνομα θα παραληφθεί και θα συμπληρωθεί εδώ.
Η σελίδα # από 0 δείχνει ότι αυτήν τη στιγμή έχουμε 0 σελίδες στο αρχείο, αφού έχουμε εκτελέσει αυτόν τον κώδικα σε ένα κενό αρχείο. Εάν εκτελέσετε αυτόν τον κώδικα σε ένα αρχείο που περιέχει δεδομένα, θα σας εμφανίσει τον αριθμό της σελίδας.
Το Printed σας δίνει την ημερομηνία και την ώρα που εκτελέστηκε η μακροεντολή μαζί με το κείμενο "Printed".
Στο Υποσέλιδο, η ετικέτα Διαδρομή θα σας δείξει τη διαδρομή του τρέχοντος αρχείου.
Το όνομα αρχείου μας είναι Book1.xlsx που είναι προς το παρόν ένα μη αποθηκευμένο αρχείο. Επομένως, δεν υπάρχει διαδρομή που να εμφανίζεται για την ετικέτα Διαδρομή.
Ο αριθμός φύλλου συμπληρώνεται στα δεξιά του υποσέλιδου.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email