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 c’è niente lì, 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 Resume Next     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.FullName).dateCreated     If Err.Number <> 0 Then         CreateDate = "Not Saved"

Else         CreateDate = Left(Temp, InStr(Temp, " ") - 1)

End If     On Error Goto 0 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.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (10234) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui:

Annotando la data di creazione della cartella di lavoro.