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

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

Συγγραφέας: Kelly Τελευταία τροποποίηση: 2020-04-28

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

Αποκτήστε την ώρα δημιουργίας και την τελευταία τροποποιημένη ώρα στο Excel με την εντολή Info

Αποκτήστε την ώρα δημιουργίας και την τελευταία τροποποιημένη ώρα στο Excel με τη λειτουργία Advanced Properties

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

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


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

Μπορούμε να μάθουμε τον ακριβή χρόνο δημιουργίας και την τελευταία τροποποιημένη ώρα του τρέχοντος βιβλίου εργασίας σε προβολή στα παρασκήνια του Microsoft Excel 2010/2013.

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

-2

 

Σημείωση: Αυτός ο τρόπος είναι διαθέσιμος μόνο στο Microsoft Excel 2010/2013. Δεν είναι έγκυρο στο Excel 2007.


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

Στην πραγματικότητα, μπορούμε να λάβουμε τόσο τον χρόνο δημιουργίας όσο και την τελευταία τροποποιημένη ώρα του τρέχοντος βιβλίου εργασίας στο παράθυρο διαλόγου Ιδιότητες εγγράφου.
Βήμα 1: Ανοιξε το Προηγμένες ιδιότητες κουτί διαλόγου:

Στο Excel 2007, κάντε κλικ στο Office κουμπί> Προετοιμάστε > Ιδιοκτησίες, και ένα Ιδιότητες εγγράφου Η γραμμή θα εμφανιστεί κάτω από τη γραμμή εργαλείων, κάντε κλικ στο Ιδιότητες εγγράφου > Προηγμένες ιδιότητες, δείτε στιγμιότυπα οθόνης:

doc-ένθετο-τροποποιημένος-χρόνος-3-3
-1
doc-ένθετο-τροποποιημένος-χρόνος-4-4

 

Στο Excel 2010/2013, κάντε κλικ στο Αρχεία > Πληροφορίες > Ιδιοκτησίες > Προηγμένες ιδιότητες.

doc-ένθετο-τροποποιημένος-χρόνος-4-4

Βήμα 2: Στο Προηγμένες ιδιότητες πλαίσιο διαλόγου, θα δείτε την ώρα δημιουργίας και την τελευταία τροποποιημένη ώρα στην καρτέλα Στατιστικά. Δείτε το παρακάτω στιγμιότυπο οθόνης:

doc-ένθετο-τροποποιημένος-χρόνος-4-4


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

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

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

Βήμα 1: Κρατήστε πατημένο το ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 2: Κάντε κλικ Κύριο θέμα >> Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.

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

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Βήμα 3:Πάτα το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής. Και τότε η ημερομηνία δημιουργίας και η τελευταία τροποποιημένη ημερομηνία θα εισαχθούν ξεχωριστά στο κελί A1 και στο κελί A2.

Note: μπορείτε να τροποποιήσετε το κελί προορισμού στο VB ανάλογα με τις ανάγκες σας.

Εισαγάγετε την τελευταία τροποποιημένη ώρα του βιβλίου εργασίας στο Excel

Βήμα 1: Κρατήστε πατημένο το ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 2: Κάντε κλικ Κύριο θέμα >> Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Βήμα 3: Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό και επιστρέψτε στο φύλλο εργασίας, σε ένα κενό κελί, εισαγάγετε τον τύπο του = ModDate (), και πατήστε το εισάγετε κλειδί. Στη συνέχεια εισάγει την τελευταία τροποποιημένη ώρα στο κελί.

-2

Εισαγωγή δημιουργημένου χρόνου εργασίας στο Excel

Βήμα 1: Κρατήστε πατημένο το ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 2: Κάντε κλικ Κύριο θέμα >> Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Βήμα 3: Αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας, σε ένα κενό κελί, εισαγάγετε τον τύπο του = Δημιουργία ημερομηνίας (), και πατήστε το εισάγετε κλειδί. και η ημερομηνία δημιουργίας θα εισαχθεί στο κελί ως εξής στιγμιότυπα οθόνης που εμφανίζονται:

-2

Σημείωση: Εάν το κελί σας δεν έχει μορφή ημερομηνίας, μπορεί να εμφανίζει έναν παράξενο αριθμό. Απλά μορφοποιήστε αυτό το κελί ως Ημερομηνία μορφή, θα εμφανίζεται ως κανονική ημερομηνία.


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

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

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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools Plus > Βιβλίο εργασίας > Εισαγωγή πληροφοριών βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:
doc τελευταία τροποποίηση ονόματος2

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

3. κλικ Okκαι οι πληροφορίες που ελέγχετε έχουν εισαχθεί στην τοποθεσία που καθορίζετε.

Υπόδειξη. Εάν θέλετε να δοκιμάσετε δωρεάν τη συνάρτηση Insert Workbook Information, μεταβείτε στη δωρεάν λήψη Kutools για Excel πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.

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


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

🤖 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 (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
Hi Team, I need your help. I am having an excel file, there i want to find the modified date of a particular cell. Please help me with the coding here, if possible. Thanks in advance.
This comment was minimized by the moderator on the site
I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with: Function DocumentProperty(PropertyName As String) ' 'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names: 'Title Subject Author 'Keywords Comments Template 'Last Author Revision Number Application Name 'Last Print Date Creation Date Last Save Time 'Total Editing Time Number of Pages Number of Words 'Number of Characters Security Category 'Format Manager Company 'Number of Bytes Number of Lines Number of Paragraphs 'Number of Slides Number of Notes Number of Hidden Slides 'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces) Call Application.Volatile(True) Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Then DocumentProperty = "!!! Unknown Property Name !!!" Exit Function End If End Function
This comment was minimized by the moderator on the site
I see that "Last Save Time" is only referenced ONCE in the code. I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates. Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog. Could "Last Save Time" be some relic?
This comment was minimized by the moderator on the site
Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub That did the trick for me. Hope it helps.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other closed files? I'd like to compare the Created Date of a file on my Desktop to a file on a public web server. I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change. I appreciate your help. Bruce
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
Hiya Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy I've tired changing it to this format using the "Date" section but have not had any luck. Any ideas?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
Hey this was awesome. Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated. Thanks!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations