Salt la conținutul principal

Obțineți și introduceți ora creată și ultima dată modificată în celule

Acest articol va vorbi despre modalități de a obține ora creată și ultima modificare a informațiilor actuale din registrul de lucru și se introduce ora creată și ultima modificare a informațiilor actuale din registrul de lucru în celule în Excel.

Obțineți ora creată și ultima dată modificată în Excel cu comanda Info

Obțineți ora creată și ultima dată modificată în Excel cu funcția Proprietăți avansate

Introduceți ora creată și ultima dată modificată în celulele din Excel cu cod VBA

Introduceți ora creată și ultima dată modificată în celule / antet / subsol cu ​​Kutools pentru Excel idee bună3


săgeată albastru dreapta balon Obțineți ora creată și ultima dată modificată în Excel cu comanda Info

Putem afla ora exactă creată și ultima modificare a registrului de lucru curent în vizualizarea din culise a Microsoft Excel 2010/2013.

Apasă pe Fișier > Informație, iar în partea dreaptă a vizualizării din culise afișează Date conexe informație. Sub Date conexe titlu, enumeră ultima oră modificată, ora creată și ultima oră tipărită. Vedeți următoarea captură de ecran:

-2

 

Notă: Acest mod este disponibil numai în Microsoft Excel 2010/2013. Nu este valid în Excel 2007.


săgeată albastru dreapta balonObțineți ora creată și ultima dată modificată în Excel cu funcția Proprietăți avansate

De fapt, putem obține atât ora creată, cât și ultima modificare a registrului de lucru curent în caseta de dialog Proprietăți document.
Etapa 1: Deschide Proprietăți avansate căsuță de dialog:

În Excel 2007, faceți clic pe Birou buton> Pregăti > Proprietăţi, Precum și o Proprietatile documentului bara va fi afișată sub bara de instrumente, faceți clic pe Proprietatile documentului > Proprietăți avansate, vezi capturi de ecran:

doc-insert-modified-time-3-3
-1
doc-insert-modified-time-4-4

 

În Excel 2010/2013, faceți clic pe Fișier > Informație > Proprietăţi > Proprietăți avansate.

doc-insert-modified-time-4-4

Etapa 2: În Proprietăți avansate caseta de dialog, veți vedea ora creată și ultima dată modificată în fila Statistici. Vedeți următoarea captură de ecran:

doc-insert-modified-time-4-4


săgeată albastru dreapta balon Introduceți ora creată și ultima dată modificată în celulele din Excel cu cod VBA

Următoarele macrocomenzi VBA vă vor ajuta să introduceți direct ora creată și ultima modificare a informațiilor actuale din registrul de lucru în celule.

Introduceți atât ora creată, cât și ultima dată modificată în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

Cod VBA: introduceți atât ora creată, cât și ultima dată modificată în 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

Etapa 3:Apasă pe F5 tasta pentru a rula această macro. Și apoi data creată și ultima dată modificată vor fi inserate separat în celula A1 și celula A2.

notițe: puteți modifica celula de destinație în VB în funcție de nevoile dvs.

Introduceți ultima oră modificată a registrului de lucru în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

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

Etapa 3: Apoi salvați și închideți acest cod și reveniți la foaia de lucru, într-o celulă goală, introduceți formula = ModDate ()și apăsați tasta Intrați cheie. Apoi introduce ultima dată modificată în celulă.

-2

Introduceți ora creată a registrului de lucru în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

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

Etapa 3: Salvați și închideți acest cod, reveniți la foaia de lucru, într-o celulă goală, introduceți formula = CreateDate ()și apăsați tasta Intrați cheie.și data creată va fi inserată în celulă după cum se arată în următoarele capturi de ecran:

-2

Notă: Dacă celula dvs. nu are formatul de dată, poate afișa un număr ciudat. Formatați doar această celulă ca Data format, se va afișa ca o dată normală.


săgeată albastru dreapta balon Introduceți ora creată și ultima dată modificată în celule / antet / subsol cu ​​Kutools pentru Excel

Să vă prezint un instrument la îndemână ...Kutools pentru Excel care, care include mai mult de 300 de funcții utile, vă poate îmbunătăți eficiența de lucru? Cu al ei; cu al lui Introduceți informații despre registrul de lucru funcție, puteți insera rapid calea registrului de lucru, numele registrului de lucru / foaie de lucru, numele utilizatorului sau ora creată și ora modificată ultima dată în celule sau antet sau subsol.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Workbook > Introduceți informații despre registrul de lucru. Vedeți captura de ecran:
doc ultima modificare name2

2. Apoi în Introduceți informații despre registrul de lucru dialog, verificați informațiile pe care doriți să le inserați din secțiunea Informații, apoi mergeți pentru a specifica locația în care doriți să inserați, puteți alege celule, subsol (subsol stâng, subsol central, subsol drept) sau antet (antet stâng, antet central, antet dreapta). Vedeți captura de ecran:
doc insert a creat ora modificată 1

3. clic Ok, iar informațiile pe care le verificați au fost inserate în locația specificată.

Bacsis. Dacă doriți să aveți o perioadă de încercare gratuită a funcției Inserare informații de registru de lucru, vă rugăm să accesați descărcarea gratuită Kutools pentru Excel mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.

săgeată albastru dreapta balon Introduceți informații despre registrul de lucru


Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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