Come creare un cronometro nel foglio di lavoro di Excel?

Se hai bisogno di un cronometro nel tuo foglio di lavoro di Excel, può aiutarti a tenere traccia del tempo necessario per completare le attività. Immagina di avere un pulsante Avvia, Stop e Resetta per controllare il cronometro, come mostrato nello screenshot qui sotto. Cliccando sul pulsante Avvia si avvia il timer, il pulsante Stop lo mette in pausa e il pulsante Resetta cancella il tempo. In questo articolo ti mostreremo passo dopo passo come creare un semplice ma funzionale cronometro in Excel utilizzando il codice VBA.

Crea un cronometro con tre pulsanti utilizzando il codice VBA

 Crea un cronometro con tre pulsanti utilizzando il codice VBA

Per creare un cronometro con tre pulsanti, Avvia, Stop e Resetta, segui i seguenti passaggi uno alla volta.

Innanzitutto, inserisci tre pulsanti di comando.

1. Clicca su "Sviluppatore" > "Inserisci" > "Pulsante di comando", vedi screenshot:

2. Quindi trascina il mouse per disegnare un pulsante, dopo aver inserito il pulsante, puoi cambiare la didascalia del pulsante, clicca su "Sviluppatore" > "Proprietà", nella finestra "Proprietà", inserisci la nuova didascalia "Avvia" per questo pulsante nella casella di testo accanto a "Didascalia", vedi screenshot:

3. Ripeti i due passaggi precedenti per inserire gli altri due pulsanti e denominarli come “Stop” e “Resetta”, vedi screenshot:

4. Dopo aver inserito i pulsanti, esci dalla modalità progettazione cliccando su "Sviluppatore" > "Modalità Progettazione".

In secondo luogo, crea un codice VBA.

5. Successivamente, fai clic con il tasto destro sul nome della scheda del foglio di lavoro corrente e scegli "Visualizza Codice", nella finestra pop-up "Microsoft Visual Basic for Applications", copia e incolla il seguente codice nella sezione "Codice Foglio":

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

Nota: Nel codice sopra, "C2" è la cella in cui verrà inserito il tempo del cronometro, e "CommandButton1", "CommandButton2", "CommandButton3" sono i nomi dei pulsanti, puoi visualizzare il nome esatto del pulsante dalla "Casella Nome", vedi screenshot:

Terzo, formatta la cella del tempo del cronometro.

6. Quindi dovresti formattare la cella del tempo come formato "Testo", e puoi modificare la dimensione della cella, il carattere, il colore del carattere, lo sfondo, ecc. come necessario, vedi screenshot:

7. Dopo aver completato i passaggi precedenti, da ora in poi, quando clicchi sul pulsante "Avvia", il tempo inizierà, e quando clicchi sul pulsante "Stop", si fermerà. Il pulsante "Resetta" azzererà il tempo, vedi screenshot:

Demo: Crea un cronometro con tre pulsanti utilizzando il codice VBA