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

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

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

Εισαγάγετε την τελευταία τροποποιημένη ημερομηνία στην κεφαλίδα ή το υποσέλιδο του Excel με τον κώδικα VBA

Εισαγωγή τελευταίας τροποποιημένης ημερομηνίας / ημερομηνίας δημιουργίας / κεφαλίδας / υποσέλιδου με το Kutools για Excel καλή ιδέα3


βέλος μπλε δεξιά φούσκα Εισαγάγετε την τελευταία τροποποιημένη ημερομηνία στην κεφαλίδα ή το υποσέλιδο του Excel με τον κώδικα VBA

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

1. Ενεργοποιήστε το φύλλο εργασίας που θέλετε να εισαγάγετε την τελευταία τροποποιημένη ημερομηνία στην κεφαλίδα ή στο υποσέλιδο.

2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

3. Στα αριστερά VBAProject παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας για να ανοίξετε το Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα.

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

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "Last saved: " & Format(Date, "mm-dd-yy") & " " & Time
End Sub

doc-insert-last-save-date-to-header-1

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

doc-insert-last-save-date-to-header-2
-1
doc-insert-last-save-date-to-header-3

:

1. Η τελευταία τροποποιημένη ημερομηνία και ώρα ενημερώνεται αυτόματα, όταν τροποποιείτε και αποθηκεύετε το αρχείο Excel.

2. Εάν πρέπει να εισαγάγετε αυτήν την τελευταία αποθηκευμένη ημερομηνία και ώρα στην αριστερή κεφαλίδα / υποσέλιδο, δεξιά κεφαλίδα / υποσέλιδο ή κεντρικό υποσέλιδο, απλά πρέπει να αλλάξετε το CenterHeader στον παραπάνω κωδικό στο αίτημά σας.


βέλος μπλε δεξιά φούσκα Εισαγωγή τελευταίας τροποποιημένης ημερομηνίας / ημερομηνίας δημιουργίας / κεφαλίδας / υποσέλιδου με το Kutools για Excel

Με το Kutools για Excel, μπορείτε να χρησιμοποιήσετε το εργαλείο Εισαγωγή πληροφοριών βιβλίου εργασίας για να εισαγάγετε γρήγορα τις πληροφορίες του βιβλίου εργασίας στην κεφαλίδα, στο υποσέλιδο ή σε ένα κελί.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)

Πατήστε Kutools Plus > Βιβλίο εργασίας >Εισαγωγή πληροφοριών βιβλίου εργασίας, και στο αναδυόμενο παράθυρο διαλόγου, ελέγξτε τις πληροφορίες που θέλετε να εισαγάγετε και μεταβείτε Εισαγωγή στο , ελέγξτε Σειρά, επικεφαλίδα or Υποσέλιδο επιλογή, και καθορίστε να εισαγάγετε στην αριστερή κεφαλίδα / υποσέλιδο, κεντρική κεφαλίδα / υποσέλιδο ή δεξιά κεφαλίδα / υποσέλιδο για να καλύψετε τις ανάγκες σας.
doc εισάγετε πληροφορίες βιβλίου εργασίας
doc εισάγετε πληροφορίες βιβλίου εργασίας

βέλος μπλε δεξιά φούσκα Εισαγωγή πληροφοριών βιβλίου εργασίας


Σχετικό άρθρο:

Λήψη και εισαγωγή του δημιουργημένου χρόνου και της τελευταίας τροποποιημένης ώρας σε κελιά

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Why do I have to load the VB code into 'ThisWorkBook' of the VBAproject for every new workbook created? I would think that if I loaded the VB code into 'ThisWorkBook' of VBAHOME (PERSONAL.XLSB) if would be retained and available cresting new workbooks
This comment was minimized by the moderator on the site
Just tried it after moving the center header to the left footer. Didn't work. What I saved at 1:20 pm still recorded as 1:00 pm. Your help would be most appreciated. BTW, my spreadsheet was created as Excel 2007, and I made changes at the library on Excel 2016. Generally, I can go back and forth between versions with no problems.
Also, I didn't realize my name would be published. Any chance of changing it to Nancy E.?
Many thanks!
This comment was minimized by the moderator on the site
THANK YOU! That was invaluable. Who'd believe that Microsoft would exclude such an important function! What about Word? Is it done the same way now?
This comment was minimized by the moderator on the site
Thanks for the Info.
This comment was minimized by the moderator on the site
perfect.very useful ;-)
This comment was minimized by the moderator on the site
I did this and it works. I saved the file as .xlsx and closed it. Now, when I open it, I open the VBA coding window but I am not able to find this chunk of code to edit it. I would like to play with location and remove time. Thank you.
This comment was minimized by the moderator on the site
@John R. When you get to the VBA coding window, on the left section of the screen you need to double-click "ThisWorkbook" to open the right section of the screen. Then in the right section (at the top) you need to select "Workbook" and "BeforeSave". That should hopefully show you the chunk of code that you're looking for.
This comment was minimized by the moderator on the site
I tried this technique but could only get it to show up on one sheet. Help?
This comment was minimized by the moderator on the site
Thanks! I maintain an employee phone number and extension list. People get hired, quit, move to different extensions. If someone wants a copy I print it off, but it only showed the date and time it was printed -- not necessarily the most current information. It was difficult to tell if you had two different copies which one was the most up-to-date. Showing the last time the file was saved will do what I wanted!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations