Come creare un cronometro nel foglio di lavoro di Excel?
Se c'è un cronometro nel tuo foglio di lavoro, saprai l'ora per finire un lavoro. Come puoi creare un cronometro in un foglio con un pulsante Start, Stop e Reset come mostrato nella seguente schermata? Se fai clic sul pulsante Start, inizierà l'ora, se fai clic sul pulsante Stop, si fermerà il tempo e il pulsante Ripristina può aiutarti a ripristinare l'ora. In questo articolo parlerò di come creare un cronometro semplice e pratico in Excel.
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, Start, Stop e Reset, eseguire i seguenti passaggi uno per uno.
Innanzitutto, inserisci tre pulsanti di comando.
1. Clic Costruttori > inserire > Pulsante di comando, vedi screenshot:
2. Quindi trascinare il mouse per disegnare un pulsante, dopo aver inserito il pulsante, è possibile modificare la didascalia del pulsante, fare clic Costruttori > Properties, Nella Properties finestra di dialogo, inserisci la nuova didascalia "Inizio"Per questo pulsante nella casella di testo accanto a Didascalia, vedi screenshot:
3. Ripeti i due passaggi precedenti per inserire altri due pulsanti e sottotitolali come "Fermare" e "Reset", Vedi screenshot:
4. Dopo aver inserito i pulsanti, è necessario uscire dalla modalità di progettazione facendo clic su Costruttori > Modalità di progettazione.
In secondo luogo, crea un codice VBA.
5. Quindi, fai clic con il pulsante destro del mouse sulla scheda del foglio di lavoro corrente e scegli Visualizza codice, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nel file Codice Foglio:
Codice VBA: crea cronometro:
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
Note:: Nel codice sopra, C2 è la cella in cui verrà inserita l'ora del cronometro e il PulsanteComando1, PulsanteComando2, PulsanteComando3 sono i nomi dei pulsanti, puoi visualizzare il nome esatto del pulsante dal file Nome casella, vedi screenshot:
In terzo luogo, formatta la cella dell'ora del cronometro.
6. Quindi dovresti formattare la cella dell'ora come Testo formato, e puoi modificare la dimensione della cella, il carattere, il colore del carattere, lo sfondo, ecc. di cui hai bisogno, vedi screenshot:
7. Dopo aver terminato i passaggi precedenti, d'ora in poi, quando fai clic su Inizio pulsante, l'ora inizierà adesso e fare clic su Fermare pulsante, fermerà il tempo, il Reset il pulsante ripristinerà l'ora, vedi screenshot:
Demo: crea un cronometro con tre pulsanti utilizzando il codice VBA
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!