Hoe maakt u een stopwatch in een Excel-werkblad?
Als u een stopwatch nodig hebt in uw Excel-werkblad, kunt u hiermee de tijd bijhouden die nodig is om taken te voltooien. Stel u voor dat u een Start-, Stop- en Resetknop heeft om de stopwatch te bedienen, zoals weergegeven in de onderstaande schermafbeelding. Als u op de knop Start klikt, begint de timer; de knop Stop pauzeert de timer en de knop Reset wist de tijd. In dit artikel tonen we u stap voor stap hoe u een eenvoudige maar functionele stopwatch maakt in Excel met behulp van VBA-code.
Maak een stopwatch met drie knoppen met behulp van VBA-code
Maak een stopwatch met drie knoppen met behulp van VBA-code
Volg deze stappen één voor één om een stopwatch te maken met drie knoppen: Start, Stop en Reset.
Voeg eerst drie opdrachtknoppen in.
1. Klik op „Developer” > „Invoegen” > „Opdrachtknop”, zie de schermafbeelding:
2. Sleep vervolgens met de muis om een knop te tekenen. Nadat u de knop hebt ingevoegd, kunt u het bijschrift ervan wijzigen. Klik hiervoor op **Developer** > **Eigenschappen**. Voer in het dialoogvenster **Eigenschappen** het nieuwe bijschrift **Start** in het tekstvak naast **Bijschrift** in, zie schermafbeeldingen:
 |  |  |
3. Herhaal de bovenstaande twee stappen om de andere twee knoppen in te voegen en geef ze het bijschrift „Stop” en „Reset”; zie de schermafbeelding:
4. Verlaat na het invoegen van de knoppen de ontwerpmodus door op ‘Developer’ > ‘Ontwerpmodus’ te klikken.
Maak vervolgens de VBA-code.
5. Klik daarna met de rechtermuisknop op het tabblad van het huidige werkblad en kies ‘Code weergeven’. Plak in het venster ‘Microsoft Visual Basic for Applications’ de volgende code in de ‘Werkbladcode’:
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 waarin de stopwatchtijd wordt weergegeven. De namen „CommandButton1”, „CommandButton2” en „CommandButton3” verwijzen naar de knopnamen. U kunt de exacte knopnaam controleren in het „Naamvak”, zoals te zien is op de schermafbeelding:
Formatteer ten slotte de cel voor de stopwatchtijd.
6. Formatteer de tijdscel vervolgens als „Tekstformaat” en pas, indien gewenst, de celgrootte, het lettertype, de letterkleur, de achtergrondkleur, enzovoort aan – zie schermafbeelding:
7. Nadat u de bovenstaande stappen hebt voltooid, begint de tijd wanneer u op de knop „Start” klikt, stopt deze bij een klik op „Stop” en wordt gereset met de knop „Reset” – zie schermafbeelding:
Demo: Maak een stopwatch met drie knoppen met behulp van VBA-code
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins