Data ultima modifica (Microsoft Excel)
Come parte della configurazione di un foglio di lavoro, potresti volere che l’intestazione o il piè di pagina contengano la data dell’ultima modifica della cartella di lavoro. Excel non conserva queste informazioni, ma ti consente di eseguire macro ogni volta che si verificano determinati eventi, come le modifiche a una cartella di lavoro. Tutto quello che devi fare è aggiungere una macro come la seguente all’oggetto ThisWorkbook nell’editor VBA:
Private Sub Workbook_SheetChange(ByVal _ Sh As Object, ByVal Target As Excel.Range) ActiveSheet.PageSetup.CenterFooter = _ "Worksheet Last Changed: " & _ Format(Now, "mmmm d, yyyy hh:mm") End Sub
I risultati della macro in ogni piè di pagina su ogni foglio di lavoro nella cartella di lavoro con date e ore separate, poiché ogni foglio di lavoro verrebbe aggiornato in momenti diversi. È possibile modificare la proprietà di destinazione (.CenterFooter) in una delle altre proprietà di intestazione o piè di pagina (.LeftHeader, .CenterHeader, .RightHeader, .LeftFooter, .RightFooter) come desiderato.
È possibile che l’intestazione o il piè di pagina includano invece la data dell’ultimo salvataggio della cartella di lavoro. (Questo è ciò che molte persone vedono realmente come la “data dell’ultima modifica”.) Le informazioni sono visibili nella finestra di dialogo Proprietà per un foglio di lavoro, ma Excel non ha alcuna selezione di menu o altro comando che ti consenta di inserire questa data in un’intestazione o piè di pagina. È invece necessario utilizzare una macro per aggiungere le informazioni desiderate.
Il modo migliore per svolgere l’attività è aggiungere una macro all’oggetto ThisWorkbook che viene attivato appena prima che una cartella di lavoro venga salvata:
Private Sub Workbook_BeforeSave(ByVal _ SaveAsUI As Boolean, Cancel As Boolean) Dim sht For Each sht In Sheets sht.PageSetup.CenterFooter = _ "Workbook Last Saved: " & _ Format(Now, "mmmm d, yyyy hh:mm") Next End Sub
Questa macro passa attraverso ogni foglio di lavoro nella cartella di lavoro e modifica ogni piè di pagina centrale per avere la data in cui è stata salvata la cartella di lavoro.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (3352) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui: