Come creare un cronometro nel foglio di lavoro di Excel?
Se hai bisogno di un cronometro nel tuo foglio di lavoro Excel, può aiutarti a tenere traccia del tempo impiegato per completare le attività. Immagina di avere pulsanti **Avvia**, **Interrompi** e **Reimposta** per controllare il cronometro, come mostrato nell’immagine seguente: cliccando su **Avvia** si avvia il timer, **Interrompi** lo mette in pausa e **Reimposta** azzera il tempo trascorso. In questo articolo ti guideremo passo dopo passo nella creazione di un cronometro semplice ma funzionale in Excel, utilizzando il codice VBA.
Crea un cronometro con tre pulsanti utilizzando codice VBA
Crea un cronometro con tre pulsanti utilizzando codice VBA
Per creare un cronometro con tre pulsanti – Avvia, Interrompi e Reimposta – segui questi passaggi uno alla volta.
Innanzitutto, inserisci tre pulsanti di comando.
1. Fai clic su «Sviluppo» > «Inserisci» > «Pulsante di comando», come mostrato nello screenshot:
2. Trascina quindi il mouse per disegnare un pulsante. Dopo averlo inserito, puoi modificarne la didascalia: fai clic su «Sviluppo» > «Proprietà». Nella finestra di dialogo «Proprietà», digita la nuova didascalia «Avvia» nella casella di testo accanto a «Didascalia», come mostrato nello screenshot:
 |  |  |
3. Ripeti i due passaggi precedenti per inserire altri due pulsanti e assegnare loro le didascalie «Interrompi» e «Reimposta»; vedi screenshot:
4. Dopo aver inserito i pulsanti, esci dalla modalità progettazione facendo clic su «Sviluppo» > «Modalità progettazione».
Successivamente, crea il codice VBA.
5. Fai quindi clic con il tasto destro sulla scheda del foglio di lavoro corrente e seleziona «Visualizza codice». Nella finestra di «Microsoft Visual Basic for Applications» che si apre, copia e incolla il seguente codice nel riquadro «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, mentre «CommandButton1», «CommandButton2» e «CommandButton3» sono i nomi dei pulsanti. Puoi visualizzare il nome esatto di ciascun pulsante dalla «Casella nome», vedi screenshot:
In terzo luogo, formatta la cella che visualizza il tempo del cronometro.
6. A questo punto, imposta il formato della cella del tempo su «Testo» e, se necessario, modifica dimensioni della cella, carattere, colore del carattere, sfondo, ecc. (vedi screenshot).
7. Una volta completati i passaggi precedenti, d’ora in poi il tempo partirà non appena fai clic sul pulsante «Avvia» e si fermerà quando premi «Interrompi». Il pulsante «Reimposta» azzera il conteggio: vedi screenshot.
Demo: crea un cronometro con tre pulsanti utilizzando codice VBA
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi