Přejít k hlavnímu obsahu

Získejte a vložte vytvořený čas a čas poslední změny do buněk

Autor: Kelly Naposledy změněno: 2020-04-28

Tento článek bude hovořit o způsobech, jak získat vytvořený čas a čas poslední změny aktuálních informací sešitu a vložit vytvořený čas a čas poslední změny aktuálních informací sešitu do buněk v aplikaci Excel.

Získejte vytvořený čas a čas poslední úpravy v aplikaci Excel pomocí příkazu Info

Získejte vytvořený čas a čas poslední úpravy v aplikaci Excel pomocí funkce Pokročilé vlastnosti

Vložte vytvořený čas a čas poslední změny do buněk v aplikaci Excel pomocí kódu VBA

Vložte vytvořený čas a poslední upravený čas do buněk / záhlaví / zápatí pomocí Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina Získejte vytvořený čas a čas poslední úpravy v aplikaci Excel pomocí příkazu Info

Přesný vytvořený čas a čas poslední úpravy aktuálního sešitu zjistíme v zákulisí aplikace Microsoft Excel 2010/2013.

Klepněte na tlačítko Soubor > Informace, a na pravé straně pohledu do zákulisí zobrazuje Související data informace. Pod Související data název, obsahuje seznam naposledy upraveného času, vytvořeného času a posledního vytištěného času. Viz následující snímek obrazovky:

-2

 

Poznámka: Tento způsob je k dispozici pouze v Microsoft Excel 2010/2013. V aplikaci Excel 2007 je neplatná.


šipka modrá pravá bublinaZískejte vytvořený čas a čas poslední úpravy v aplikaci Excel pomocí funkce Pokročilé vlastnosti

Ve skutečnosti můžeme získat jak vytvořený čas, tak čas poslední úpravy aktuálního sešitu v dialogovém okně Vlastnosti dokumentu.
Krok 1: Otevři Pokročilé vlastnosti dialogové okno:

V aplikaci Excel 2007 klikněte na ikonu Office tlačítko> Připravit > Nemovitosti, A Vlastnosti dokumentu lišta se zobrazí pod panelem nástrojů, klikněte na Vlastnosti dokumentu > Pokročilé vlastnosti, viz screenshoty:

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

 

V aplikaci Excel 2010/2013 klikněte na Soubor > Informace > Nemovitosti > Pokročilé vlastnosti.

doc-insert-modified-time-4-4

Krok 2: V Pokročilé vlastnosti V dialogovém okně uvidíte na kartě Statistiky vytvořený čas a čas poslední změny. Viz následující snímek obrazovky:

doc-insert-modified-time-4-4


šipka modrá pravá bublina Vložte vytvořený čas a čas poslední změny do buněk v aplikaci Excel pomocí kódu VBA

Následující makra VBA vám pomohou přímo vložit vytvořený čas a čas poslední změny aktuálních informací sešitu do buněk.

Vložte vytvořený čas a čas poslední úpravy do aplikace Excel

Krok 1: Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

Krok 2: Klepněte na tlačítko Vložit >> Modula vložte následující makro do okna modulu.

Kód VBA: Vložte vytvořený čas a čas poslední změny v aplikaci 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

Krok 3:Zmáčkni F5 klíč ke spuštění tohoto makra. A pak se vytvořené datum a poslední upravené datum vloží samostatně do buňky A1 a buňky A2.

Poznámka: můžete upravit cílovou buňku ve VB podle svých potřeb.

Vložte poslední upravený čas sešitu v aplikaci Excel

Krok 1: Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

Krok 2: Klepněte na tlačítko Vložit >> Modula vložte následující makro do okna modulu.

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

Krok 3: Poté tento kód uložte a zavřete a vraťte se do listu, do prázdné buňky zadejte vzorec = ModDate (), a stiskněte tlačítko vstoupit klíč. Poté vloží poslední upravený čas do buňky.

-2

Vložte vytvořený čas sešitu v aplikaci Excel

Krok 1: Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

Krok 2: Klepněte na tlačítko Vložit >> Modula vložte následující makro do okna modulu.

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

Krok 3: Uložte a zavřete tento kód, vraťte se do listu, do prázdné buňky zadejte vzorec = CreateDate (), a stiskněte tlačítko vstoupit key.and the created date will be entered into the cell as following screenshots shown:

-2

Poznámka: Pokud vaše buňka nemá formát data, může zobrazit zvláštní číslo. Stačí naformátovat tuto buňku jako Datum formátu, zobrazí se jako normální datum.


šipka modrá pravá bublina Vložte vytvořený čas a poslední upravený čas do buněk / záhlaví / zápatí pomocí Kutools pro Excel

Mohu vám představit šikovný nástroj -Kutools pro Excel které z více než 300 užitečných funkcí mohou zvýšit vaši efektivitu práce? S jeho Vložte informace o sešitu funkce, můžete rychle vložit cestu sešitu, název sešitu / listu, uživatelské jméno nebo vytvořený čas a čas poslední změny do buněk nebo záhlaví nebo zápatí.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Cvičebnice > Vložte informace o sešitu. Viz snímek obrazovky:
doc poslední změna name2

2. Pak v Vložte informace o sešitu V dialogovém okně zkontrolujte informace, které chcete vložit z části Informace, poté přejděte na místo, kam chcete vložit, můžete vybrat buňky, zápatí (zápatí vlevo, střed zápatí, pravé zápatí) nebo záhlaví (levé záhlaví, střední záhlaví, pravé záhlaví). Viz screenshot:
vložení dokumentu vytvořeno upravený čas 1

3. cvaknutí Oka informace, které zkontrolujete, byly vloženy do zadaného umístění.

Spropitné. Pokud chcete mít bezplatnou zkušební verzi funkce Vložit informace o sešitu, přejděte zdarma ke stažení Kutools pro Excel nejprve a poté přejděte k použití operace podle výše uvedených kroků.

šipka modrá pravá bublina Vložte informace o sešitu


Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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