Come specificare il formato della data o della data e ora nell'intestazione o nel piè di pagina?

Normalmente, quando si inserisce la data o l'ora nell'intestazione o nel piè di pagina utilizzando i codici &[Date] o &[Time], il formato della data o dell'ora è basato sulle impostazioni regionali controllate da Windows. In questo caso, come si potrebbe cambiare il formato della data o della data e ora secondo le proprie esigenze nell'intestazione o nel piè di pagina come mostrato nello screenshot seguente?

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

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

Qui vi presenterò un semplice codice VBA per aiutarvi a risolvere questa operazione in Excel, procedete come segue:

1. Attivate il vostro foglio di lavoro in cui desiderate inserire e formattare la data nell'intestazione o nel piè di pagina, quindi fate clic sul pulsante Layout di pagina nell'angolo in basso a destra della cartella di lavoro per abilitare la visualizzazione del layout di pagina, vedere lo screenshot:

2. Tenete premuti i tasti ALT + F11 in Excel per aprire la finestra di Microsoft Visual Basic for Applications.

3. Cliccate su Inserisci > Modulo, e incollate il seguente codice nella finestra del Modulo.

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

Nota: Nel codice sopra, potete cambiare IntestazioneCentro in IntestazioneSinistra, PièDiPaginaCentro…, e il formato della data mmmm gg, aaaa può essere modificato secondo necessità.

4. Quindi premete il tasto F5 per eseguire questo codice, e il formato della data specificata verrà inserito immediatamente nell'intestazione o nel piè di pagina. Vedere lo screenshot:

Suggerimenti: Se volete inserire il vostro formato di data e ora personalizzato nell'intestazione o nel piè di pagina, applicate il seguente codice:

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

E otterrete il seguente risultato:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!