Λειτουργία χρόνου Excel VBA
Το VBA Time Function επιστρέφει την τρέχουσα ώρα, επίσης το σημαντικό πράγμα που πρέπει να σημειωθεί είναι ότι αυτή η συνάρτηση δεν έχει καθόλου επιχειρήματα, ένας άλλος σημαντικός παράγοντας που πρέπει να θυμάστε είναι ότι αυτή η συνάρτηση επιστρέφει την τρέχουσα ώρα του συστήματος. Χρησιμοποιώντας αυτήν τη λειτουργία μπορούμε πραγματικά να βρούμε τον πραγματικό χρόνο που απαιτείται από τη γραμμή κωδικών για την ολοκλήρωση της διαδικασίας.
Το TIME είναι ένα είδος πτητικής λειτουργίας. Δεν έχει καμία σύνταξη σε αυτό.
Έχουμε επίσης μια παρόμοια συνάρτηση στο excel - NOW (), η οποία εισάγει τόσο τις τρέχουσες ώρες όσο και την τρέχουσα ημερομηνία στο υπολογιστικό φύλλο.
ΧΡΟΝΟΣ ()
Πρέπει απλώς να εισέλθουμε στη λειτουργία. Στην πραγματικότητα, δεν χρειάζεται η παρένθεση να περικλείει μόνο TIME για να εισαγάγει την τρέχουσα ώρα. Το αποτέλεσμα που δίνεται από τη συνάρτηση TIME βρίσκεται στη συμβολοσειρά.
Πώς να χρησιμοποιήσετε τη λειτουργία TIME στο VBA;
Επιτρέψτε μου να σας δείξω το παράδειγμα ενός απλού TIME στη λειτουργία excel. Ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε κώδικα για να χρησιμοποιήσετε τη συνάρτηση TIME.
Βήμα 1: Δημιουργήστε μια μακροεντολή.
Κώδικας:
Sub Time_Example1 () End Sub
Βήμα 2: Δηλώστε μια μεταβλητή ως συμβολοσειρά.
Κώδικας:
Sub Time_Example1 () Dim CurrentTime ως συμβολοσειρά End Sub
Βήμα 3: Εκχωρήστε μια τιμή σε αυτήν τη μεταβλητή μέσω της συνάρτησης TIME.
Κώδικας:
Sub Time_Example1 () Dim CurrentTime as String CurrentTime = Time End Υπο
Βήμα 4: Τώρα δείξτε το αποτέλεσμα στο πλαίσιο μηνύματος.
Κώδικας:
Sub Time_Example1 () Dim CurrentTime as String CurrentTime = Time MsgBox CurrentTime End Sub
Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα. Θα πάρουμε την τρέχουσα ώρα.
Έτσι, όταν εκτελούσα αυτόν τον κωδικό, η ώρα ήταν 11.51.54 π.μ.
Εναλλακτική συνάρτηση Now ()
Συνδυασμός ημερομηνίας και ώρας ως εναλλακτική λύση στη συνάρτηση NOW
Όπως είπα στην αρχή του άρθρου, ΤΩΡΑ μπορεί να εισαγάγει την τρέχουσα ημερομηνία και ώρα. Ωστόσο, μπορούμε να χρησιμοποιήσουμε δύο άλλες λειτουργίες ως εναλλακτική συνάρτηση στη συνάρτηση NOW. Αυτές οι δύο λειτουργίες είναι συναρτήσεις VBA DATE & VBA TIME.
Η Ημερομηνία VBA θα επιστρέψει την τρέχουσα ημερομηνία και η Ώρα θα επιστρέψει την τρέχουσα ώρα, επομένως αυτό κάνει τη λειτουργία ΤΩΡΑ Ακολουθεί ένα σύνολο κωδικών που θα εισαγάγει την τρέχουσα ημερομηνία και ώρα στο κελί A1.
Κώδικας:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub
Αυτός ο κωδικός θα εισαγάγει την τρέχουσα ημερομηνία και ώρα στο κελί A1.
Μπορούμε επίσης να εφαρμόσουμε μια μορφή σε αυτές τις τιμές χρησιμοποιώντας τη συνάρτηση FORMAT. Ο παρακάτω κώδικας θα διαμορφώσει την ημερομηνία και την ώρα.
Κώδικας:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
Τώρα το αποτέλεσμα αυτού του κώδικα έχει ως εξής.
Παρακολουθήστε τις ανοιχτές εγγραφές του βιβλίου εργασίας σας χρησιμοποιώντας τη συνάρτηση Time στο VBA
Συχνά φορές, πρέπει να γνωρίζουμε τη συχνότητα ανοίγματος του βιβλίου εργασίας μας. Υπάρχει μια κατάσταση όπου ανοίγουμε το βιβλίο εργασίας αρκετά συχνά και κάνουμε κάποιες αλλαγές. Παρακολουθώντας την ώρα και την ημερομηνία ανοίγματος του βιβλίου εργασίας, μπορούμε να παρακολουθούμε την ώρα ανοίγματος του βιβλίου εργασίας.
Δημιουργήστε ένα νέο φύλλο και μετονομάστε το σε "Track Sheet".
Βήμα 1: Κάντε διπλό κλικ σε αυτό το βιβλίο εργασίας από το πρόγραμμα επεξεργασίας VBE.
Βήμα 2: Επιλέξτε το βιβλίο εργασίας από την αναπτυσσόμενη λίστα αντικειμένων.
Βήμα 3: Μόλις ορίσετε αυτήν την επιλογή, μπορείτε να δείτε μια νέα μακροεντολή που δημιουργείται αυτόματα από μόνη της στο όνομα "Workbook_Open ()."
Βήμα 4: Μέσα σε αυτήν τη μακροεντολή, θα χρειαστεί να γράψουμε έναν κωδικό για να παρακολουθούμε την ημερομηνία και ώρα ανοίγματος του βιβλίου εργασίας.
Έχω ήδη γράψει κώδικα και παρακάτω είναι ο κωδικός για εσάς.
Κώδικας:
Private Sub Workbook_Open () Dim LR As Long LR = Sheets ("Track Sheet"). Cells (Rows.Count, 1). End (xlUp). Row + 1 Sheets ("Track Sheet"). Cells (LR, 1) .Value = Ημερομηνία & "" & Time () Sheets ("Track Sheet"). Cells (LR, 1). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
Αυτό θα καταγράψει τους χρόνους ανοίγματος του βιβλίου εργασίας σας όπως ο παρακάτω.
