Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ustvariti štoparico v delovnem listu Excel?

Če je v vašem delovnem listu na voljo štoparica, boste vedeli čas, da zaključite delo. Kako lahko ustvarite štoparico v listu z gumbom Start, Stop in Reset, kot je prikazano na zaslonu spodaj? Če kliknete gumb »Start«, bo začel čas, če kliknete gumb »Ustavi«, bo ustavil čas, gumb za ponastavitev pa vam bo pomagal ponastaviti čas. V tem članku bom govoril o tem, kako ustvariti enostavno in priročno štoparico v Excelu.

doc ustvariti štoparico 1

Z uporabo VBA kode ustvarite štoparico s tremi gumbi


Dodajte število ur / minut / sekund v datetime:

z Kutools za Excel's Dodaj uro / minute / sekunde do datuma funkcije, lahko hitro dodate ali odštejete število ur, minut ali sekund do datuma. Kliknite za prenos in brezplačno preizkusite Kutools za Excel zdaj!

doc ustvariti štoparico 10

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Z uporabo VBA kode ustvarite štoparico s tremi gumbi

Če želite ustvariti štoparico s tremi gumbi, zaženite, zaustavite in ponastavite, naredite naslednje korake po enega.

Najprej vstavite tri ukazne gumbe.

1. Kliknite Razvojni > Vstavi > Gumb za urejanje, si oglejte sliko zaslona:

doc ustvariti štoparico 2

2. Nato povlecite miško, da povlečete gumb, potem ko vstavite gumb, lahko spremenite napis gumba, kliknite Razvojni > NepremičnineV Nepremičnine dialog, vnesite nov napis "Začetek"Za ta gumb v besedilnem polju poleg napis, glej slike s posnetka:

doc ustvariti štoparico 3  2 doc ustvariti štoparico 4

3. Ponovite zgornja dva koraka, da vstavite še druga gumba in jih označite kot "stop"In"Ponastavi", Si oglejte posnetek zaslona:

doc ustvariti štoparico 5

4. Ko vstavite gumbe, morate zapreti način oblikovanja s klikom Razvojni > Način oblikovanja.

Drugič, ustvarite kodo VBA.

5. In nato z desno miškino tipko kliknite trenutni zavihek delovnega lista in izberite Ogled kode, v popped out Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v Moduli:

VBA koda: 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

doc ustvariti štoparico 6

Opombe: V zgornji kodi, C2 je celica, v kateri se vstavi čas štoparice, in CommandButton1, CommandButton2, CommandButton3 so imena gumbov, si lahko ogledate točno ime gumba iz ime Box, si oglejte sliko zaslona:

doc ustvariti štoparico 7

Tretjič, formatirajte časovno celico štoparice.

6. Potem morate časovno celico formatirati kot Besedilo format in lahko spremenite velikost celice, pisavo, barvo pisave, ozadje itd., kar potrebujete, glejte sliko zaslona:

doc ustvariti štoparico 8

7. Ko zaključite zgornje korake, od zdaj naprej, ko kliknete Začetek gumb, čas se bo začel zdaj in kliknite stop gumb, bo ustavil čas, Ponastavi gumb bo ponastavil čas, si oglejte posnetek zaslona:

doc ustvariti štoparico 9


Demo: Ustvarite štoparico s tremi gumbi s kodo VBA


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 3 months ago
    Thank for your tip, It was running smoothly but when I input any data in this sheet It's stopped running, We need it keep running awhile input data How we can fix this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hello, Nhoeun,
      May be there in not a good way for solving your problem. When you edit a cell, it will interrupt the currently executed macro.
      If you have any other good method, please comment here!
      Thank you!
  • To post as a guest, your comment is unpublished.
    Yuval · 5 months ago
    Hi, I'm using this stopper but quite often the numbers in the display cell ("C2") start fricking out and go off - they show minus signs, the digits are incorret and the count is lost. It usually happens after about an hour or more but sometimes even before an hour goes by. Is this a common bug? and if yes, is there a way to fix it? I did remove the .00 (i.e. the miliseconds) from the code by simply erasing the: & "." & Format(0, "00") line wherever it appears - does that have to do anything with this problem?
  • To post as a guest, your comment is unpublished.
    Damian · 1 years ago
    Is there any way to have the timer reset the count to zero but still keep the timer running? Ie. When I press Reset, I don't want to have to press Start again for the time to tick up.
  • To post as a guest, your comment is unpublished.
    Vivek Nath · 1 years ago
    Is it possible to automatically stop the timer when screen locks and start the timer automatically when we unlock the computer?
  • To post as a guest, your comment is unpublished.
    Tor-Bjørn Øverbø · 1 years ago
    Great, but is it possible to run 2 clocks in the same sheet? have made a second clock with new start, stop and reset buttom, but when starting the second clock the first one stops....
    • To post as a guest, your comment is unpublished.
      Vishal Sharma · 1 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, friends,
        This method is only applied to one set of buttons in a worksheet.
        If there are other good ideas, please comment here.