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
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!
