Preskoči na glavno vsebino

Pridobite in vstavite ustvarjeni čas in čas zadnje spremembe v celice

Avtor: Kelly Zadnja sprememba: 2020-04-28

V tem članku bomo govorili o načinih, kako pridobiti ustvarjeni čas in čas zadnje spremembe trenutnih informacij o delovnem zvezku ter v celice v Excelu vstaviti ustvarjeni čas in zadnji čas sprememb trenutnih informacij o delovnem zvezku.

Ustvarite čas in čas zadnje spremembe v Excelu z ukazom Info

Pridobite ustvarjeni čas in čas zadnje spremembe v Excelu s funkcijo Napredne lastnosti

Ustvarjeni čas in čas zadnje spremembe vstavite v celice v Excelu s kodo VBA

Vstavite ustvarjeni čas in zadnji spremenjeni čas v celice / glavo / nogo z Kutools za Excel dobra ideja3


puščica modri desni mehurček Ustvarite čas in čas zadnje spremembe v Excelu z ukazom Info

Natančno ustvarjen čas in zadnji spremenjeni čas trenutnega delovnega zvezka lahko ugotovimo v pogledu zakulisja Microsoft Excel 2010/2013

Kliknite file > Informacije, na desni strani zakulisja pa prikazuje Sorodni datumi informacije. Pod Sorodni datumi v naslovu so navedeni zadnji spremenjeni čas, ustvarjeni čas in zadnji natisnjeni čas. Oglejte si naslednji posnetek zaslona:

-2

 

Opomba: Ta način je na voljo samo v programu Microsoft Excel 2010/2013. V Excelu 2007 ni veljaven.


puščica modri desni mehurčekPridobite ustvarjeni čas in čas zadnje spremembe v Excelu s funkcijo Napredne lastnosti

Pravzaprav lahko v pogovornem oknu Lastnosti dokumenta dobimo tako ustvarjeni čas kot zadnji spremenjeni čas trenutnega delovnega zvezka.
korak 1: Odprite Napredne lastnosti pogovorno okno:

V Excelu 2007 kliknite Office gumb> Pripravimo > NepremičnineIn Lastnosti dokumenta vrstica bo prikazana pod orodno vrstico, kliknite Lastnosti dokumenta > Napredne lastnosti, glej posnetke zaslona:

doc-insert-modificiran-čas-3-3
-1
doc-insert-modificiran-čas-4-4

 

V Excelu 2010/2013 kliknite file > Informacije > Nepremičnine > Napredne lastnosti.

doc-insert-modificiran-čas-4-4

korak 2: V Napredne lastnosti v pogovornem oknu boste na kartici Statistika videli ustvarjeni in nazadnje spremenjeni čas. Oglejte si naslednji posnetek zaslona:

doc-insert-modificiran-čas-4-4


puščica modri desni mehurček Ustvarjeni čas in čas zadnje spremembe vstavite v celice v Excelu s kodo VBA

Naslednji makri VBA vam bodo pomagali neposredno v celice vstaviti ustvarjeni čas in čas zadnje spremembe trenutnih informacij o delovnem zvezku.

V Excel vstavite tako ustvarjeni kot zadnji čas

korak 1: Držite tipko ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

korak 2: Kliknite Vstavi >> Moduliin prilepite naslednji makro v okno modula.

Koda VBA: v Excel vstavite tako ustvarjeni kot zadnji čas

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

korak 3: Pritisnite tipko F5 tipko za zagon tega makra. Nato bosta ustvarjeni datum in datum zadnje spremembe vstavljena v celico A1 in celico A2 ločeno.

Opombe: ciljno celico v VB lahko spremenite glede na vaše potrebe.

V Excel vstavite zadnji spremenjeni čas delovnega zvezka

korak 1: Držite tipko ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

korak 2: Kliknite Vstavi >> Moduliin prilepite naslednji makro v okno modula.

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

korak 3: Nato shranite in zaprite to kodo in se vrnite na delovni list, v prazno celico vnesite formulo = ModDate (), in pritisnite Vnesite tipko. Nato v celico vstavi zadnji spremenjeni čas.

-2

Vstavite ustvarjeni čas delovnega zvezka v Excelu

korak 1: Držite tipko ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

korak 2: Kliknite Vstavi >> Moduliin prilepite naslednji makro v okno modula.

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

korak 3: Shranite in zaprite to kodo, se vrnite na delovni list, v prazno celico vnesite formulo = Ustvari datum (), in pritisnite Vnesite in ustvarjeni datum bo vstavljen v celico, kot je prikazano na naslednjih posnetkih zaslona:

-2

Opomba: Če vaša celica ni v obliki zapisa datuma, bo morda prikazala čudno številko. Samo formatirajte to celico kot Datum format, bo prikazan kot običajen datum.


puščica modri desni mehurček Vstavite ustvarjeni čas in zadnji spremenjeni čas v celice / glavo / nogo z Kutools za Excel

Naj vam predstavim priročno orodje -Kutools za Excel katera z več kot 300 uporabnimi funkcijami lahko izboljša vašo delovno učinkovitost? S svojim Vstavite podatke o delovnem zvezku funkcijo, lahko hitro vstavite pot delovnega zvezka, ime delovnega zvezka / delovnega lista, uporabniško ime ali ustvarjeni čas in čas zadnje spremembe v celice ali glavo ali nogo.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Delovni zvezek > Vstavite podatke o delovnem zvezku. Oglejte si posnetek zaslona:
doc zadnja sprememba name2

2. Nato v Vstavite podatke o delovnem zvezku pogovorno okno, v razdelku Informacije označite podatke, ki jih želite vstaviti, nato pa pojdite na lokacijo, kamor želite vstaviti, lahko izberete celice, nogo (leva noga, srednja noga, desna noga) ali glavo (leva glava, srednja glava, desna glava). Oglejte si posnetek zaslona:
Dokument vstavi ustvarjen spremenjeni čas 1

3. klik Ok, in podatki, ki jih preverite, so bili vstavljeni na določeno mesto.

Nasvet. Če želite brezplačno preskusiti funkcijo Vstavi informacije o delovnem zvezku, pojdite na brezplačni prenos Kutools za Excel najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

puščica modri desni mehurček Vstavite podatke o delovnem zvezku


Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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