Annotazione della data di creazione della cartella di lavoro (Microsoft Excel)
Quando si sviluppa un foglio di lavoro, potrebbe essere necessario tenere traccia di alcune informazioni sulla cartella di lavoro. Ad esempio, potresti voler inserire la data di creazione di una cartella di lavoro in una cella. Sebbene Excel fornisca alcune funzioni del foglio di lavoro per le date (come ADESSO o OGGI), non fornisce una funzione del foglio di lavoro per accedere alla data di creazione della cartella di lavoro.
Ciò significa che la risposta sta nell’usare una macro. Ad esempio, potresti creare una macro che determini la data corrente e la inserisca (come testo) in una cella particolare. Questa macro potrebbe quindi essere eseguita ogni volta che hai creato una nuova cartella di lavoro denominando la macro Auto_Open. Quello che segue è un esempio di tale macro:
Sub Auto_Open() If Worksheets.Application.Range("A1") = "" Then Worksheets.Application.Range("A1") = Format(Date, "long Date") End If End Sub
La macro verifica cosa c’è nella cella A1. Se non è presente nulla, inserisce la versione testuale della data odierna. Se c’è già qualcosa (che ci sarebbe ogni volta che apri successivamente la cartella di lavoro), le informazioni vengono lasciate intatte e illese.
Forse l’approccio più soddisfacente, tuttavia, è accedere effettivamente al sistema operativo e recuperare la data di creazione del file per la cartella di lavoro corrente. Questo può essere fatto con la seguente funzione macro:
Function CreateDate() As String Dim Temp As String On Error GoTo NoFile Temp = CreateObject("scripting.filesystemobject"). _ GetFile(ActiveWorkbook.Name).dateCreated CreateDate = Left(Temp, InStr(Temp, " ") - 1) GoTo Done NoFile: CreateDate = "Not Saved" Done: End Function
Si noti che questo approccio non è legato a una particolare cella nel foglio di lavoro. Per usare la macro, metti semplicemente quanto segue in una qualsiasi cella del tuo foglio di lavoro:
=CreateDate()
La funzione restituisce “Non salvato” (se la cartella di lavoro è nuova di zecca e non è stata salvata prima) oppure restituisce un valore di testo che rappresenta la data in cui è stata creata la cartella di lavoro.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (2367) 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: