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

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.

doc ustvari štoparico 1

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:

doc ustvari štoparico 2

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:

doc ustvari štoparico 3 2 doc ustvari štoparico 4

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

doc ustvari štoparico 5

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

doc ustvari štoparico 6

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:

doc ustvari štoparico 7

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:

doc ustvari štoparico 8

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:

doc ustvari štoparico 9


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


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (32)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za to objavo, bila je zelo koristna. Vendar, ali obstaja način za prilagoditev kode tako, da se časovnik ne ustavi, ko se celica ureja? V idealnem primeru bi rad pritisnil "Start", naredil številne spremembe v obsegu celic na istem zavihku in nato pritisnil "Ustavi" za skupni pretečeni čas. Vsak nasvet o tem bi bil zelo hvaležen!
Ta komentar je moderator na spletnem mestu minimiziral
si že kdaj ugotovil tole? Tudi jaz moram ohraniti časovnik, medtem ko se izvajajo druge spremembe v isti preglednici. hvala Mike
Ta komentar je moderator na spletnem mestu minimiziral
To je bila velika pomoč in korakom je bilo zelo enostavno slediti.
Ta komentar je moderator na spletnem mestu minimiziral
Poskušali ste ustvariti štoparico z istimi kodami v obrazcih. Časovnik se zažene popolnoma v redu, vendar se ne ustavi. Prosimo, predlagajte, kako ponoviti isto v obrazcih
Ta komentar je moderator na spletnem mestu minimiziral
Poskusite s štoparico XNote.
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da časovnik odšteva navzgor ali navzdol do določenega časa? Obdržati želim gumbe za zagon, zaustavitev in ponastavitev, vendar ga potrebujem, da odšteje do ene minute samo eno sekundo, ko pritisnem start. Ali pa odštevajte od ene minute in sekunde do nič (01:01). Hvala za vašo pomoč!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Melissa,
če morate na delovnem listu ustvariti odštevalnik časa, vam lahko pomaga naslednji članek!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

Videl sem ta članek, vendar moram, da je videti natanko tako kot štoparica na tej strani, vendar ga potrebujem, da odšteva samo od ene minute do sekunde. Potrebujem ga za prikaz v obliki štoparice, vendar deluje kot odštevanje. Še kakšen nasvet?


hvala za odgovor!
Ta komentar je moderator na spletnem mestu minimiziral
Namenjen je preglednici, ki smo jo oblikovali v excelu.
Ta komentar je moderator na spletnem mestu minimiziral
Odlično, ampak ali je mogoče zagnati 2 uri v istem listu? naredili drugo uro z novim zagonom, zaustavitvijo in ponastavitvijo gumba, vendar se ob zagonu druge ure prva ustavi....
Ta komentar je moderator na spletnem mestu minimiziral
enako tukaj lahko najdete zdravilo za to
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni prijatelji,
Ta metoda se uporablja samo za en niz gumbov na delovnem listu.
Če obstajajo druge dobre ideje, jih komentirajte tukaj.
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče samodejno ustaviti časovnik, ko se zaslon zaklene, in samodejno zagnati časovnik, ko odklenemo računalnik?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da časovnik ponastavi štetje na nič, vendar še vedno ostane časovnik teče? tj. Ko pritisnem Ponastavi, ne želim znova pritisniti Start, da se čas izteče.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, uporabljam ta zamašek, vendar pogosto začnejo številke v zaslonski celici ("C2") bledeti in ugasnejo - kažejo znake minus, števke so napačne in štetje se izgubi. Običajno se to zgodi po približno eni uri ali več, včasih pa tudi, preden mine ena ura. Je to pogosta napaka? in če da, ali obstaja način, da to popravim? Iz kode sem odstranil .00 (tj. milisekunde) tako, da sem preprosto izbrisal: & "." & Format(0, "00") vrstica, kjer koli se pojavi - ali ima to kaj opraviti s to težavo?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vaš namig, deloval je gladko, toda ko sem v ta list vnesel kakršne koli podatke, je prenehal delovati. Potrebujemo, da teče nekaj časa, vnos podatkov Kako lahko odpravimo to težavo?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Nhoeun,
Morda to ni dober način za rešitev vaše težave. Ko uredite celico, bo ta prekinil trenutno izvajani makro.
Če imate še kakšno dobro metodo, prosim komentirajte tukaj!
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Ustvaril sem štoparico, vendar moram imeti možnost, da se shranijo različni intervali med začetkom in postankom, da jih lahko odražam kot študijo časa in gibanja. Kakšen nasvet, kako to narediti?
Ta komentar je moderator na spletnem mestu minimiziral
Opravljeni vsi koraki, toda s klikom na gumb za začetek se prikaže sporočilo o napaki "Makra ni mogoče zagnati "'file.xlsm'!CommandButton1". Makro morda ni na voljo v tem delovnem zvezku ali pa so vsi makri onemogočeni.". Vsi makri so omogočeni, makro je v Module1. OPOMBA: Uporabljam Office 2019 za Mac, tako da bi to lahko bila težava....
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa dodajanje funkcij "+10s" & "2x Speed" v to kodo?
Ta komentar je moderator na spletnem mestu minimiziral
je 'timer' spremenljivka tukaj? ne vidim njegovega pomena v kodi.
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče doseči, da števec šteje samo sekunde?
Torej, ko doseže 59 sekund, se nadaljuje s 60, 61, 62, 63 ....
Ta komentar je moderator na spletnem mestu minimiziral
Živijo
Sledili ste korakom, vendar ne morete dobiti časa, da se prikaže v celici časovnika. Kodo sem kopiral, vendar lahko preverim1. Da številke vrstic niso potrebne ali pa so2. Da sem kodo dal v modul 1 in ne v list1 ali ta delovni zvezek3. Če bi po tem, ko sem naredil vse to, na seznamu makrov naveden makro - moj ne.
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Janice, v 5. koraku morate vnesti kodo v svoj aktivni modul lista.
5. Nato z desno tipko miške kliknite zavihek trenutnega delovnega lista in izberite Ogled kode, v pojavnem oknu Microsoft Visual Basic za aplikacije kopirajte in prilepite naslednjo kodo v modul.

In ime gumba morate spremeniti v svoje.
Opomba: V zgornji kodi je C2 celica, kamor bo vstavljen čas štoparice, in Ukazni gumb1, Ukazni gumb2, Ukazni gumb3 so imena gumbov, si lahko ogledate natančno ime gumba v polju z imenom.

Prosimo, preverite jih, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
To je briljantno! Hvala, Chris H
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče uporabiti kombinirano polje ali spustni izbor za zagon in ustavitev ure
Ta komentar je moderator na spletnem mestu minimiziral
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, determiner le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Hvala za to, kako naj to naredim, da zapolni čas v naslednjih celicah, npr. čas zagona/zaustavitev za celico C2, nato drugačen čas zagona/zaustavitev za celico c3, c4, c5 itd 
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL