Přejít k hlavnímu obsahu

Jak vložit datum poslední změny do záhlaví nebo zápatí aplikace Excel?

V aplikaci Excel můžeme do záhlaví nebo zápatí rychle a snadno vložit informace sešitu, například název souboru, úplnou cestu k souboru, aktuální datum atd. Pokusili jste se ale někdy do nich vložit datum a čas poslední úpravy listu? Excel neposkytuje tuto funkci, abychom mohli vložit poslední upravené datum do záhlaví nebo zápatí, a zde vám představím praktický způsob, jak to vyřešit.

Vložte datum poslední úpravy do záhlaví nebo zápatí aplikace Excel s kódem VBA

Vložte poslední upravené datum / vytvořené datum / záhlaví / zápatí uživatele do Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina Vložte datum poslední úpravy do záhlaví nebo zápatí aplikace Excel s kódem VBA

Následující jednoduchý kód VBA vám pomůže vložit poslední uložené datum a čas listu do záhlaví nebo zápatí, postupujte takto:

1. Aktivujte list, do kterého chcete vložit datum poslední změny do záhlaví nebo zápatí.

2. Poté přidržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

3. Vlevo Projekt VBA v podokně poklepejte Tato pracovní kniha k otevření Modul, poté zkopírujte a vložte následující kód.

Kód VBA: Vložte poslední upravené datum do záhlaví nebo zápatí

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "Last saved: " & Format(Date, "mm-dd-yy") & " " & Time
End Sub

doc-insert-last-saved-date-to-header-1

4. Poté tento kód uložte a zavřete a klikněte na něj Pohled > Rozvržení stránky zobrazit výsledek. A můžete vidět, že poslední upravené datum a čas byly vloženy do středového záhlaví. Zobrazit snímky obrazovky:

doc-insert-last-saved-date-to-header-2
-1
doc-insert-last-saved-date-to-header-3

Poznámky:

1. Datum a čas poslední úpravy se aktualizují automaticky, když upravíte a uložíte soubor aplikace Excel.

2. Pokud potřebujete vložit toto poslední uložené datum a čas do levého záhlaví / zápatí, pravého záhlaví / zápatí nebo středního zápatí, stačí změnit CenterHeader ve výše uvedeném kódu na vaši žádost.


šipka modrá pravá bublina Vložte poslední upravené datum / vytvořené datum / záhlaví / zápatí uživatele do Kutools pro Excel

S Kutools pro Excel můžete použít nástroj Vložit informace o sešitu k rychlému vložení informací o sešitu do záhlaví, zápatí nebo buňky.

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

Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)

klikněte Kutools Plus > Cvičebnice >Vložte informace o sešitua v rozbalovacím dialogovém okně zkontrolujte informace, které chcete vložit, a přejděte na Vložte na část, zkontrolujte Rozsah, Hlavička or Zápatí možnost a určete, zda chcete vložit do levého záhlaví / zápatí, středního záhlaví / zápatí nebo pravého záhlaví / zápatí, aby vyhovovalo vašim potřebám.
doc vložte informace o sešitu
doc vložte informace o sešitu

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


Související článek:

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

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

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...

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 snižuje stovky kliknutí myší každý den!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Why do I have to load the VB code into 'ThisWorkBook' of the VBAproject for every new workbook created? I would think that if I loaded the VB code into 'ThisWorkBook' of VBAHOME (PERSONAL.XLSB) if would be retained and available cresting new workbooks
This comment was minimized by the moderator on the site
Just tried it after moving the center header to the left footer. Didn't work. What I saved at 1:20 pm still recorded as 1:00 pm. Your help would be most appreciated. BTW, my spreadsheet was created as Excel 2007, and I made changes at the library on Excel 2016. Generally, I can go back and forth between versions with no problems.
Also, I didn't realize my name would be published. Any chance of changing it to Nancy E.?
Many thanks!
This comment was minimized by the moderator on the site
THANK YOU! That was invaluable. Who'd believe that Microsoft would exclude such an important function! What about Word? Is it done the same way now?
This comment was minimized by the moderator on the site
Thanks for the Info.
This comment was minimized by the moderator on the site
perfect.very useful ;-)
This comment was minimized by the moderator on the site
I did this and it works. I saved the file as .xlsx and closed it. Now, when I open it, I open the VBA coding window but I am not able to find this chunk of code to edit it. I would like to play with location and remove time. Thank you.
This comment was minimized by the moderator on the site
@John R. When you get to the VBA coding window, on the left section of the screen you need to double-click "ThisWorkbook" to open the right section of the screen. Then in the right section (at the top) you need to select "Workbook" and "BeforeSave". That should hopefully show you the chunk of code that you're looking for.
This comment was minimized by the moderator on the site
I tried this technique but could only get it to show up on one sheet. Help?
This comment was minimized by the moderator on the site
Thanks! I maintain an employee phone number and extension list. People get hired, quit, move to different extensions. If someone wants a copy I print it off, but it only showed the date and time it was printed -- not necessarily the most current information. It was difficult to tell if you had two different copies which one was the most up-to-date. Showing the last time the file was saved will do what I wanted!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations