Μετάβαση στο κύριο περιεχόμενο

Πώς να δημιουργήσετε χρονόμετρο στο φύλλο εργασίας του Excel;

Εάν υπάρχει ένα χρονόμετρο στο φύλλο εργασίας σας, θα γνωρίζετε την ώρα να ολοκληρώσετε μια εργασία. Πώς μπορείτε να δημιουργήσετε ένα χρονόμετρο σε ένα φύλλο με το κουμπί Έναρξη, Διακοπή και Επαναφορά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Εάν κάνετε κλικ στο κουμπί Έναρξη, θα ξεκινήσει η ώρα, εάν κάνετε κλικ στο κουμπί Διακοπή, θα σταματήσει η ώρα και το κουμπί Επαναφορά μπορεί να σας βοηθήσει να επαναφέρετε την ώρα. Αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα απλό και εύχρηστο χρονόμετρο στο Excel.

doc δημιουργήστε χρονόμετρο 1

Δημιουργήστε ένα χρονόμετρο με τρία κουμπιά χρησιμοποιώντας τον κωδικό VBA


Δημιουργήστε ένα χρονόμετρο με τρία κουμπιά χρησιμοποιώντας τον κωδικό VBA

Για να δημιουργήσετε ένα χρονόμετρο με τρία κουμπιά, Έναρξη, Διακοπή και Επαναφορά, κάντε τα παρακάτω βήματα ένα προς ένα.

Αρχικά, εισάγετε τρία κουμπιά εντολών.

1. Κλίκ Εργολάβος > Κύριο θέμα > Κουμπί εντολών, δείτε το στιγμιότυπο οθόνης:

doc δημιουργήστε χρονόμετρο 2

2. Στη συνέχεια, σύρετε το ποντίκι για να σχεδιάσετε ένα κουμπί, αφού εισαγάγετε το κουμπί, μπορείτε να αλλάξετε τη λεζάντα του κουμπιού, κάντε κλικ Εργολάβος > Ιδιοκτησίες, Στην Ιδιοκτησίες διαλόγου, εισαγάγετε τη νέα λεζάντα "Αρχική"Για αυτό το κουμπί στο πλαίσιο κειμένου δίπλα στο Λεζάντα, δείτε στιγμιότυπα οθόνης:

doc δημιουργήστε χρονόμετρο 3 2 doc δημιουργήστε χρονόμετρο 4

3. Επαναλάβετε τα παραπάνω δύο βήματα για να εισαγάγετε άλλα δύο κουμπιά και να τους επισημάνετε ως "στάση"Και"Επαναφορά", Δείτε το στιγμιότυπο οθόνης:

doc δημιουργήστε χρονόμετρο 5

4. Αφού τοποθετήσετε τα κουμπιά, θα πρέπει να βγείτε από τη λειτουργία σχεδίασης κάνοντας κλικ Εργολάβος > Λειτουργία σχεδίασης.

Δεύτερον, δημιουργήστε έναν κωδικό VBA.

5. Στη συνέχεια, κάντε δεξί κλικ στην τρέχουσα καρτέλα φύλλου εργασίας και επιλέξτε Προβολή κωδικού, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο Κωδικός φύλλου:

Κωδικός VBA: Δημιουργία χρονόμετρου:

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

doc δημιουργήστε χρονόμετρο 6

Note: Στον παραπάνω κώδικα, C2 είναι το κελί όπου θα εισαχθεί ο χρόνος χρονόμετρου και το Κουμπί Command1, Κουμπί Command2, Κουμπί Command3 είναι τα ονόματα των κουμπιών, μπορείτε να δείτε το ακριβές όνομα του κουμπιού από το όνομα Box, δείτε το στιγμιότυπο οθόνης:

doc δημιουργήστε χρονόμετρο 7

Τρίτον, μορφοποιήστε το κελί χρόνου χρονόμετρου.

6. Τότε πρέπει να μορφοποιήσετε το κελί ώρας ως Κείμενο μορφή και μπορείτε να αλλάξετε το μέγεθος του κελιού, τη γραμματοσειρά, το χρώμα της γραμματοσειράς, το φόντο κ.λπ. όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

doc δημιουργήστε χρονόμετρο 8

7. Αφού ολοκληρώσετε τα παραπάνω βήματα, από τώρα και στο εξής, όταν κάνετε κλικ Αρχική κουμπί, η ώρα θα ξεκινήσει τώρα και κάντε κλικ στο στάση κουμπί, θα σταματήσει ο χρόνος, το Επαναφορά το κουμπί θα επαναφέρει την ώρα, δείτε το στιγμιότυπο οθόνης:

doc δημιουργήστε χρονόμετρο 9


Επίδειξη: Δημιουργήστε ένα χρονόμετρο με τρία κουμπιά χρησιμοποιώντας τον κώδικα VBA

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (32)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
One has to paste the VBA code to the Sheet's VBA space, not to the Module!

=> I suggest correcting, in the article, the "copy and paste the following code into the Module" -> replace Module with Sheet's VBA field, or sth

Otherwise, perfect, thanks!
This comment was minimized by the moderator on the site
Hello, Florian,

Thanks for your comment, we have updated the content for this article.
Thanks again! 😀
This comment was minimized by the moderator on the site
i started. it works. but it doesn't work when i close and open the excel file again. what must i do?
This comment was minimized by the moderator on the site
Hello, mustafa zirek
After inputing the code, you should save the workbook as Excel Macro-Enabled Workbook format, and when you open the workbook next time, please click the Enable Content above the formula bar to activate the code.
Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Hi! Thank you for this, how do I make it so it populates time in subsequent cells, ex. start/stop time for cell C2, then a different start/stop time for cell c3, c4, c5 etc 
This comment was minimized by the moderator on the site
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
This comment was minimized by the moderator on the site
Is it possible to use a combobox or a dropdown selection to start and stop the clock
This comment was minimized by the moderator on the site
This is brilliant! Thanks, Chris H
This comment was minimized by the moderator on the site
Hello
Have followed the steps but cannot get a time to appear in the timer cell. I have copied the code but can i check1. That the line numbers are not needed or are they2. That I put the code into module 1 not sheet1 or This workbook3. Should there be a macro listed in the macro list after doing all this - mine doesn't.
Thanks
This comment was minimized by the moderator on the site
Hi, Janice,You should put the code into your active sheet module as step 5.
5. And then, right click the current worksheet tab, and choose View Code, in the popped out Microsoft Visual Basic for Applications window, please copy and paste the following code into the Module.

And you should change the button name to your own.
Note: In the above code, C2 is the cell where the stopwatch time will be inserted, and the CommandButton1, CommandButton2, CommandButton3 are the button names, you can view the exact button name from the Name Box.

Please check them, thank you!
This comment was minimized by the moderator on the site
Is it possible to get the counter to count only seconds?
So when it reaches 59 seconds, it continues with 60, 61, 62, 63 ....
This comment was minimized by the moderator on the site
is 'timer' a variable here? dont see its relevance in the code.
This comment was minimized by the moderator on the site
How about adding "+10s" & "2x Speed" feature in this code?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations