Ga naar hoofdinhoud

Hoe datum- of datetime-formaat specificeren in kop- of voettekst?

Normaal gesproken, wanneer u datum of tijd invoegt in de kop- of voettekst met de &[Datum] or &[Tijd] code, is de datum- of tijdnotatie gebaseerd op de regionale instellingen die worden beheerd door Windows. Hoe zou u in dit geval de datum- of datumtijdnotatie kunnen wijzigen naar uw eigen behoefte in kop- of voettekst zoals in het volgende screenshot wordt getoond?

doc formaat datum in koptekst 1

Specificeer de datum- of datum-tijdnotatie in kop- of voettekst met VBA-code


pijl blauw rechts bel Specificeer de datum- of datum-tijdnotatie in kop- of voettekst met VBA-code

Hier zal ik een aantal eenvoudige VBA-code voor u introduceren om deze taak in Excel op te lossen, doe dit als volgt:

1. Activeer uw werkblad dat u wilt invoegen en formatteer de datum in kop- of voettekst, en klik vervolgens op Pagina layout knop in de rechter benedenhoek van de werkmap om de weergave van de pagina-indeling in te schakelen, zie screenshot:

doc formaat datum in koptekst 2

2. Houd de ALT + F11 toetsen in Excel om het Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: datum invoegen en opmaken in kop- of voettekst:

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

Note: In de bovenstaande code kunt u de Centrumkop naar Linkerkoptekst, Middenvoettekst…, En de datumnotatie mmmm dd, jjjj kan ook worden veranderd aangezien u nodig hebt.

4. En druk vervolgens op F5 toets om deze code uit te voeren, en uw gespecificeerde datumnotatie is meteen in de kop- of voettekst ingevoegd. Zie screenshot:

doc formaat datum in koptekst 3

Tips: Als u uw eigen datum-tijdnotatie in de kop- of voettekst wilt invoegen, past u de onderstaande code toe:

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

En je krijgt het volgende resultaat:

doc formaat datum in koptekst 4

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, how can I change to upper case the month? I tried a few things but doesn't work :(
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