Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 > Woningaanbod, in de Woningaanbod 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 voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
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.
    Henry · 2 months ago
    Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer 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?
    Merci
    Henry.
  • To post as a guest, your comment is unpublished.
    JGuy · 4 months ago
    Is it possible to use a combobox or a dropdown selection to start and stop the clock

  • To post as a guest, your comment is unpublished.
    Chris H · 7 months ago
    This is brilliant! Thanks, Chris H
  • To post as a guest, your comment is unpublished.
    Janice McWilliam · 9 months ago
    Hello

    Have followed the steps but cannot get a time to appear in the timer cell. I have copied the code but can i check
    1. That the line numbers are not needed or are they
    2. That I put the code into module 1 not sheet1 or This workbook
    3. Should there be a macro listed in the macro list after doing all this - mine doesn't.

    Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hi, Janice,
      You should put the code into your active sheet module as step 5.

      5. And then, right click the current worksheet tab, and choose View Code, in the popped out Microsoft Visual Basic for Applications window, please copy and paste the following code into the Module.

      And you should change the button name to your own.

      Note: In the above code, C2 is the cell where the stopwatch time will be inserted, and the CommandButton1, CommandButton2, CommandButton3 are the button names, you can view the exact button name from the Name Box.

      Please check them, thank you!
  • To post as a guest, your comment is unpublished.
    Allan · 1 years ago
    Is it possible to get the counter to count only seconds?
    So when it reaches 59 seconds, it continues with 60, 61, 62, 63 ....
  • To post as a guest, your comment is unpublished.
    Jeff · 1 years ago
    is 'timer' a variable here? dont see its relevance in the code.

  • To post as a guest, your comment is unpublished.
    ALCA · 1 years ago
    How about adding "+10s" & "2x Speed" feature in this code?

  • To post as a guest, your comment is unpublished.
    Cy · 1 years ago
    Done all the steps but clicking the start button give error message "Cannot run the macro "'file.xlsm'!CommandButton1". The macro may not be available in this workbook or all macros may be disabled.". All macros have been enabled, the macro is in Module1. NOTE: I'm running Office 2019 for Mac so that could be a problem....
  • To post as a guest, your comment is unpublished.
    Pierre · 2 years ago
    HI. I have created the stopwatch, but need to be able to have the various intervals between the start and stop to be saved to be able to reflect them as a time and motion study. Any tips on how to do that?
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 2 years 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 years 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 · 2 years 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 · 3 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 · 3 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ø · 3 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 · 3 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 3 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.
  • To post as a guest, your comment is unpublished.
    melissastranko@gmail.com · 3 years ago
    Is there any way to get the timer to count up or down to a specific time? I want to keep the start, stop, and reset buttons, but I need it to count up to one minute one second only, once I press start. Or count down from one minute one second to zero (01:01). Thanks for your help!
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hi, Melissa,
      if you need to create a countdown timer in worksheet, may may the the following article can help you!
      https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
      • To post as a guest, your comment is unpublished.
        melissastranko@gmail.com · 3 years ago
        hello,

        I did see that article, but i need it to look exactly like the stop watch on this page, but i need it to only count down from one minute one second. I need it to show in stopwatch form, but work as a count down. Any further advice?


        thank you for replying!
  • To post as a guest, your comment is unpublished.
    Guest · 3 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 4 years ago
    Have tried to create the stop watch using the same codes in Forms. The timer starts perfectly fine but does not stop . Please suggest how to replicate the same in forms
  • To post as a guest, your comment is unpublished.
    Paulo G. · 4 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 4 years ago
    Thank you for this post, it was very helpful. However, is there a way to tweak the code to make it so the timer does not stop when a cell is being edited? Ideally I would like to hit "Start," make a number of changes to a range of cells on the same tab, and then hit "Stop" for the total time elapsed. Any advice on this would be greatly appreciated!
    • To post as a guest, your comment is unpublished.
      Mike · 1 years ago
      did you ever figure this one out? I too need to keep the timer running while other changes are being made in the same spreadsheet. thanks. Mike