Kako ustvariti štoparico na Excelovem delovnem listu?

Če je na vašem delovnem listu štoparica, boste vedeli čas za dokončanje opravila. Kako lahko ustvarite štoparico na listu z gumbom Start, Stop in Reset, kot je prikazano na sliki spodaj? Če kliknete gumb Start, se bo začel čas, če kliknete gumb Stop, bo čas ustavil, gumb Reset pa vam lahko pomaga pri ponastavitvi časa. V tem članku bom govoril o tem, kako v Excelu ustvariti preprosto in priročno štoparico.

S kodo VBA ustvarite štoparico s tremi gumbi

S kodo VBA ustvarite štoparico s tremi gumbi

Če želite ustvariti štoparico s tremi gumbi, Start, Stop in Reset, naredite naslednje po korakih.

Najprej vstavite tri ukazne gumbe.

1. Kliknite Razvojni > Vstavi > Gumb za ukaze, glej posnetek zaslona:

2. Nato povlecite miško, da narišete gumb, po vstavitvi gumba lahko spremenite napis gumba, kliknite Razvojni > NepremičnineV Nepremičnine vnesite nov napis »Začetek"Za ta gumb v besedilnem polju poleg napis, glej posnetke zaslona:

3. Ponovite zgornja dva koraka, da vstavite druga dva gumba in jih napišete kot »stop"In"Ponastavi”, Glej posnetek zaslona:

4. Po vstavitvi gumbov zapustite način oblikovanja s klikom Razvojni > Način oblikovanja.

Drugič, ustvarite kodo VBA.

5. Nato z desno miškino tipko kliknite trenutni zavihek delovnega lista in izberite Ogled kode, v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v Koda lista:

Koda VBA: Ustvari štoparico:

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

Opombe: V zgornji kodi, C2 je celica, v katero bo vstavljen čas štoparice, in Ukazni gumb1, Ukazni gumb2, Ukazni gumb3 so imena gumbov, natančno ime gumba si lahko ogledate na ime Box, glej posnetek zaslona:

Tretjič, formatirajte celico štoparice.

6. Nato časovno celico formatirajte kot Besedilo format in lahko po potrebi spremenite velikost celice, pisavo, barvo pisave, ozadje itd., glejte posnetek zaslona:

7. Ko končate zgornje korake, od zdaj naprej, ko kliknete Začetek , se bo čas začel zdaj, in kliknite stop gumb, bo ustavil čas, Ponastavi gumb ponastavi čas, glej posnetek zaslona:

Predstavitev: s pomočjo kode VBA ustvarite štoparico s tremi gumbi