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 > Proprietà, Nella Proprietà finestra di dialogo, inserisci la nuova didascalia "Inizia"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 "cancella", 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 Modulo:
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 Inizia pulsante, l'ora inizierà adesso e fare clic su Fermare pulsante, fermerà il tempo, il cancella 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
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
