Note: The other languages of the website are Google-translated. Back to English

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.

doc crea cronometro 1

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:

doc crea cronometro 2

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:

doc crea cronometro 3 2 doc crea cronometro 4

3. Ripeti i due passaggi precedenti per inserire altri due pulsanti e sottotitolali come "Fermare" e "cancella", Vedi screenshot:

doc crea cronometro 5

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

doc crea cronometro 6

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:

doc crea cronometro 7

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:

doc crea cronometro 8

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:

doc crea cronometro 9


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 kte 201905

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!
fondo officetab
Commenti (30)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Grazie per questo post, è stato molto utile. Tuttavia, c'è un modo per modificare il codice per farlo in modo che il timer non si fermi quando una cella viene modificata? Idealmente, vorrei premere "Inizia", ​​apportare una serie di modifiche a un intervallo di celle nella stessa scheda, quindi premere "Interrompi" per il tempo totale trascorso. Qualsiasi consiglio in merito sarebbe molto apprezzato!
Questo commento è stato fatto dal moderatore sul sito
l'hai mai capito? Anch'io devo mantenere attivo il timer mentre vengono apportate altre modifiche allo stesso foglio di calcolo. Grazie. Mike
Questo commento è stato fatto dal moderatore sul sito
Questo è stato di grande aiuto e molto facile seguire i passaggi.
Questo commento è stato fatto dal moderatore sul sito
Ho provato a creare il cronometro utilizzando gli stessi codici in Moduli. Il timer parte perfettamente ma non si ferma. Si prega di suggerire come replicare lo stesso nei moduli
Questo commento è stato fatto dal moderatore sul sito
Prova XNote Cronometro.
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per far sì che il timer conteggi avanti o indietro fino a un'ora specifica? Voglio mantenere i pulsanti di avvio, arresto e ripristino, ma ho bisogno che conti fino a un minuto solo un secondo, una volta premuto start. Oppure conto alla rovescia da un minuto un secondo a zero (01:01). Grazie per l'aiuto!
Questo commento è stato fatto dal moderatore sul sito
Ciao, Melissa,
se hai bisogno di creare un conto alla rovescia nel foglio di lavoro, il seguente articolo può aiutarti!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Questo commento è stato fatto dal moderatore sul sito
Ciao,

Ho visto quell'articolo, ma ho bisogno che assomigli esattamente al cronometro in questa pagina, ma ho bisogno che conti alla rovescia solo da un minuto a un secondo. Ho bisogno che venga visualizzato sotto forma di cronometro, ma funziona come un conto alla rovescia. Qualche ulteriore consiglio?


grazie per avermi risposto!
Questo commento è stato fatto dal moderatore sul sito
È per un tabellone segnapunti che abbiamo progettato in Excel.
Questo commento è stato fatto dal moderatore sul sito
Ottimo, ma è possibile eseguire 2 orologi sullo stesso foglio? ho fatto un secondo orologio con nuovo pulsante start, stop e reset, ma quando si avvia il secondo orologio il primo si ferma....
Questo commento è stato fatto dal moderatore sul sito
lo stesso qui puoi trovare una cura per questo
Questo commento è stato fatto dal moderatore sul sito
Ciao amici,
Questo metodo viene applicato solo a un set di pulsanti in un foglio di lavoro.
Se ci sono altre buone idee, commenta qui.
Questo commento è stato fatto dal moderatore sul sito
È possibile arrestare automaticamente il timer quando lo schermo si blocca e avviare automaticamente il timer quando sblocchiamo il computer?
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per fare in modo che il timer reimposti il ​​conteggio a zero ma mantenga comunque il timer in funzione? Cioè. Quando premo Ripristina, non voglio dover premere nuovamente Start per far scorrere il tempo.
Questo commento è stato fatto dal moderatore sul sito
Ciao, sto usando questo tappo ma abbastanza spesso i numeri nella cella del display ("C2") iniziano a impazzire e si spengono: mostrano segni meno, le cifre non sono corrette e il conteggio viene perso. Di solito accade dopo circa un'ora o più, ma a volte anche prima che trascorra un'ora. È un bug comune? e se si, c'è un modo per risolverlo? Ho rimosso .00 (cioè i millisecondi) dal codice semplicemente cancellando: & "." & Format(0, "00") ovunque appaia - ha qualcosa a che fare con questo problema?
Questo commento è stato fatto dal moderatore sul sito
Grazie per il tuo suggerimento, funzionava senza intoppi ma quando inserisco dati in questo foglio Ha smesso di funzionare, abbiamo bisogno che continui a funzionare per un po' di dati di input Come possiamo risolvere questo problema?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Nhoeun,
Potrebbe non essere presente in un buon modo per risolvere il tuo problema. Quando modifichi una cella, interromperà la macro attualmente eseguita.
Se hai qualche altro buon metodo, per favore commenta qui!
.
Questo commento è stato fatto dal moderatore sul sito
CIAO. Ho creato il cronometro, ma devo poter salvare i vari intervalli tra l'inizio e la fermata per poterli riflettere come studio del tempo e del movimento. Qualche consiglio su come farlo?
Questo commento è stato fatto dal moderatore sul sito
Completati tutti i passaggi, ma facendo clic sul pulsante di avvio viene visualizzato il messaggio di errore "Impossibile eseguire la macro "'file.xlsm'! CommandButton1". La macro potrebbe non essere disponibile in questa cartella di lavoro o tutte le macro potrebbero essere disabilitate.". Tutte le macro sono state abilitate, la macro è nel Modulo1. NOTA: sto utilizzando Office 2019 per Mac, quindi potrebbe essere un problema....
Questo commento è stato fatto dal moderatore sul sito
Che ne dici di aggiungere la funzione "+10s" e "2x Speed" in questo codice?
Questo commento è stato fatto dal moderatore sul sito
è 'timer' una variabile qui? non vedo la sua rilevanza nel codice.
Questo commento è stato fatto dal moderatore sul sito
È possibile far contare solo i secondi al contatore?
Quindi, quando raggiunge 59 secondi, continua con 60, 61, 62, 63 ....
Questo commento è stato fatto dal moderatore sul sito
Ciao
Ho seguito i passaggi ma non riesco a visualizzare l'ora nella cella del timer. Ho copiato il codice ma posso controllare1. Che i numeri di riga non siano necessari o lo siano2. Che ho inserito il codice nel modulo 1 non sheet1 o This workbook3. Dovrebbe esserci una macro elencata nell'elenco delle macro dopo aver fatto tutto questo, la mia no.
Grazie
Questo commento è stato fatto dal moderatore sul sito
Ciao, Janice, dovresti inserire il codice nel modulo del foglio attivo come passaggio 5.
5. Quindi, fare clic con il pulsante destro del mouse sulla scheda del foglio di lavoro corrente e scegliere Visualizza codice, nella finestra di Microsoft Visual Basic, Applications Edition visualizzata, copiare e incollare il codice seguente nel modulo.

E dovresti cambiare il nome del pulsante con il tuo.
Nota: nel codice sopra, C2 è la cella in cui verrà inserito il tempo del cronometro e il PulsanteComando1, PulsanteComando2, PulsanteComando3 sono i nomi dei pulsanti, è possibile visualizzare il nome esatto del pulsante dalla casella Nome.

Si prega di controllarli, grazie!
Questo commento è stato fatto dal moderatore sul sito
È brillante! Grazie Chris H
Questo commento è stato fatto dal moderatore sul sito
È possibile utilizzare una casella combinata o una selezione a discesa per avviare e fermare l'orologio
Questo commento è stato fatto dal moderatore sul sito
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Questo commento è stato fatto dal moderatore sul sito
Ciao! Grazie per questo, come posso farlo in modo da popolare il tempo nelle celle successive, ad es. ora di inizio/fine per la cella C2, quindi un tempo di inizio/fine diverso per la cella c3, c4, c5 ecc 
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL