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.

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:

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 > Vastgoed, in de Vastgoed 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:

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.

Lees verder... Gratis download... Aankoop... 

---

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!

Lees verder... Gratis download... Aankoop...