Note: The other languages of the website are Google-translated. Back to English

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

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (21)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Užitečné informace... :-)
Tento komentář byl moderátorem webu minimalizován
Tohle bylo perfektní. Přesně to, co jsem hledal. Díky moc!!
Tento komentář byl moderátorem webu minimalizován
Moc děkujeme za pomoc, tohle potřebujeme. kódy fungují správně, ale bez aktualizace, znamená to, že po uložení neaktualizujte datum úpravy. máte na to nějaké řešení? Zkoušel jsem mnohokrát, uložit, zavřít a znovu otevřít, bez aktualizace data.
Tento komentář byl moderátorem webu minimalizován
Ahoj Khalide,

Měl jsem stejný problém a přidal jsem do kódu řádek "Application.Volatile" a když stisknu F9, aktualizuje se informace.
Viděl jsem to ve videu "Naučte se Excel - "Funkce pro poslední uložený čas": Podcast #1725 " od Billa Jelena.
@Bill: Moc děkuji za video!

https://www.youtube.com/watch?v=KnSA6xdmc2Q

Pozdravy,
Alex
Tento komentář byl moderátorem webu minimalizován
Dobrý den: Udělal jsem to jinak, ale také kódováním. Protože jsem přidal kód, nutí mě to uložit sešit s makry a následně jako *.XLSM. To je v pořádku, ale mnoho míst takovéto makra neumožňuje. Existuje způsob, jak to dostat (nebo uložit sešit se změnou) do normálního .XLS? Předpokládám také, že se někoho zeptá, aby "Povolil makra", pokud má toto nastavení zapnuté (jsem konzultant a na většině míst, kde pracuji, mě to nutí zapnout makra, když je to možné po otevření sešitu). FYI: Zde je návod, jak jsem to udělal v makru (ne lepší, jen jiné). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Poslední aktualizace " & Format(Now(), "mm /dd/yyyy") .RightHeader = "" .RightFooter = "Poslední aktualizace " & Format(Now(), "mm/dd/rrrr") Končí End Sub
Tento komentář byl moderátorem webu minimalizován
Tyto informace jsou pro mě velmi užitečné. díky starost
Tento komentář byl moderátorem webu minimalizován
díky za těchto informací
Tento komentář byl moderátorem webu minimalizován
[quote]Dobrý den: Udělal jsem to jinak, ale také kódováním. Protože jsem přidal kód, nutí mě to uložit sešit s makry a následně jako *.XLSM. To je v pořádku, ale mnoho míst takovéto makra neumožňuje. Existuje způsob, jak to dostat (nebo uložit sešit se změnou) do normálního .XLS? Předpokládám také, že se někoho zeptá, aby "Povolil makra", pokud má toto nastavení zapnuté (jsem konzultant a na většině míst, kde pracuji, mě to nutí zapnout makra, když je to možné po otevření sešitu). FYI: Zde je návod, jak jsem to udělal v makru (ne lepší, jen jiné). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Poslední aktualizace " & Format(Now(), "mm /dd/yyyy") .RightHeader = "" .RightFooter = "Poslední aktualizace " & Format(Now(), "mm/dd/rrrr") Končí End SubAutor Larry S. Peteet[/quote] Dobrý den, úspěšně jsem vložil Datum a čas poslední úpravy, ale při uložení a opětovném otevření sešitu se neaktualizuje. Prosím, pomozte zde......nevím o kódování, takže v podstatě zkopíruji jakékoli informace uvedené na takových fórech Díky Swarane
Tento komentář byl moderátorem webu minimalizován
Ano, mám stejný problém - včera to fungovalo perfektně, ale dnes by se to po uložení nezměnilo.
Tento komentář byl moderátorem webu minimalizován
Prosím pomozte!!! potřebujete vrátit datum a čas poslední změny uzavřeného souboru a vrátit tyto informace do buňky v otevřeném souboru
Tento komentář byl moderátorem webu minimalizován
Hej, to bylo úžasné. Je možné vložit datum vytvoření a datum poslední změny jiného sešitu? Chci vytvořit indexový soubor, který mi řekne, kdy byly ostatní dokumenty naposledy aktualizovány. Dík!!
Tento komentář byl moderátorem webu minimalizován
Hiya Love miluji toto, ale bohužel se datum objevuje pouze v USA a v Austrálii máme dd/mm/rr Unavilo mě to měnit na tento formát pomocí sekce "Datum", ale neměl jsem štěstí. Nějaké nápady?
Tento komentář byl moderátorem webu minimalizován
Julie - v kódu VBA místo toho použijte "dd/mm/rr hh:n". Díky tomu bude datum ve „správném“ pořadí! :lol:
Tento komentář byl moderátorem webu minimalizován
velmi velmi velmi velmi velmi velmi velmi velmi užitečné děkuji
Tento komentář byl moderátorem webu minimalizován
Mohlo by to být upraveno tak, aby se zobrazilo datum vytvoření ostatní uzavřené soubory? Chtěl bych porovnat datum vytvoření souboru na mé ploše se souborem na veřejném webovém serveru. Mohl bych vytvořit vzorec pro použití vašich funkcí...CreateDate() místního souboru na CreateDate() webového souboru...a upozornit mě na změnu. Oceňuji tvou pomoc. Bruce
Tento komentář byl moderátorem webu minimalizován
Díky za pomoc, ale také jsem měl problém s tím, že se buňka po uložení neaktualizovala, aniž bych musel nejprve zavřít a znovu otevřít sešit. Přidal jsem následující kód do sešitu, který se obnoví po události uložení: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub To se mi osvědčilo. Doufám, že to pomůže.
Tento komentář byl moderátorem webu minimalizován
Vidím, že na „Čas posledního uložení“ se v kódu odkazuje pouze JEDNOU. Používám Excel 2010. Když do funkce vložím „Last Save Time“, a to i s Application.Volatile(true), hodnota se nikdy neaktualizuje. Pak jsem si všiml, že hodnota vrácená „Čas posledního uložení“ se nezobrazuje na stránce „Vlastnosti“ aplikace Excel 2010 ANI na žádné z karet v dialogovém okně „Pokročilé vlastnosti“. Může být „Last Save Time“ nějakým přežitkem?
Tento komentář byl moderátorem webu minimalizován
Zjistil jsem, proč mi „Poslední úspora času“ nefunguje. Vložil jsem svou funkci do svého souboru .XLA a "ThisWorkbook" odkazoval na samotný soubor .XLA. Proto jsem potřeboval získat Application.ActiveWorkbook (pravděpodobně umístění volání funkce), které končí: Function DocumentProperty(PropertyName As String) ' 'Na vlastnosti dokumentu můžete odkazovat buď podle hodnoty indexu, nebo podle názvu. V následujícím seznamu jsou uvedeny dostupné vestavěné názvy vlastností dokumentu: 'Název Předmět Autor 'Klíčová slova Šablona komentářů 'Poslední autor Číslo revize Název aplikace 'Datum posledního tisku Datum vytvoření Datum posledního uložení 'Celkový čas úprav Počet stran Počet slov 'Počet Kategorie zabezpečení znaků 'Správce formátů Společnost 'Počet bajtů Počet řádků Počet odstavců 'Počet snímků Počet poznámek Počet skrytých snímků 'Počet multimediálních klipů Hypertextový odkaz Základní Počet znaků (s mezerami) Volat Application.Volatile(True) Dim ActiveUserWorkbook On Error Pokračovat Další Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Chyba při získávání Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyNumName) If Err 0 Then DocumentProperty = "!!! Neznámý název vlastnosti!!!" Exit Function End If End Function
Tento komentář byl moderátorem webu minimalizován
Ahoj týme, potřebuji vaši pomoc. Mám soubor Excel, tam chci najít upravené datum konkrétní buňky. Pokud je to možné, pomozte mi s kódováním zde. Díky předem.
Tento komentář byl moderátorem webu minimalizován
Chci automaticky vytvořit mezeru mezi každým zákazníkem v Excelu, jak to udělat?
Tento komentář byl moderátorem webu minimalizován
MILUJU TĚ!!!! TKSSSSSSS
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění