Συνάρτηση Excel VBA DATE
Η ημερομηνία Ημερομηνία VBA είναι μια συνάρτηση ημερομηνίας και ώρας, επιστρέφει μόνο την τρέχουσα ημερομηνία σύμφωνα με την ημερομηνία συστήματος που χρησιμοποιείτε, επίσης το σημαντικό πράγμα που πρέπει να σημειωθεί είναι ότι αυτή η συνάρτηση δεν έχει καθόλου επιχειρήματα, ένας άλλος σημαντικός παράγοντας που πρέπει να θυμάστε είναι ότι αυτή η λειτουργία επιστρέφει την τρέχουσα ημερομηνία συστήματος.
Στο Excel, δεν μπορούμε να ζήσουμε χωρίς κάποιες από τις συναρτήσεις και το "Ημερομηνία VBA" είναι μία από αυτές τις συναρτήσεις. Εάν είστε συχνός χρήστης ενός φύλλου εργασίας του excel, τότε πρέπει να γνωρίζετε μια συνάρτηση που ονομάζεται "ΣΗΜΕΡΑ ()", η οποία θα επιστρέψει την τρέχουσα ημερομηνία σύμφωνα με την ημερομηνία του συστήματος.
Η ημερομηνία είναι μια πολύ απλή συνάρτηση και επιστρέφει μόνο την τρέχουσα ημερομηνία σύμφωνα με την ημερομηνία συστήματος που χρησιμοποιείτε. Αυτό λειτουργεί πολύ παρόμοια με τη λειτουργία του φύλλου εργασίας μας "ΣΗΜΕΡΑ", αλλά δεν είναι πτητική στη φύση.
Η σύνταξη της συνάρτησης excel DATE είναι πολύ απλή, επειδή δεν έχει κανένα επιχείρημα για την παροχή και περιλαμβάνει μόνο κενή παρένθεση.
Ημερομηνία ()
Οι παρενθέσεις υπάρχουν μόνο για να εξηγήσουν τη συνάρτηση όταν χρησιμοποιείτε τη συνάρτηση, δεν χρειάζεται να εισάγετε παρένθεση.
Πώς να χρησιμοποιήσετε τη συνάρτηση Excel VBA Date;
Παράδειγμα # 1
Ας υποθέσουμε ότι θέλετε να εισαγάγετε την τρέχουσα ημερομηνία στο κελί A1 και, στη συνέχεια, ακολουθήστε τα παρακάτω βήματα για να γράψετε τον κωδικό για να εισαγάγετε την τρέχουσα ημερομηνία στο κελί A1.
Βήμα 1: Δημιουργήστε ένα όνομα μακροεντολής.
Κώδικας:
Υπο Ημερομηνία_ Παράδειγμα1 ()
Βήμα 2: Δεδομένου ότι πρέπει να αποθηκεύσουμε την τρέχουσα ημερομηνία στο κελί A1, ο κώδικάς μας θα είναι εύρος ("A1") .
Κώδικας:
Sub Date_Example1 () Range ("A1"). Value End Sub
Βήμα 3: Στο κελί A1 χρειαζόμαστε την τρέχουσα ημερομηνία, οπότε χρησιμοποιήστε τη συνάρτηση DATE.
Κώδικας:
Sub Date_Example1 () Range ("A1"). Value = Date End Sub
Βήμα 4: Εντάξει, τελειώσαμε. Ας τρέξουμε αυτόν τον κώδικα τώρα πατώντας το πλήκτρο F5, ή μπορείτε επίσης να εκτελέσετε τον κώδικα χειροκίνητα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Θα λάβουμε την τρέχουσα ημερομηνία στο κελί A1.
Έτσι, όταν γράφω αυτόν τον κώδικα τρέχουσα ημερομηνία στο σύστημά μου είναι «15 th Μαρ 2019».
Σημείωση: Η μορφή της ημερομηνίας σας εξαρτάται από τις ρυθμίσεις των παραθύρων σας. Τέλος πάντων, μπορείτε να αλλάξετε τη μορφή της ημερομηνίας κάτω από τα κελιά μορφής.
Παράδειγμα # 2
Ας υποθέσουμε ότι είστε πράκτορας LIC και έχετε πολλούς πελάτες για να αντιμετωπίσετε. Ένα από τα βασικά αντικείμενα είναι να γνωρίζετε ποιος είναι ο οφειλόμενος χρόνος πληρωμής, ώστε να μπορείτε να τους καλέσετε και να λάβετε αμέσως την πληρωμή.
Ας υποθέσουμε παρακάτω είναι η λίστα των πελατών που έχετε στη βάση δεδομένων σας.
Έχω ήδη γράψει έναν κωδικό που θα σας ειδοποιήσει μόλις ανοίξετε το αρχείο excel.
Κώδικας:
Sub Due_Notifier () Dim Duedate As Date Dim i As Long Duedate = Date i = 2 For i = 2 To Cells (Rows.Count, 1). End (xlUp). Row If Duedate = DateSerial (Year (Date), Month ( Cells (i, 3). Value), Day (Cells (i, 3). Value)) Στη συνέχεια, MsgBox "Όνομα πελάτη:" & Cells (i, 1). Value & vbNewLine & "Premium Amount:" & Cells (i , 2). Αξία End if Next i End Sub
Αντιγράψτε τον παραπάνω κώδικα και επικολλήστε τον στη μονάδα VBA.
Τώρα κάντε διπλό κλικ στην επιλογή "Αυτό το βιβλίο εργασίας".
Τώρα επιλέξτε "Βιβλίο εργασίας" από το παραπάνω αναπτυσσόμενο μενού.
Μόλις ορίσετε την επιλογή "Βιβλίο εργασίας", μπορείτε να δείτε μια ιδιωτική μακροεντολή ανοίγει αυτόματα.
Εδώ το όνομα της μακροεντολής λέει "Workbook_Open ()" αυτό σημαίνει όποτε αυτό το βιβλίο εργασίας ανοίγει αυτό που πρέπει να κάνετε. Όποτε ανοίγει αυτό το βιβλίο εργασίας, πρέπει να εκτελέσουμε τη μακροεντολή που έχουμε δημιουργήσει.
So, here we need to call our macro we have created by its name. In the above code, our macro name is “Due_Notifier.”
Code:
Call Due_Notifier
Now save this workbook and close it.
After closing it, open the workbook and see the magic.
Now I will open… .
Wow!!! It shows me the customer name and their due amount for the current date.
The customer Name is “Amar,” and the due amount is “20883”. The reason why it is showing this customer name because the due date for Mr. Amar is 15th March 2019, i.e., Today.
Now click on Ok, it will show other customer names if the due date is on today.
It is showing Mr. Arvind’s name; his due date is also on 15th March 2019.
Now, you can easily identify the customer names as soon as you come to the office. One of the big headaches is gone.
Similarly, I have created one more excel macro, which will send auto birthday emails from your outlook.
Example #3
Assume you are in an “Employee Engagement Team,” and you are responsible for sending birthday emails to your employees. Identify and sending the email to each, and every one separately is a painful job.
Hello, my dear friend, doesn’t worry, I have created a macro for you to send the auto birthday emails to your employees.
I have created some data to test, and below is the image of the same.
You just need to update the employee master according to the headings of the table. Below is the code to send the emails.
Copy the below code and paste it in the module.
Sub Birthday_Wishes() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Dim Mydate As Date Dim i As Long Set OutlookApp = New Outlook.Application Mydate = Date i = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set OutlookMail = OutlookApp.CreateItem(olMailItem) If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then OutlookMail.To = Cells(i, 7).Value OutlookMail.CC = Cells(i, 8).Value OutlookMail.BCC = "" OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _ "We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _ vbNewLine & "Regards," & vbNewLine & "StrIDE Team" OutlookMail.Display OutlookMail.Send End If Next i End Sub
Μόλις φτάσετε στο γραφείο, απλώς ανοίξτε το αρχείο και εκτελέστε αυτόν τον κωδικό, θα στείλει αυτόματα ευχές γενεθλίων στα αντίστοιχα αναγνωριστικά email.
Σημείωση: Θα πρέπει να έχετε ρυθμίσει το Outlook στο σύστημά σας.
