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

Cum se creează cronometru în foaia de lucru Excel?

Dacă există un cronometru în foaia dvs. de lucru, veți ști timpul pentru a termina o lucrare. Cum puteți crea un cronometru într-o foaie cu butonul Start, Stop și Reset, după cum se arată în următoarea captură de ecran? Dacă faceți clic pe butonul Start, va începe timpul, dacă faceți clic pe butonul Stop, acesta va opri timpul și butonul Reset vă poate ajuta să resetați timpul. În acest articol, voi vorbi despre cum să creați un cronometru simplu și la îndemână în Excel.

doc create cronometru 1

Creați un cronometru cu trei butoane utilizând codul VBA


Creați un cronometru cu trei butoane utilizând codul VBA

Pentru a crea un cronometru cu trei butoane, Start, Stop și Reset, faceți pașii următori unul câte unul.

În primul rând, introduceți trei butoane de comandă.

1. Clic Dezvoltator > Insera > Butonul de comanda, vezi captura de ecran:

doc create cronometru 2

2. Apoi trageți mouse-ul pentru a desena un buton, după introducerea butonului, puteți schimba legenda butonului, vă rugăm să faceți clic Dezvoltator > Proprietăţi, În Proprietăţi dialog, introduceți noua legendă „acasă”Pentru acest buton din caseta de text de lângă Legendă, vezi capturi de ecran:

doc create cronometru 3 2 doc create cronometru 4

3. Repetați cei doi pași de mai sus pentru a insera alte două butoane și pentru a le legenda ca „Stop"Și"Reseteaza”, Vezi captura de ecran:

doc create cronometru 5

4. După introducerea butoanelor, trebuie să ieșiți din modul de proiectare făcând clic pe Dezvoltator > Mod de proiectare.

În al doilea rând, creați un cod VBA.

5. Și apoi, faceți clic dreapta pe fila Foaie de lucru curentă și alegeți Afișați codul, în pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în Cod Foaie:

Cod VBA: Creați cronometru:

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 create cronometru 6

notițe: În codul de mai sus, C2 este celula în care va fi inserat timpul cronometru și Butonul Command1, Butonul Command2, Butonul Command3 sunt numele butoanelor, puteți vizualiza numele butonului exact din Cutie de nume, vezi captura de ecran:

doc create cronometru 7

În al treilea rând, formatați celula de timp a cronometrului.

6. Apoi ar trebui să formatați celula de timp ca Text format și puteți modifica dimensiunea celulei, fontul, culoarea fontului, fundalul etc. după cum aveți nevoie, consultați captura de ecran:

doc create cronometru 8

7. După ce ați terminat pașii de mai sus, de acum înainte, când faceți clic acasă butonul, ora va începe acum și faceți clic pe Stop butonul, va opri timpul, Reseteaza butonul va reseta ora, vezi captura de ecran:

doc create cronometru 9


Demo: Creați un cronometru cu trei butoane utilizând codul VBA


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (32)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru această postare, a fost de mare ajutor. Cu toate acestea, există o modalitate de a modifica codul pentru a-l face astfel încât temporizatorul să nu se oprească atunci când o celulă este editată? În mod ideal, aș dori să apăs pe „Start”, să fac o serie de modificări într-un interval de celule din aceeași filă și apoi să apes pe „Stop” pentru timpul total scurs. Orice sfat în acest sens ar fi foarte apreciat!
Acest comentariu a fost redus la minimum de moderatorul de pe site
ti-ai dat seama vreodata de asta? Și eu trebuie să mențin cronometrul în funcțiune în timp ce se fac alte modificări în aceeași foaie de calcul. Mulțumiri. Mike
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta a fost de mare ajutor și foarte ușor de urmat pașii.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat să creez cronometrul folosind aceleași coduri din Formulare. Cronometrul pornește perfect, dar nu se oprește. Vă rugăm să sugerați cum să replicați același lucru în formulare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încercați cronometrul XNote.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există vreo modalitate de a face cronometrul să numere în sus sau în jos până la o anumită oră? Vreau să păstrez butoanele de pornire, oprire și resetare, dar am nevoie ca el să numere până la un minut și o secundă, odată ce apes pe Start. Sau numără invers de la un minut o secundă la zero (01:01). Multumesc pentru ajutor!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Melissa,
dacă trebuie să creați un temporizator cu numărătoare inversă în foaia de lucru, poate că următorul articol vă poate ajuta!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut,

Am văzut acel articol, dar am nevoie ca acesta să arate exact ca cronometrul de pe această pagină, dar am nevoie de el să numere doar de la un minut la secundă. Am nevoie să se afișeze sub formă de cronometru, dar funcționează ca numărătoare inversă. Alte sfaturi?


multumesc pentru raspuns!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este pentru un tablou de bord pe care l-am proiectat în excel.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Grozav, dar este posibil să rulezi 2 ceasuri în aceeași foaie? am făcut un al doilea ceas cu un nou buton de pornire, oprire și resetare, dar la pornirea celui de-al doilea ceas primul se oprește...
Acest comentariu a fost redus la minimum de moderatorul de pe site
la fel și aici puteți găsi remediu pentru acest lucru
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună prieteni,
Această metodă se aplică doar unui set de butoane dintr-o foaie de lucru.
Dacă există alte idei bune, vă rugăm să comentați aici.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să oprim automat cronometrul când ecranul se blochează și să pornim automat cronometrul când deblochăm computerul?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există vreo modalitate de a reseta cronometrul la zero, dar totuși să mențină cronometrul să funcționeze? ie. Când apăs pe Resetare, nu vreau să fiu nevoit să apăs pe Start din nou pentru ca timpul să treacă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, folosesc acest dop, dar destul de des numerele din celula de afișare ("C2") încep să se stingă și se sting - arată semne minus, cifrele sunt incorecte și numărătoarea se pierde. De obicei, se întâmplă după aproximativ o oră sau mai mult, dar uneori chiar înainte de a trece o oră. Este aceasta o eroare comună? și dacă da, există vreo modalitate de a o remedia? Am eliminat .00 (adică milisecundele) din cod pur și simplu ștergând: & "." & Format(0, "00") linia oriunde apare - are vreo legătură cu această problemă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim pentru sfat, a funcționat fără probleme, dar când am introdus date în această foaie, nu mai rulează, avem nevoie de el să funcționeze în continuare o vreme introducerea datelor Cum putem remedia această problemă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Nhoeun,
Poate fi acolo într-un mod nu bun pentru a vă rezolva problema. Când editați o celulă, aceasta va întrerupe macrocomanda executată în prezent.
Dacă aveți altă metodă bună, vă rugăm să comentați aici!
Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
SALUT. Am creat cronometrul, dar trebuie să pot avea diversele intervale dintre pornire și oprire să fie salvate pentru a le putea reflecta ca un studiu al timpului și al mișcării. Vreo sfaturi despre cum să faci asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am terminat toți pașii, dar făcând clic pe butonul de pornire se va afișa mesajul de eroare „Nu se poate rula macrocomandă „‘file.xlsm’!CommandButton1”. Este posibil ca macrocomandă să nu fie disponibilă în acest registru de lucru sau toate macrocomenzile pot fi dezactivate.”. Toate macrocomenzile au fost activate, macrocomandă se află în Modulul 1. NOTĂ: rulez Office 2019 pentru Mac, așa că ar putea fi o problemă...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce zici de adăugarea caracteristicii „+10s” și „2x Speed” în acest cod?
Acest comentariu a fost redus la minimum de moderatorul de pe site
„Timer” este o variabilă aici? nu-i vedeți relevanța în cod.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil ca contorul să numere doar secundele?
Deci, când ajunge la 59 de secunde, continuă cu 60, 61, 62, 63 ....
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei
Au urmat pașii, dar nu pot obține un timp să apară în celula temporizatorului. Am copiat codul, dar pot verifica1. Că numerele liniilor nu sunt necesare sau sunt2. Că am pus codul în modulul 1, nu în foaia1 sau în acest registru de lucru3. Ar trebui să existe o macrocomandă listată în lista de macrocomandă după ce ați făcut toate acestea - a mea nu.
mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Janice, ar trebui să introduceți codul în modulul de foaie activ la pasul 5.
5. Apoi, faceți clic dreapta pe fila curentă a foii de lucru și alegeți Vizualizare cod, în fereastra Microsoft Visual Basic pentru aplicații, copiați și inserați următorul cod în Modul.

Și ar trebui să schimbați numele butonului cu al dvs.
Notă: În codul de mai sus, C2 este celula în care va fi inserată ora cronometrului și Butonul Command1, Butonul Command2, Butonul Command3 sunt numele butoanelor, puteți vedea numele exact al butonului din Caseta de nume.

Vă rugăm să le verificați, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru este genial! Mulțumesc, Chris H
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să utilizați o casetă combinată sau o selecție drop-down pentru a porni și opri ceasul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bonjour, j'ai voulu integrer ce chronomètre à une autre macro determine le temps d'utilisation du fichier. La macro se lansează mai mult blocul utilizării fișierului.Comentați pentru a utiliza cronometrul în același timp pentru alte coduri VBA?MerciHenry.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Mulțumesc pentru asta, cum fac astfel încât să populeze timpul în celulele ulterioare, ex. ora de pornire/oprire pentru celula C2, apoi un timp diferit de pornire/oprire pentru celula c3, c4, c5 etc. 
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL