Bemerke arbeidsbok Dato opprettet

February 20  by Eliza

Når du utvikler et regneark, kan det hende du trenger å holde styr på visse opplysninger om arbeidsboken. For eksempel, kan det være lurt å plassere den dato en arbeidsbok i en celle. Mens Excel gjør gi noen regnearkfunksjoner for datoer (som nå eller TODAY), gir den ikke et regnearkfunksjonen for å få tilgang til arbeidsboken opprettelsesdato.

Det vil si at svaret ligger i anvendelse av en makro. For eksempel kan du lage en makro som ville bestemme gjeldende dato og innspill den (som tekst) inn i en bestemt celle. Denne makroen kan kjøres når du har opprettet en ny arbeidsbok ved å navngi den makro Auto_Open. Det følgende er et eksempel på en slik makro:

Sub Auto_Open ()
Hvis Worksheets.Application.Range ("A1") = "" Then
Worksheets.Application.Range ("A1") = Format (dato, "lang Date")
End If
End Sub

Makro sjekker for å se hva som er i celle A1. Hvis det ikke er noe der, så det setter tekstversjon av dagens dato i det. Hvis det er noe som allerede er der (som det ville være hver gang du senere åpne arbeidsboken), så informasjonen er intakt og uskadd.

Kanskje den mest tilfredsstillende tilnærming, derimot, er å faktisk få tilgang til operativsystemet og trekk filopprettelsesdato for den gjeldende arbeidsboken. Dette kan gjøres med følgende makrofunksjonen:

Funksjon CreateDate () As String
Dim Temp As String

On Error Resume Next
Temp = Create ("scripting.filesystemobject"). _
GetFile (ActiveWorkbook.Name) .dateCreated
Hvis err.number <> 0 Then
CreateDate = "Ikke Lagret"
Else
CreateDate = Left (Temp, InStr (Temp, "") - 1)
End If
On Error Goto 0
End Function

Legg merke til at denne tilnærmingen ikke er knyttet til en bestemt celle i regnearket. Å bruke makroen, enkelt sagt følgende i en hvilken som helst celle i regnearket:

= CreateDate ()

Funksjonen returnerer enten "Ikke frelst" (hvis arbeidsboken er helt ny og har ikke vært lagret før) eller den returnerer en tekstverdi som representerer den dag arbeidsboken ble opprettet.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (10234) gjelder for Microsoft Excel 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: merker seg arbeidsbok Dato opprettet.