Přejít k hlavnímu obsahu

Jak určit formát data nebo data a času v záhlaví nebo zápatí?

Normálně, když vložíte datum nebo čas do záhlaví nebo zápatí pomocí &[Datum] or &[Čas] kódu je formát data nebo času založen na regionálním nastavení ovládaném Windows. V tomto případě, jak byste mohli změnit formát data nebo data a času podle svých potřeb v záhlaví nebo zápatí, jak ukazuje následující snímek obrazovky?

datum formátu dokumentu v záhlaví 1

Zadejte formát data nebo času v záhlaví nebo zápatí pomocí kódu VBA


šipka modrá pravá bublina Zadejte formát data nebo času v záhlaví nebo zápatí pomocí kódu VBA

Zde vám představím jednoduchý kód VBA, který vám pomůže vyřešit tento úkol v aplikaci Excel, postupujte takto:

1. Aktivujte list, do kterého chcete vložit, naformátujte datum v záhlaví nebo zápatí a poté klikněte Rozvržení stránky tlačítko v pravém dolním rohu sešitu, abyste povolili zobrazení rozložení stránky, viz screenshot:

datum formátu dokumentu v záhlaví 2

2. Podržte ALT + F11 klávesy v aplikaci Excel k otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vložte a naformátujte datum do záhlaví nebo zápatí:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Poznámka: Ve výše uvedeném kódu můžete změnit CenterHeader na LeftHeader, CenterFooter… A formát data mmmm dd, rrrr lze také změnit podle potřeby.

4. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zadaný formát data byl vložen do záhlaví nebo zápatí najednou. Viz screenshot:

datum formátu dokumentu v záhlaví 3

Tipy: Chcete-li do záhlaví nebo zápatí vložit vlastní formát data a času, použijte následující kód:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

Získáte následující výsledek:

datum formátu dokumentu v záhlaví 4

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
This comment was minimized by the moderator on the site
Hello,
To add the date 1day advanced totay, please apply the following code:
Sub SetAdvancedDateInHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tomorrow As Date
    tomorrow = Date + 1
    ws.PageSetup.CenterHeader = Format(tomorrow, "mm/dd/yyyy")
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:Sub Change_Format()
ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
End Sub
This comment was minimized by the moderator on the site
Hi, Thank You
Can I ask you how can I change the font and size of "Date" by VBA?
I mean with same code that you wrote for insert date into header by VBA.
Thanks
This comment was minimized by the moderator on the site
I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations