Indsættelse af Gemt dato i en Sidehoved eller Sidefod

Der kan være tidspunkter, hvor du vil have din sidehoved eller sidefod til at indeholde datoen for den sidste gang, at projektmappen blev gemt. Normalt er dette ikke oplysninger, som du kan sætte i Excel. Men kan du bruge følgende makro til at tvinge oplysningerne i det korrekte sted:

Sub MyFooter ()
Dim mh As String
Ved fejl Resume Next
mh = ActiveWorkbook.BuiltinDocumentProperties ("Sidste Spar tid")
Hvis Err = 440 Derefter
Err = 0
mh = ActiveWorkbook.BuiltinDocumentProperties ("Oprettelsesdato")
Hvis Err = 440 Derefter
Err = 0
MH = "ikke indstille"
End hvis
End hvis
mh = Venstre (mh, 8)
ActiveSheet.PageSetup.LeftFooter = "Gemt:" & mh
End Sub

Der er en række punkter at bemærke i denne makro. Først og fremmest er det forsøger at bestemme den sidste (og tid) at projektmappen blev gemt. Hvis disse oplysninger ikke kan bestemmes, så udtrækker den dato, den blev oprettet. Endelig, hvis der ikke kan findes, så det sætter sidefoden til "ikke gemt."

Bemærk, at der er en vis fejlhåndtering gjort i denne makro. Årsagen er, at Excel vil returnere en fejl, hvis et bestemt dokument ejendom (BuiltinDocumentProperty i dette tilfælde) ikke er indstillet. Fejlen skal opfanges og håndteres, hvilket sker her.

Du bør bemærke, at denne makro, når køre, vil sætte den venstre sidefod til den ønskede information. Disse oplysninger vil ikke ændre igen, indtil du køre makroen igen. Så hvis du altid vil have en up-to-date dato i sidefoden, så skal du enten køre makroen periodisk (måske lige før udskrivning), eller sætte den op til at køre hver gang du åbner dokumentet.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (2055) gælder for Microsoft Excel 97, 2000, 2002, og 2003.


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