VBA Τώρα (Οδηγός βήμα προς βήμα) - Πώς να χρησιμοποιήσετε τη συνάρτηση Now στο Excel VBA;

Πίνακας περιεχομένων

Λειτουργία Excel VBA Now

Λειτουργία Excel VBA Now

ΤΩΡΑ είναι μια συνάρτηση ημερομηνίας και ώρας και στα δύο VBA που χρησιμοποιείται για τη λήψη της τρέχουσας ημερομηνίας και ώρας του συστήματος, όπως και η συνάρτηση φύλλου εργασίας που δεν λαμβάνει ορίσματα σε αυτήν, στο VBA η συνάρτηση τώρα επίσης δεν παίρνει ορίσματα, η απόδοση επιστροφής για αυτή τη συνάρτηση είναι ημερομηνία.

Η συνάρτηση VBA NOW είναι παρόμοια με αυτήν της λειτουργίας φύλλου εργασίας excel. Όπως και η συνάρτηση DATE στο VBA, το "NOW" επίσης δεν έχει παραμέτρους για να περάσει. Απλώς πρέπει να περάσουμε τη συνάρτηση με κλειστή παρένθεση ή επίσης δεν χρειάζεται παρένθεση. Χρησιμοποιώντας τη συνάρτηση DATE στο VBA, μπορούμε να δημιουργήσουμε την τρέχουσα ημερομηνία όπως δείχνει το σύστημα στο οποίο εργαζόμαστε. Ωστόσο, έχω δει καταστάσεις όπου χρειαζόμαστε την τρέχουσα ώρα και την ημερομηνία. Στο Excel, μπορούμε να κάνουμε πολλές ποικιλίες πραγμάτων. Παρομοίως, μπορούμε να δημιουργήσουμε την τρέχουσα ημερομηνία και ώρα με μια απλή λειτουργία που ονομάζεται NOW in excel.

Ο τύπος του VBA ΤΩΡΑ είναι απλός.

ΤΩΡΑ ()

Παράδειγμα της λειτουργίας NOW στο VBA Excel

Κοιτάξτε το απλό παράδειγμα της συνάρτησης NOW στο VBA. Ακολουθήστε τα παρακάτω βήματα για να γράψετε τον κώδικα VBA και να έχετε αρκετές γνώσεις ΤΩΡΑ καθώς και να γράψετε τον κώδικα.

Βήμα 1: Ξεκινήστε την υποδιαδικασία δίνοντας ένα όνομα μακροεντολής.

Κώδικας:

Sub Now_Example1 () End Sub

Βήμα 2: Δηλώστε τη μεταβλητή ως "Ημερομηνία". Ο λόγος για τον οποίο πρέπει να δηλώσουμε τη μεταβλητή ως "Ημερομηνία" επειδή το τελικό αποτέλεσμα είναι σε μορφή ημερομηνίας και ώρας.

Κώδικας:

Sub Now_Example1 () Dim k As Date End Sub

Βήμα 3: Αντιστοιχίστε την τιμή στη μεταβλητή "k" εφαρμόζοντας τη συνάρτηση VBA NOW.

Κώδικας:

Sub Now_Example1 () Dim k As Date k = Now End Sub

Βήμα 4: Τώρα δείξτε την τιμή της συνάρτησης ΤΩΡΑ, την οποία έχουμε εκχωρήσει στη μεταβλητή "k" στο πλαίσιο μηνυμάτων στο VBA.

Κώδικας:

Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub

Εντάξει, τελειώσαμε.

Εκτελέστε τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα και δείτε τι είναι το αποτέλεσμα.

Το αποτέλεσμα δείχνει 15/4/2019 στις 5:03:35.

Η μορφή ημερομηνίας του υπολογιστή μου είναι "mm-dd-yyyy."

Μπορούμε επίσης να αλλάξουμε τη μορφή ημερομηνίας χρησιμοποιώντας τη συνάρτηση FORMAT. Παρακάτω είναι ο κωδικός για να αλλάξετε τη μορφή ημερομηνίας.

Κώδικας:

Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub

Εκτελέστε τον κωδικό και δείτε τη διαφορά.

Τώρα έχουμε τη σωστή μορφή ημερομηνίας και ώρας. Με αυτήν τη μορφή, οποιοσδήποτε μπορεί να κατανοήσει τη μορφή ημερομηνίας και ώρας.

Πτητικό στη φύση:

Όπως μπορείτε να δείτε στο πρώτο παράδειγμα, έχουμε το αποτέλεσμα χρόνου ως 5:03:35 και στο δεύτερο παράδειγμα, πηγαίνουμε στο αποτέλεσμα ως 17:19:02. Αυτό δείχνει λοιπόν ότι η συνάρτηση NOW είναι μια πτητική συνάρτηση που αλλάζει κάθε δευτερόλεπτο.

Εναλλακτική λύση στη λειτουργία χρονοδιακόπτη στο VBA

Ως εναλλακτική λύση του VBA TIMER, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση "VBA NOW" για να υπολογίσουμε τον συνολικό χρόνο που χρειάζεται η μακροεντολή για την ολοκλήρωση της εργασίας.

Χρησιμοποιήστε τον παρακάτω κωδικό για να υπολογίσετε τον χρόνο που χρειάζεται ο κωδικός σας.

C0de:

Sub TotalDuration () Dim k As Date k = Now '' 'Πληκτρολογήστε τον κωδικό σας εδώ' '' MsgBox "Ο συνολικός χρόνος που λαμβάνεται από τη μακροεντολή για την ολοκλήρωση της εργασίας είναι:" & _ Format ((Now - k), "HH: MM : SS ") End Sub

Στην περιοχή με πράσινο χρώμα, αντιγράψτε και επικολλήστε τον κωδικό σας.

Εκτελέστε τον κωδικό πατώντας το πλήκτρο F5 ή πατήστε το κουμπί εκτέλεσης. Μόλις ολοκληρώσει την εκτέλεση, θα πάρουμε το χρόνο που απαιτείται από τη μακροεντολή για να ολοκληρώσουμε το μήνυμα εργασίας στο πλαίσιο μηνύματος. Παρακάτω είναι ένα παράδειγμα του ίδιου.