Note: The other languages of the website are Google-translated. Back to English

Πώς να δημιουργήσετε χρονόμετρο στο φύλλο εργασίας του 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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (32)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για αυτήν την ανάρτηση, ήταν πολύ χρήσιμη. Ωστόσο, υπάρχει τρόπος να τροποποιήσετε τον κώδικα ώστε να μην σταματήσει ο χρονοδιακόπτης κατά την επεξεργασία ενός κελιού; Στην ιδανική περίπτωση, θα ήθελα να πατήσω "Έναρξη", να κάνω ορισμένες αλλαγές σε μια περιοχή κελιών στην ίδια καρτέλα και μετά να πατήσω "Διακοπή" για τον συνολικό χρόνο που έχει περάσει. Οποιαδήποτε συμβουλή για αυτό θα εκτιμηθεί ιδιαίτερα!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
το κατάλαβες ποτέ αυτό; Και εγώ πρέπει να διατηρήσω το χρονόμετρο σε λειτουργία ενώ γίνονται άλλες αλλαγές στο ίδιο υπολογιστικό φύλλο. ευχαριστώ. Μικρόφωνο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν μια μεγάλη βοήθεια και πολύ εύκολο να ακολουθήσετε τα βήματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπάθησα να δημιουργήσετε το χρονόμετρο χρησιμοποιώντας τους ίδιους κωδικούς στις Φόρμες. Το χρονόμετρο ξεκινά τέλεια αλλά δεν σταματά. Προτείνετε πώς να αναπαράγετε το ίδιο σε φόρμες
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε το Χρονόμετρο XNote.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει κάποιος τρόπος να βάλετε το χρονόμετρο να μετράει προς τα πάνω ή προς τα κάτω σε μια συγκεκριμένη ώρα; Θέλω να διατηρήσω τα κουμπιά έναρξης, διακοπής και επαναφοράς, αλλά χρειάζομαι να μετρήσω μέχρι ένα λεπτό μόνο ένα δευτερόλεπτο, μόλις πατήσω την έναρξη. Ή μετρήστε αντίστροφα από ένα λεπτό ένα δευτερόλεπτο έως το μηδέν (01:01). Ευχαριστώ για τη βοήθειά σου!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Melissa,
Εάν πρέπει να δημιουργήσετε ένα χρονόμετρο αντίστροφης μέτρησης στο φύλλο εργασίας, μπορεί το παρακάτω άρθρο να σας βοηθήσει!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε,

Είδα αυτό το άρθρο, αλλά το χρειάζομαι να μοιάζει ακριβώς με το ρολόι σε αυτή τη σελίδα, αλλά χρειάζομαι να μετράει αντίστροφα μόνο από ένα λεπτό ένα δευτερόλεπτο. Χρειάζομαι να εμφανίζεται σε μορφή χρονόμετρου, αλλά λειτουργεί ως αντίστροφη μέτρηση. Κάποια περαιτέρω συμβουλή;


ευχαριστω για την απαντηση!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι για έναν πίνακα αποτελεσμάτων που σχεδιάσαμε στο excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τέλεια, αλλά είναι δυνατόν να τρέχουν 2 ρολόγια στο ίδιο φύλλο; έχουν φτιάξει ένα δεύτερο ρολόι με κουμπί νέας έναρξης, διακοπής και επαναφοράς, αλλά όταν ξεκινάει το δεύτερο ρολόι σταματάει το πρώτο....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
το ίδιο εδώ μπορείτε να βρείτε τη θεραπεία για αυτό
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας φίλοι,
Αυτή η μέθοδος εφαρμόζεται μόνο σε ένα σύνολο κουμπιών σε ένα φύλλο εργασίας.
Εάν υπάρχουν άλλες καλές ιδέες, σχολιάστε εδώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να σταματήσει αυτόματα το χρονόμετρο όταν κλειδώνει η οθόνη και να ξεκινήσει αυτόματα το χρονόμετρο όταν ξεκλειδώνουμε τον υπολογιστή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει κάποιος τρόπος να μηδενίσει το χρονόμετρο το μέτρημα αλλά να συνεχίσει να λειτουργεί το χρονόμετρο; Δηλ. Όταν πατάω Επαναφορά, δεν θέλω να χρειαστεί να πατήσω ξανά το Start για να λήξει ο χρόνος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, χρησιμοποιώ αυτό το πώμα, αλλά πολύ συχνά οι αριθμοί στο κελί της οθόνης ("C2") αρχίζουν να φαίνονται και να σβήνουν - δείχνουν αρνητικά, τα ψηφία είναι λανθασμένα και η μέτρηση χάνεται. Συνήθως συμβαίνει μετά από περίπου μία ώρα ή περισσότερο, αλλά μερικές φορές ακόμη και πριν περάσει μία ώρα. Είναι αυτό ένα κοινό σφάλμα; και αν ναι, υπάρχει τρόπος να το διορθώσω; Αφαίρεσα το .00 (δηλαδή τα χιλιοστά του δευτερολέπτου) από τον κώδικα σβήνοντας απλώς το: & "." Γραμμή & Format(0, "00") όπου κι αν εμφανίζεται - έχει να κάνει κάτι με αυτό το πρόβλημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε για τη συμβουλή σας, λειτουργούσε ομαλά, αλλά όταν εισάγω δεδομένα σε αυτό το φύλλο, σταμάτησε να εκτελείται, Χρειαζόμαστε να συνεχίσει να λειτουργεί για λίγο. Εισαγάγετε δεδομένα Πώς μπορούμε να διορθώσουμε αυτό το πρόβλημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Nhoeun,
Μπορεί να μην υπάρχει καλός τρόπος για να λύσετε το πρόβλημά σας. Όταν επεξεργάζεστε ένα κελί, αυτό θα διακόψει την τρέχουσα εκτελούμενη μακροεντολή.
Αν έχετε κάποια άλλη καλή μέθοδο, σχολιάστε εδώ!
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΓΕΙΑ. Έχω δημιουργήσει το χρονόμετρο, αλλά πρέπει να μπορώ να έχω τα διάφορα διαστήματα μεταξύ της έναρξης και της διακοπής για να αποθηκευτούν για να μπορέσω να τα αντικατοπτρίσω ως μελέτη χρόνου και κίνησης. Υπάρχουν συμβουλές για το πώς να το κάνετε αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ολοκληρώθηκαν όλα τα βήματα, αλλά κάνοντας κλικ στο κουμπί έναρξης εμφανίζεται το μήνυμα σφάλματος "Δεν είναι δυνατή η εκτέλεση της μακροεντολής "'file.xlsm'!CommandButton1". Η μακροεντολή ενδέχεται να μην είναι διαθέσιμη σε αυτό το βιβλίο εργασίας ή όλες οι μακροεντολές μπορεί να είναι απενεργοποιημένες.". Όλες οι μακροεντολές έχουν ενεργοποιηθεί, η μακροεντολή βρίσκεται στο Module1. ΣΗΜΕΙΩΣΗ: Εκτελώ το Office 2019 για Mac, οπότε μπορεί να είναι πρόβλημα....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα λέγατε να προσθέσετε τη δυνατότητα "+10" και "2x Speed" σε αυτόν τον κώδικα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
είναι το "χρονόμετρο" μια μεταβλητή εδώ; δεν βλέπετε τη συνάφειά του στον κώδικα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να μετρήσει ο μετρητής μόνο δευτερόλεπτα;
Όταν λοιπόν φτάσει τα 59 δευτερόλεπτα, συνεχίζει με 60, 61, 62, 63 ....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας
Ακολουθήσατε τα βήματα, αλλά δεν μπορείτε να βρείτε ώρα εμφάνισης στο κελί του χρονοδιακόπτη. Έχω αντιγράψει τον κωδικό αλλά μπορώ να ελέγξω 1. Ότι οι αριθμοί γραμμών δεν χρειάζονται ή είναι αυτοί2. Ότι έβαλα τον κώδικα στην ενότητα 1 και όχι στο φύλλο1 ή σε αυτό το βιβλίο εργασίας3. Εάν υπάρχει μια μακροεντολή που αναφέρεται στη λίστα μακροεντολών μετά από όλα αυτά - η δική μου δεν το κάνει.
Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Janice, θα πρέπει να βάλεις τον κωδικό στην ενεργή λειτουργική σου μονάδα φύλλου ως βήμα 5.
5. Στη συνέχεια, κάντε δεξί κλικ στην τρέχουσα καρτέλα του φύλλου εργασίας και επιλέξτε Προβολή κώδικα, στο αναδυόμενο παράθυρο της Microsoft Visual Basic για Εφαρμογές, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη Μονάδα.

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

Παρακαλώ ελέγξτε τα, σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι λαμπρό! Ευχαριστώ, Chris H
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να χρησιμοποιήσετε ένα σύνθετο πλαίσιο ή μια αναπτυσσόμενη επιλογή για να ξεκινήσετε και να σταματήσετε το ρολόι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
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.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Σας ευχαριστώ για αυτό, πώς μπορώ να το φτιάξω ώστε να συμπληρώνει χρόνο στα επόμενα κελιά, π.χ. χρόνος έναρξης/διακοπής για το κελί C2, στη συνέχεια διαφορετικός χρόνος έναρξης/διακοπής για το κελί c3, c4, c5 κ.λπ. 
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL