Vai al contenuto principale

Come specificare la data o il formato datetime nell'intestazione o nel piè di pagina?

Normalmente, quando inserisci la data o l'ora nell'intestazione o nel piè di pagina con l'estensione &[Data] or &[Tempo] code, il formato della data o dell'ora si basa sulle impostazioni internazionali controllate da Windows. In questo caso, come potresti modificare il formato della data o dell'ora in base alle tue esigenze nell'intestazione o nel piè di pagina come mostrato nella seguente schermata?

data in formato doc nell'intestazione 1

Specifica il formato della data o della data nell'intestazione o nel piè di pagina con il codice VBA

freccia blu freccia destra Specifica il formato della data o della data nell'intestazione o nel piè di pagina con il codice VBA

Qui, introdurrò un semplice codice VBA per risolvere questa attività in Excel, per favore fai come segue:

1. Attiva il foglio di lavoro in cui desideri inserire e formatta la data nell'intestazione o nel piè di pagina, quindi fai clic su layout di pagina pulsante nell'angolo in basso a destra della cartella di lavoro per abilitare la visualizzazione del layout di pagina, vedi screenshot:

data in formato doc nell'intestazione 2

2. Tieni premuto il ALT + F11 in Excel per aprire il file Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: inserisci e formatta la data nell'intestazione o nel piè di pagina:

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

Note:: Nel codice sopra, puoi cambiare il file Intestazione centrale a Intestazione sinistra, CenterFooer... e il formato della data mmmm gg, aaaa può anche essere modificato in base alle tue esigenze.

4. E poi premere F5 chiave per eseguire questo codice e il formato della data specificato è stato inserito nell'intestazione o nel piè di pagina contemporaneamente. Vedi screenshot:

data in formato doc nell'intestazione 3

Suggerimenti:: Se desideri inserire il tuo formato di data e ora nell'intestazione o nel piè di pagina, applica il codice seguente:

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

E otterrai il seguente risultato:

data in formato doc nell'intestazione 4

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione

Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (8)
No ratings yet. Be the first to rate!
Estefania
Estefania
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 :(
Reply
0
0
skyyang
skyyang     Estefania
This comment was minimized by the moderator on the site
Hello, Estefania
To make the month in the date appear in uppercase, you can use the UCase function in VBA to convert the month to uppercase. Here’s how you can modify your code:
Sub add_date_header()
    ActiveSheet.PageSetup.CenterHeader = UCase(Format(Date, "mmmm dd, yyyy"))
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
jtlw
jtlw
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
Reply
0
0
skyyang
skyyang     jtlw
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!
Reply
Report
0
0
C Harvey
C Harvey
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
Reply
0
0
Kasra
Kasra
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
Reply
0
0
Paula McSorley
Paula McSorley
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?
Reply
0
0
Judy Kunz
Judy Kunz
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations