Hoe kunt u een datum- of datumtijdformaat specificeren in de koptekst of voettekst?

Normaal gesproken, wanneer u een datum of tijd invoegt in de koptekst of voettekst met de code &[Date] of &[Time], is het datum- of tijdformaat gebaseerd op de regionale instellingen die door Windows worden beheerd. In dit geval, hoe kunt u dan het datum- of datumtijdformaat aanpassen aan uw eigen behoeften in de koptekst of voettekst zoals in de volgende schermafbeelding wordt getoond?

Specificeer datum of datumtijdformaat in koptekst of voettekst met VBA-code

Specificeer datum of datumtijdformaat in koptekst of voettekst met VBA-code

Hier introduceer ik enkele eenvoudige VBA-codes om u te helpen deze taak in Excel uit te voeren. Volg de onderstaande stappen:

1. Activeer uw werkblad waarin u de datum wilt invoegen en formatteren in de koptekst of voettekst, en klik vervolgens op de knop Pagina-indeling in de rechterbenedenhoek van het werkboek om de paginalay-outweergave in te schakelen, zie onderstaande schermafbeelding:

2. Houd de toetsen ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Datum invoegen en formatteren in koptekst of voettekst:

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

Opmerking: In de bovenstaande code kunt u CentrerenKoptekst wijzigen naar LinksKoptekst, CentrerenVoettekst…, en het datumformaat mmmm dd, jjjj kan ook worden aangepast zoals u nodig hebt.

4. Druk vervolgens op de F5-toets om deze code uit te voeren, en uw gespecificeerde datumformaat wordt onmiddellijk ingevoegd in de koptekst of voettekst. Zie onderstaande schermafbeelding:

Tips: Als u uw eigen datumtijdformaat in de koptekst of voettekst wilt invoegen, gebruikt u de volgende code:

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

En u krijgt het volgende resultaat:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!