tempo di lavoro su un file excel

Question

Vorrei sapere se, da qualche parte, è riportato il tempo di lavoro trascorso su un file di Excel?

Answer 1

Vorrei sapere se, da qualche parte, è riportato il tempo di lavoro trascorso su un file di Excel?

Cosa intendi per tempo trascorso?

Vuoi sapere quanto tempo è passato dall'apertura alla chiusura del file?

Copia/incolla questo nel modulo di codice di ThisWorkbook ( Questa_cartella_di _lavoro per le versioni dalla 2010 in poi):

Option Explicit

Private mTime As Date

Private Sub Workbook_Open()

    mTime = Now

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    MsgBox Format(Now - mTime, "hh:mm:ss")

End Sub

Se non hai mai utilizzato il vb di Excel vedi:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Answer 2

Bene. Ora riesco a vedere il tempo che ho trascorso sul file tra l'apertura e la chiusura per ogni sessione di lavoro sul file. Grazie.

Dato che uso un file di Excel per più giorni in modo intermittente, non è possibile vedere il tempo totale di lavoro su quel file? (in Word, ad esempio, c'è il "tempo totale modifica" tra le proprietà del file che mi dà questa informazione)

Answer 3

Bene. Ora riesco a vedere il tempo che ho trascorso sul file tra l'apertura e la chiusura per ogni sessione di lavoro sul file. Grazie.

Dato che uso un file di Excel per più giorni in modo intermittente, non è possibile vedere il tempo totale di lavoro su quel file? (in Word, ad esempio, c'è il "tempo totale modifica" tra le proprietà del file che mi dà questa informazione)

In Excel hai i fogli. Ne crei uno e lo chiami Tempi (o come vuoi tu). Quindi ad ogni chiusura del file puoi segnare data e tempo di lavoro.

Ad esempio, dato per scontato che tu abbia il foglio Tempi, modifica così quanto ho postato in precedenza:

Option Explicit

Private mTime As Date

Private Sub Workbook_Open()

    mTime = Now

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim lRiga As Long

    With Me.Worksheets("Tempi")

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row + 1

        .Range("A" & lRiga).Value = Format(Now - mTime, "hh:mm:ss")

        .Range("B" & lRiga).Value = Format(Now, "mm/dd/yyyy")

    End With

End Sub

Answer 4

Grazie per l'informazione.

Answer 5

Ciao Jonathan,

Vorrei sapere se, da qualche parte, è riportato il tempo di lavoro trascorso su un file di Excel?

Per quanto ne so io (AFAIK), almeno nativamente, credo di no. Tuttavia, sarebbe estremamente semplice di utilizzare gli eventi Workbook_Open e Workbook_BeforeClose della cartella di lavoro per registrare questo tempo.

Se vorresti una tale soluzione VBA, sarò felice di postare codice adatto.

===

Regards,

Norman