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.

1. Cliquez 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 "Démarrer»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 Démarrer 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ée...
• 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 gammes...
• 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 cellules...
• 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 PDF...
• 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.

Lire la suite... Téléchargement Gratuit... Achat... 

---

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!

Lire la suite... Téléchargement Gratuit... Achat...