Comment créer un chronomètre dans une feuille de calcul Excel?
S'il y a un chronomètre dans votre feuille de calcul, vous saurez l'heure de terminer un travail. Comment pouvez-vous créer un chronomètre dans une feuille avec un bouton Démarrer, Arrêter et Réinitialiser comme illustré ci-dessous? Si vous cliquez sur le bouton Démarrer, l'heure de démarrage commencera, si vous cliquez sur le bouton Arrêter, l'heure s'arrêtera et le bouton Réinitialiser peut vous aider à réinitialiser l'heure. Cet article, je vais vous expliquer comment créer un chronomètre simple et pratique dans Excel.
Créez un chronomètre avec trois boutons en utilisant le code VBA
Créez un chronomètre avec trois boutons en utilisant le code VBA
Pour créer un chronomètre avec trois boutons, Démarrer, Arrêter et Réinitialiser, veuillez suivre les étapes suivantes une par une.
Tout d'abord, insérez trois boutons de commande.
1Cliquez sur Développeur > insérer > Bouton de commande, voir capture d'écran:
2. Ensuite, faites glisser la souris pour dessiner un bouton, après avoir inséré le bouton, vous pouvez changer la légende du bouton, veuillez cliquer Développeur > Propriétés, Dans le Propriétés boîte de dialogue, entrez la nouvelle légende "Accueil»Pour ce bouton dans la zone de texte à côté de Légende, voir les captures d'écran:
3. Répétez les deux étapes ci-dessus pour insérer deux autres boutons et les sous-titrer comme "Arrêter" et "Réinitialiser”, Voir capture d'écran:
4. Après avoir inséré les boutons, vous devez quitter le mode de conception en cliquant sur Développeur > Mode de conception.
Deuxièmement, créez un code VBA.
5. Et puis, cliquez avec le bouton droit sur l'onglet de la feuille de calcul en cours et choisissez Voir le code, dans le sauté Microsoft Visual Basic pour applications , veuillez copier et coller le code suivant dans le Code feuille:
Code VBA: Créer un chronomètre:
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
Notes: Dans le code ci-dessus, C2 est la cellule dans laquelle l'heure du chronomètre sera insérée, et le Bouton de commande1, Bouton de commande2, Bouton de commande3 sont les noms des boutons, vous pouvez afficher le nom exact du bouton à partir du Zone Nom, voir capture d'écran:
Troisièmement, formatez la cellule de temps du chronomètre.
6. Ensuite, vous devez formater la cellule de temps comme Texte format, et vous pouvez changer la taille de la cellule, la police, la couleur de la police, l'arrière-plan, etc. selon vos besoins, voir capture d'écran:
7. Après avoir terminé les étapes ci-dessus, à partir de maintenant, lorsque vous cliquez sur Accueil bouton, l'heure commencera maintenant, et cliquez sur Arrêter bouton, il arrêtera le temps, le Réinitialiser Le bouton réinitialisera l'heure, voir capture d'écran:
Démo: créez un chronomètre avec trois boutons en utilisant le code VBA
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!