seychellesartprojects.org

Λειτουργία 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 ή πατήστε το κουμπί εκτέλεσης. Μόλις ολοκληρώσει την εκτέλεση, θα πάρουμε το χρόνο που απαιτείται από τη μακροεντολή για να ολοκληρώσουμε το μήνυμα εργασίας στο πλαίσιο μηνύματος. Παρακάτω είναι ένα παράδειγμα του ίδιου.

Έτσι, μπορούμε να χρησιμοποιήσουμε τη λειτουργία NOW με πολλούς τρόπους στο VBA.

Μπορείτε να κάνετε λήψη αυτού του προτύπου λειτουργίας του Excel VBA Now Function - Πρότυπο λειτουργίας VBA Now