Hoe maak je een stopwatch in een Excel-werkblad?

Als je een stopwatch nodig hebt in je Excel-werkblad, kan het je helpen bij het bijhouden van de tijd die nodig is om taken te voltooien. Stel je voor dat je een Start-, Stop- en Resetknop hebt om de stopwatch te bedienen, zoals te zien is in de onderstaande schermafbeelding. Door op de Start-knop te klikken begint de timer, de Stop-knop pauzeert deze en de Reset-knop wist de tijd. In dit artikel laten we je stap-voor-stap zien hoe je een eenvoudige maar functionele stopwatch in Excel kunt maken met behulp van VBA-code.

Maak een stopwatch met drie knoppen door VBA-code te gebruiken

 Maak een stopwatch met drie knoppen door VBA-code te gebruiken

Om een stopwatch met drie knoppen, namelijk Start, Stop en Resetten, te maken, volg je de volgende stappen één voor één.

Voeg eerst drie opdrachtknoppen in.

1. Klik op "Developer" > "Invoegen" > "Opdrachtknop", zie screenshot:

2. Sleep vervolgens de muis om een knop te tekenen. Nadat je de knop hebt ingevoegd, kun je de tekst op de knop wijzigen. Klik op "Developer" > "Eigenschappen". Voer in het venster "Eigenschappen" de nieuwe tekst "Start" in het tekstvak naast "Caption" in, zie screenshots:

3. Herhaal de bovenstaande twee stappen om nog twee knoppen in te voegen en geef ze de tekst “Stop” en “Resetten”, zie screenshot:

4. Na het invoegen van de knoppen verlaat je de ontwerpmodus door te klikken op "Developer" > "Ontwerpmodus".

Maak vervolgens een VBA-code.

5. Klik vervolgens met de rechtermuisknop op het tabblad van het huidige werkblad en kies "Weergave Code". Kopieer en plak in het pop-upvenster "Microsoft Visual Basic for Applications" de volgende code in de "Sheet Code":

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

Opmerking: In de bovenstaande code is "C2" de cel waar de stopwatchtijd wordt ingevoegd, en "CommandButton1", "CommandButton2", "CommandButton3" zijn de knopnamen. Je kunt de exacte knopnaam bekijken in de "Naambox", zie screenshot:

Formatteer vervolgens de stopwatchtijdcel.

6. Formatteer de tijdcel vervolgens als "Tekst" formaat. Je kunt ook de celgrootte, lettertype, letterkleur, achtergrond, etc. naar wens aanpassen, zie screenshot:

7. Nadat je de bovenstaande stappen hebt voltooid, zal vanaf nu de tijd starten wanneer je op de "Start"-knop klikt, en stoppen wanneer je op de "Stop"-knop klikt. De "Reset"-knop zal de tijd resetten, zie screenshot:

Demo: Maak een stopwatch met drie knoppen door VBA-code te gebruiken