Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe stopwatch in Excel-werkblad te maken?

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

doc maak stopwatch 1

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


Voeg een aantal uren / minuten / seconden toe aan datetime:

Doordat uw bureau Kutools for Excel's Voeg uren / minuten / seconden toe tot nu toe functies, kunt u een aantal uren, minuten of seconden snel toevoegen of aftrekken tot een datum. Klik om te downloaden en gratis proef Kutools voor Excel nu!

doc maak stopwatch 10

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


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

Als u een stopwatch wilt maken met drie knoppen, Starten, Stoppen en Opnieuw instellen, voert u de volgende stappen één voor één uit.

Voeg eerst drie opdrachtknoppen toe.

1. Klikken ontwikkelaar > bijvoegsel > Command knopzie screenshot:

doc maak stopwatch 2

2. Sleep vervolgens met de muis om een ​​knop te tekenen. Nadat u de knop hebt ingevoegd, kunt u de knop wijzigen. Klik op OK ontwikkelaar > WONINGAANBOD, in de WONINGAANBOD dialoogvenster, voer het nieuwe bijschrift in "begin"Voor deze knop in het tekstvak naast de Onderschrift, zie screenshots:

doc maak stopwatch 3  2 doc maak stopwatch 4

3. Herhaal de bovenstaande twee stappen om andere twee knoppen in te voegen en beschrijf ze als "stop"En"Reset", Zie screenshot:

doc maak stopwatch 5

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

Ten tweede, maak een VBA-code.

5. En klik vervolgens met de rechtermuisknop op het huidige werkbladtabblad en kies Bekijk code, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de 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 maak stopwatch 6

Notes: In de bovenstaande code, C2 is de cel waar de stopwatchtijd zal worden ingevoegd, en de CommandButton1, CommandButton2, CommandButton3 zijn de knopnamen, kunt u de exacte knopnaam bekijken vanuit de Naam Boxzie screenshot:

doc maak stopwatch 7

Ten derde, formatteer de tijdklok van de stopwatch.

6. Dan zou je de tijdcel moeten opmaken als Tekst formaat, en u kunt de celgrootte, het lettertype, de kleur van het lettertype, de achtergrond, enz. naar behoefte wijzigen, zie screenshot:

doc maak stopwatch 8

7. Nadat u bovenstaande stappen heeft voltooid, vanaf nu, wanneer u klikt begin knop, de tijd start nu en klik stop knop, het zal de tijd stoppen, de Reset knop zal de tijd resetten, zie screenshot:

doc maak stopwatch 9


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


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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 · 5 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 · 5 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 · 7 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.
  • To post as a guest, your comment is unpublished.
    Melissa Stranko · 1 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.
    Guest · 1 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 2 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. · 2 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 2 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!