Innsetting av Lagret Dato I en topp- eller bunntekst

November 13  by Eliza

Det kan være ganger når du vil at topp- eller bunnteksten skal inneholde dato for siste gang at arbeidsboken ble lagret. Normalt er dette ikke informasjonen du kan stille i Excel. Men, kan du bruke følgende makro å tvinge informasjon til riktig sted:

Sub MyFooter ()
Dim mh As String
On Error Resume Next
mh = ActiveWorkbook.BuiltinDocumentProperties ("Siste Spar tid")
Hvis Err = 440 Da
Err = 0
mh = ActiveWorkbook.BuiltinDocumentProperties ("Creation Date")
Hvis Err = 440 Da
Err = 0
mh = "ikke valgt"
End If
End If
mh = Left (mh, 8)
ActiveSheet.PageSetup.LeftFooter = "Saved:" & mh
End Sub

Det finnes en rekke elementer å merke seg i denne makroen. Først av alt, forsøker den å bestemme den siste datoen (og tid) at arbeidsboken ble lagret. Hvis denne informasjonen ikke kan bestemmes, så det trekker datoen den ble opprettet. Til slutt, hvis det ikke kan bli funnet, så det setter bunnteksten til "ikke lagret."

Legg merke til at det ikke er noen feilbehandling utført i denne makro. Årsaken er at Excel vil returnere en feil hvis en bestemt dokument eiendom (BuiltinDocumentProperty i dette tilfellet) ikke er satt. Feilen trenger å bli fanget opp og håndteres, som er gjort her.

Du bør være oppmerksom på at denne makroen, en gang kjøre, vil sette venstre bunnteksten til ønsket informasjon. Denne informasjonen vil ikke endre igjen før du kjører makroen på nytt. Dermed, hvis du alltid vil ha en up-to-date dato i bunnteksten, så bør du enten kjøre makroen med jevne mellomrom (kanskje rett før utskrift), eller sette den opp til å kjøre hver gang du åpner dokumentet.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2055) gjelder for Microsoft Excel 97, 2000, 2002, og 2003.