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 Module:
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
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
