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

Hoe maak je een stopwatch in Excel-werkblad?

Als er een stopwatch op uw werkblad staat, weet u hoe laat het is om een ​​klus te klaren. Hoe kun je een stopwatch maken in een blad met een Start-, Stop- en Reset-knop zoals in het volgende screenshot wordt getoond? Als u op de Start-knop klikt, wordt de tijd gestart, als u op de knop Stop klikt, wordt de tijd gestopt en met de knop Reset kunt u de tijd opnieuw instellen. In dit artikel zal ik het hebben over het maken van een eenvoudige en handige stopwatch in Excel.

doc stopwatch maken 1

Maak een stopwatch met drie knoppen met behulp van VBA-code


Maak een stopwatch met drie knoppen met behulp van VBA-code

Om een ​​stopwatch te maken met drie knoppen, Start, Stop en Reset, voert u de volgende stappen een voor een uit.

Voeg eerst drie opdrachtknoppen in.

1. Klikken Ontwikkelaar > Invoegen > Command knop, zie screenshot:

doc stopwatch maken 2

2. Sleep vervolgens met de muis om een ​​knop te tekenen, na het invoegen van de knop kunt u het bijschrift van de knop wijzigen, klik alstublieft Ontwikkelaar > Vastgoed, in de Vastgoed dialoogvenster, voer het nieuwe bijschrift in "Start”Voor deze knop in het tekstvak naast de Onderschrift, zie screenshots:

doc stopwatch maken 3 2 doc stopwatch maken 4

3. Herhaal de bovenstaande twee stappen om nog twee knoppen in te voegen en ze te onderschrijven als 'stop"En"Reset”, Zie screenshot:

doc stopwatch maken 5

4. Nadat u de knoppen heeft ingevoegd, verlaat u de ontwerpmodus door op te klikken Ontwikkelaar > Ontwerpmodus.

Maak ten tweede een VBA-code.

5. En klik vervolgens met de rechtermuisknop op het huidige werkbladtabblad en kies Bekijk code, in de pop uit Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de volgende code in het Module:

VBA-code: stopwatch maken:

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 stopwatch maken 6

Opmerking:: In de bovenstaande code, C2 is de cel waar de stopwatchtijd zal worden ingevoegd, en de CommandoKnop1, CommandoKnop2, CommandoKnop3 zijn de knopnamen, u kunt de exacte knopnaam zien in de Naam Box, zie screenshot:

doc stopwatch maken 7

Ten derde, formatteer de stopwatch-tijdcel.

6. Vervolgens moet u de tijdcel opmaken als Tekst formaat, en u kunt de celgrootte, het lettertype, de lettertypekleur, de achtergrond, enz. naar behoefte wijzigen, zie screenshot:

doc stopwatch maken 8

7. Na het voltooien van bovenstaande stappen, vanaf nu, wanneer u op klikt Start knop, de tijd zal nu beginnen, en klik stop knop, zal het de tijd stoppen, de Reset knop reset de tijd, zie screenshot:

doc stopwatch maken 9


Demo: maak een stopwatch met drie knoppen met behulp van VBA-code


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (28)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor dit bericht, het was erg nuttig. Is er echter een manier om de code zo aan te passen dat de timer niet stopt wanneer een cel wordt bewerkt? In het ideale geval zou ik op "Start" willen drukken, een aantal wijzigingen aanbrengen in een reeks cellen op hetzelfde tabblad en vervolgens op "Stop" drukken voor de totale verstreken tijd. Elk advies hierover zou zeer op prijs worden gesteld!
Deze opmerking is gemaakt door de moderator op de site
heb je dit ooit bedacht? Ook ik moet de timer laten lopen terwijl andere wijzigingen in dezelfde spreadsheet worden aangebracht. bedankt. Mike
Deze opmerking is gemaakt door de moderator op de site
Dit was een grote hulp en heel gemakkelijk om de stappen te volgen.
Deze opmerking is gemaakt door de moderator op de site
Heb geprobeerd de stopwatch te maken met dezelfde codes in Formulieren. De timer start prima, maar stopt niet. Stel alstublieft voor hoe u hetzelfde in formulieren kunt repliceren
Deze opmerking is gemaakt door de moderator op de site
Probeer XNote-stopwatch.
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de timer omhoog of omlaag te laten tellen tot een bepaalde tijd? Ik wil de start-, stop- en resetknoppen behouden, maar ik wil dat deze slechts tot één minuut per seconde tellen als ik op start druk. Of tel af van één minuut één seconde naar nul (01:01). Bedankt voor je hulp!
Deze opmerking is gemaakt door de moderator op de site
Hallo, Melissa,
als u een afteltimer in het werkblad moet maken, kan het volgende artikel u misschien helpen!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Deze opmerking is gemaakt door de moderator op de site
Hallo,

Ik heb dat artikel gezien, maar ik wil dat het er precies zo uitziet als de stopwatch op deze pagina, maar ik wil dat het slechts van één minuut per seconde aftelt. Ik heb het nodig om te laten zien in stopwatchvorm, maar werk als een aftelling. Nog advies?


bedankt voor het antwoorden!
Deze opmerking is gemaakt door de moderator op de site
Het is voor een scorebord dat we in Excel hebben ontworpen.
Deze opmerking is gemaakt door de moderator op de site
Geweldig, maar is het mogelijk om 2 klokken in hetzelfde blad te laten lopen? heb een tweede klok gemaakt met nieuwe start, stop en reset knop, maar bij het starten van de tweede klok stopt de eerste....
Deze opmerking is gemaakt door de moderator op de site
hetzelfde hier, kun je hier een remedie voor vinden?
Deze opmerking is gemaakt door de moderator op de site
Hallo vrienden,
Deze methode wordt alleen toegepast op één set knoppen in een werkblad.
Als er andere goede ideeën zijn, reageer dan hier.
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om de timer automatisch te stoppen wanneer het scherm wordt vergrendeld en de timer automatisch te starten wanneer we de computer ontgrendelen?
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de timer de teller op nul te laten zetten, maar de timer toch te laten lopen? D.w.z. Als ik op Reset druk, wil ik niet opnieuw op Start moeten drukken om de tijd aan te vinken.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik deze stop, maar heel vaak beginnen de cijfers in de weergavecel ("C2") uit te vallen en gaan uit - ze vertonen mintekens, de cijfers zijn onjuist en de telling is verloren. Het gebeurt meestal na ongeveer een uur of langer, maar soms zelfs voordat een uur verstrijkt. Is dit een veelvoorkomende bug? en zo ja, is er een manier om dit op te lossen? Ik heb de .00 (dwz de milliseconden) uit de code verwijderd door simpelweg de: & "." & Format(0, "00") regel waar deze ook verschijnt - heeft dat iets met dit probleem te maken?
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor je tip. Het liep soepel, maar toen ik gegevens in dit blad invoerde, werkt het niet meer. We moeten het een tijdje blijven gebruiken. Voer gegevens in. Hoe kunnen we dit probleem oplossen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Nhoeun,
Misschien is er op een niet een goede manier om uw probleem op te lossen. Wanneer u een cel bewerkt, wordt de momenteel uitgevoerde macro onderbroken.
Als je een andere goede methode hebt, reageer dan hier!
Dank je!
Deze opmerking is gemaakt door de moderator op de site
HOI. Ik heb de stopwatch gemaakt, maar moet de verschillende intervallen tussen start en stop kunnen opslaan om ze te kunnen weergeven als een tijd- en bewegingsstudie. Enige tips hoe dat te doen?
Deze opmerking is gemaakt door de moderator op de site
Alle stappen uitgevoerd maar klikken op de startknop geeft de foutmelding "Kan de macro niet uitvoeren "'file.xlsm'!CommandButton1". De macro is mogelijk niet beschikbaar in deze werkmap of alle macro's zijn mogelijk uitgeschakeld.". Alle macro's zijn ingeschakeld, de macro bevindt zich in Module1. OPMERKING: ik gebruik Office 2019 voor Mac, dus dat kan een probleem zijn....
Deze opmerking is gemaakt door de moderator op de site
Hoe zit het met het toevoegen van "+10s" & "2x Speed"-functie in deze code?
Deze opmerking is gemaakt door de moderator op de site
is 'timer' hier een variabele? zie de relevantie ervan niet in de code.
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om de teller alleen seconden te laten tellen?
Dus als het 59 seconden bereikt, gaat het verder met 60, 61, 62, 63 ....
Deze opmerking is gemaakt door de moderator op de site
Hallo
Heb de stappen gevolgd maar krijg geen tijd om in de timercel te verschijnen. Ik heb de code gekopieerd, maar kan ik check1. Dat de regelnummers niet nodig zijn of zijn ze2. Dat ik de code in module 1 plaats, niet in sheet1 of This workbook3. Mocht er na dit alles een macro in de lijst met macro's worden vermeld - de mijne niet.
Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hallo, Janice, je moet de code als stap 5 in je actieve bladmodule plaatsen.
5. En klik vervolgens met de rechtermuisknop op het huidige werkbladtabblad en kies Bekijk code, kopieer en plak de volgende code in het uitgevouwen venster Microsoft Visual Basic for Applications in de module.

En u moet de naam van de knop in die van uzelf veranderen.
Opmerking: in de bovenstaande code is C2 de cel waar de stopwatchtijd wordt ingevoegd, en de CommandoKnop1, CommandoKnop2, CommandoKnop3 de knopnamen zijn, kunt u de exacte knopnaam bekijken in het naamvak.

Controleer ze alstublieft, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Dit is briljant! Bedankt, Chris H
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om een ​​combobox of een vervolgkeuzelijst te gebruiken om de klok te starten en te stoppen?
Deze opmerking is gemaakt door de moderator op de site
Bonjour, je kunt een geïntegreerde chronometre à 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 chronometre en même temps que d'autres codes VBA?MerciHenry.
Deze opmerking is gemaakt door de moderator op de site
Hoi! Bedankt hiervoor, hoe zorg ik ervoor dat het tijd vult in volgende cellen, bijv. start/stop tijd voor cel C2, dan een andere start/stop tijd voor cel c3, c4, c5 etc 
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties