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.

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:

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:

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:

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

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:

Î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:

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:

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