Μετάβαση στο κύριο περιεχόμενο

Πώς να καθορίσετε τη μορφή ημερομηνίας ή ώρας στην κεφαλίδα ή στο υποσέλιδο;

Κανονικά, όταν εισάγετε ημερομηνία ή ώρα στην κεφαλίδα ή στο υποσέλιδο με το &[Ημερομηνία] or &[Χρόνος] κώδικα, η μορφή ημερομηνίας ή ώρας βασίζεται στις τοπικές ρυθμίσεις που ελέγχονται από τα Windows. Σε αυτήν την περίπτωση, πώς θα μπορούσατε να αλλάξετε τη μορφή ημερομηνίας ή ώρας ημερομηνίας στις δικές σας ανάγκες στην κεφαλίδα ή στο υποσέλιδο, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης;

ημερομηνία μορφής εγγράφου στην κεφαλίδα 1

Καθορίστε τη μορφή ημερομηνίας ή ώρας ημερομηνίας στην κεφαλίδα ή στο υποσέλιδο με τον κωδικό VBA


βέλος μπλε δεξιά φούσκα Καθορίστε τη μορφή ημερομηνίας ή ώρας ημερομηνίας στην κεφαλίδα ή στο υποσέλιδο με τον κωδικό VBA

Εδώ, θα παρουσιάσω έναν απλό κώδικα VBA για να επιλύσετε αυτήν την εργασία στο Excel, κάντε τα εξής:

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

ημερομηνία μορφής εγγράφου στην κεφαλίδα 2

2. Κρατήστε πατημένο το ALT + F11 πλήκτρα στο Excel για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Εισαγωγή και μορφοποίηση ημερομηνίας στην κεφαλίδα ή στο υποσέλιδο:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το Κέντρο επικεφαλής προς την LeftHeader, CenterFooter… Και τη μορφή ημερομηνίας μμμμ ηη, εεε μπορεί επίσης να αλλάξει όπως χρειάζεστε.

4. Και στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και η καθορισμένη μορφή ημερομηνίας έχει εισαχθεί ταυτόχρονα στην κεφαλίδα ή στο υποσέλιδο. Δείτε το στιγμιότυπο οθόνης:

ημερομηνία μορφής εγγράφου στην κεφαλίδα 3

Συμβουλές: Εάν θέλετε να εισαγάγετε τη δική σας μορφή ώρας ημερομηνίας στην κεφαλίδα ή στο υποσέλιδο, εφαρμόστε τον παρακάτω κωδικό:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

Και θα έχετε το ακόλουθο αποτέλεσμα:

ημερομηνία μορφής εγγράφου στην κεφαλίδα 4

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
This comment was minimized by the moderator on the site
Hello,
To add the date 1day advanced totay, please apply the following code:
Sub SetAdvancedDateInHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tomorrow As Date
    tomorrow = Date + 1
    ws.PageSetup.CenterHeader = Format(tomorrow, "mm/dd/yyyy")
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:Sub Change_Format()
ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
End Sub
This comment was minimized by the moderator on the site
Hi, Thank You
Can I ask you how can I change the font and size of "Date" by VBA?
I mean with same code that you wrote for insert date into header by VBA.
Thanks
This comment was minimized by the moderator on the site
I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations