Dato Sidste Redigeret

Som en del af at oprette et regneark, kan du sidehovedet eller sidefoden til at indeholde den dato, projektmappen seneste redigering. Excel ikke fastholde denne information, men det giver dig mulighed for at udføre makroer, når visse begivenheder indtræffer, såsom ændringer i en projektmappe. Alt du skal gøre er at tilføje en makro som følgende til ThisWorkbook objekt i VBA Editor:

Private Sub Workbook_SheetChange (ByVal _
Sh Som Object, ByVal Target As Excel.Range)
ActiveSheet.PageSetup.CenterFooter = _
"Arbejdsark Sidst ændret:" & _
Format (Now, "mmmm d, åååå tt: mm")
End Sub

De makro resultater i hver sidefod på hver regneark i projektmappen have separate datoer og tidspunkter på dem, da hvert regneark ville blive opdateret på forskellige tidspunkter. Du kan ændre destination ejendom (.CenterFooter) til en af ​​de andre overskrift eller bundtekst egenskaber (.LeftHeader, .CenterHeader, .RightHeader, .LeftFooter, .RightFooter) som ønsket.

Du ønsker måske sidehovedet eller sidefoden i stedet omfatte den dato, projektmappen sidst blev gemt. (Dette er, hvad mange folk virkelig se som "sidste redigering dato.") Oplysningerne er synlig i dialogboksen Egenskaber for et regneark, men Excel har ingen menuvalg eller anden kommando, der giver dig mulighed for at indsætte denne dato i et sidehoved eller footer. I stedet skal du bruge en makro til at tilføje de ønskede oplysninger.

Den bedste måde at udføre opgaven er at tilføje en makro til ThisWorkbook objekt, der udløses, lige før en projektmappe gemmes:

Private Sub Workbook_BeforeSave (ByVal _
SaveAsUI Som Boolean, Cancel Som Boolean)
Dim SHT
For hver SHT i ark
sht.PageSetup.CenterFooter = _
"Workbook senest gemte:" & _
Format (Now, "mmmm d, åååå tt: mm")
Næste
End Sub

Denne makro trin gennem hvert regneark i projektmappen og ændringer hver center footer at have den dato, projektmappen blev gemt.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (3352) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Dato Sidste redigeres.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com