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.
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:
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:
 |  |  |
3. Herhaal de bovenstaande twee stappen om nog twee knoppen in te voegen en ze te onderschrijven als 'stop"En"Reset”, Zie screenshot:
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
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:
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:
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:
