Πώς να φτιάξετε ένα χρονόμετρο για τις εξετάσεις στο Word σας μέσω VBA

Λύσεις λέξεων Σεπτέμβριος 28, 2025
Κοινή χρήση τώρα:

Σε αυτό το άρθρο, θα αναλύσουμε πώς να φτιάξετε ένα χρονόμετρο που μπορείτε να χρησιμοποιήσετε για εξετάσεις στο Word σας μέσω VBA.

Με το πρόγραμμα επεξεργασίας VBA στο Word, μπορείτε πραγματικά να δημιουργήσετε πολλά μικρά αλλά χρήσιμα εργαλεία μόνοι σας. Και σήμερα, θέλουμε να σας δείξουμε τον τρόπο να φτιάξετε χρονόμετρο. Μπορείτε να ενεργοποιήσετε και να το χρησιμοποιήσετε όποτε το Word είναι ανοιχτό. Για παράδειγμα, θα είναι χρήσιμο κατά τη λήψη εξετάσεων.Δημιουργήστε ένα χρονόμετρο για τις εξετάσεις στο Word σας μέσω VBA

Εισαγάγετε μια ενότητα στο έργο VBA

  1. Πρώτα απ 'όλα, πατήστε "Alt+ F11" για να ανοίξετε τον επεξεργαστή VBA στο Word.
  2. Στη συνέχεια, κάντε κλικ στο «Κανονικό» έργο και κάντε κλικ στο «Εισαγωγή».
  3. Επιλέξτε "Module" σε αυτό το μενού.Κάντε κλικ στο "Normal" -> Κάντε κλικ στο "Insert" -> Κάντε κλικ στο "Module"
  4. Κάντε διπλό κλικ στη μονάδα για να την ανοίξετε.
  5. Πατήστε "F4" για να ανοίξετε το "Παράθυρο Ιδιοτήτων". Αλλάξτε το όνομα της μονάδας ως "modStopwatch".
  6. Στη συνέχεια επικολλήστε τους ακόλουθους κωδικούς στη μονάδα:
Public g_dtStart As Variant
Public g_bOnTimer As Boolean

Public Sub OnTimerUpdate()
  Dim tmNextUpdate As Variant
 
  frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  If g_bOnTimer Then
    Application.OnTime tmNextUpdate, "OnTimerUpdate"
  End If
End Sub
Sub TriggerStopwatch()
    frmStopWatch.Show
End Sub
  1. Τέλος, αποθηκεύστε τους κωδικούς.Όνομα νέας ενότητας->Επικόλληση κωδικών->Αποθήκευση κωδικών

Εισαγάγετε μια φόρμα χρήστη

  1. Στο πρόγραμμα επεξεργασίας VBA, κάντε κλικ στο «Εισαγωγή» και επιλέξτε «Φόρμα χρήστη».
  2. Στη συνέχεια, κάντε κλικ στις λαβές του για να προσαρμόσετε το μέγεθος της φόρμας.
  3. Επόμενο ονομάστε τη φόρμα χρήστη ως "frmStopwatch", ορίστε τη λεζάντα του ως "Χρονόμετρο"και ορίστε το χρώμα φόντου. Επίσης, ορίστε το "ShowModal" ως "False".
  4. Κάντε κλικ στην καρτέλα «Προβολή» και επιλέξτε «Εργαλειοθήκη».Κάντε κλικ στην επιλογή "Προβολή" -> Επιλέξτε "Εργαλειοθήκη"
  5. Στην εργαλειοθήκη, κάντε κλικ στο "Ετικέτα" και σχεδιάστε έξι ετικέτες στη σωστή θέση στη φόρμα χρήστη, όπως παρακάτω:Εισαγωγή έξι ετικετών-> Ορισμός ιδιοτήτων κάθε ετικέτας
  6. Τώρα, ορίστε ιδιότητες για κάθε ετικέτα.
  • Κάντε κλικ στην ετικέτα 1. Στη συνέχεια, μεταβείτε στο παράθυρο ιδιότητας. Εισαγάγετε "Start Time:” για τη λεζάντα. Αλλάξτε το χρώμα του φόντου και τη γραμματοσειρά όπως απαιτείται.
  • Κάντε κλικ στην ετικέτα 2. Ονομάστε το ως "lblStartTime". Ρυθμίστε το "BackColor" σε λευκό. Στη συνέχεια, ορίστε σωστά το "Font".
  • Κάντε κλικ στην ετικέτα 3. Πληκτρολογήστε "Ώρα λήξης:" για τη λεζάντα. Ορίστε το χρώμα φόντου και τη γραμματοσειρά ίδια με αυτά της ετικέτας 1.
  • Κάντε κλικ στην ετικέτα 4. Ονομάστε το ως "lblEndTime". Ρυθμίστε το "BackColor" σε λευκό. Στη συνέχεια, ορίστε τη γραμματοσειρά ίδια με αυτή της ετικέτας 2.
  • Κάντε κλικ στην ετικέτα 5. Εισαγάγετε "Elapsed Time:" για λεζάντα. Ορίστε το χρώμα φόντου και τη γραμματοσειρά ίδια με αυτά της ετικέτας 1.
  • Κάντε κλικ στην ετικέτα 6. Ονομάστε το ως "lblShowElapsedTime". Ρυθμίστε το "BackColor" σε λευκό. Στη συνέχεια, ορίστε τη γραμματοσειρά ίδια με αυτή της ετικέτας 2.
  1. Στην εργαλειοθήκη, κάντε κλικ στο "CommandButton" και δημιουργήστε 3 κουμπιά. Τακτοποιήστε τα με την εξής σειρά:Δημιουργήστε τρία κουμπιά->Ιδιότητες κουμπιού ρύθμισης
  2. Ομοίως, ορίστε τις ιδιότητες του κουμπιού.
  • Κάντε κλικ στο κουμπί 1. Ονομάστε το ως "btnStarτ ". Ορίστε το χρώμα φόντου του. Εισαγάγετε "Start Timer» για λεζάντα. Και ορίστε σωστά τη γραμματοσειρά.
  • Κάντε κλικ στο κουμπί 2. Ονομάστε το ως "btnStop". Ορίστε το χρώμα φόντου του. Εισαγάγετε το "Stop Timer" για τη λεζάντα. Και ορίστε σωστά τη γραμματοσειρά.
  • Κάντε κλικ στο κουμπί 3. Ονομάστε το ως "cmdClose". Ορίστε το χρώμα φόντου του. Πληκτρολογήστε "Κλείσιμο" για λεζάντα. Και ορίστε σωστά τη γραμματοσειρά.
  1. Τώρα κάντε διπλό κλικ στο «Starκουμπί t Timer”. Και εισάγετε τους παρακάτω κωδικούς:
Private Sub btnStart_Click()
  Dim tmNextUpdate As Variant
  g_dtStart = Now
 
  frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
  frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  g_bOnTimer = True
  Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub

Η πρώτη και η τελευταία γραμμή είναι ήδη εκεί, οπότε δεν χρειάζεται να τις πληκτρολογήσετε ξανά. Αποθήκευση κωδικών.

  1. Επόμενο διπλό κλικ στο κουμπί «Διακοπή χρονοδιακόπτη». Στη συνέχεια, εισάγετε αυτούς τους κωδικούς:
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. Κάντε διπλό κλικ στο κουμπί "Κλείσιμο" και επικολλήστε τους κωδικούς:
Private Sub cmdClose_Click()
  Unload Me
End Sub

Επικόλληση κωδικώνΣτη συνέχεια, μπορείτε να αντιστοιχίσετε ένα κουμπί για μακροεντολή "TriggerStopwatch”.Όσον αφορά τα λεπτομερή βήματα για την εκχώρηση κουμπιού για μακροεντολή, μπορείτε να ανατρέξετε σε αυτό το άρθρο: Πώς να αφαιρέσετε τη μορφοποίηση των επικολλημένων κειμένων με μακροεντολή και VBA στο Word σας

Ακολουθεί μια επίδειξη χρήσης του χρονόμετρου:

Επιλέξτε το σωστό εργαλείο ανάκτησης

Με περισσότερες ψηφιακές συσκευές που εμπλέκονται στην αποθήκευση πληροφοριών, η ανάκτηση δεδομένων έχει γίνει ένα καυτό θέμα στις μέρες μας. Για παράδειγμα, εάν αντιμετωπίσετε μια κατάρρευση του Word, πρέπει να λάβετε ένα εργαλείο για επιδιόρθωση διεφθαρμένη λέξη. Τότε είναι του utmost είναι σημαντικό να αποκτήσετε ένα κατάλληλο εργαλείο.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση xlsx pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com

Κοινή χρήση τώρα:

Τα σχόλια είναι κλειστά.