פונקציית תאריך VBA | כיצד להשתמש בפונקציית תאריך Excel VBA?

פונקציית תאריך Excel VBA

תאריך VBA הוא פונקציית תאריך ושעה, הוא מחזיר רק את התאריך הנוכחי בהתאם לתאריך המערכת בו אתה משתמש, וגם הדבר החשוב לציין הוא כי לפונקציה זו אין ויכוחים כלשהם, גורם חשוב נוסף לזכור הוא כי פונקציה זו מחזירה את תאריך המערכת הנוכחי.

ב- Excel אנו לא יכולים לחיות ללא חלק מהפונקציות ו- "תאריך VBA" הוא אחד מאותם פונקציות. אם אתה משתמש תכוף בגליון העבודה של Excel, עליך להיות מודע לפונקציה הנקראת "TODAY ()" שתחזיר את התאריך הנוכחי לפי תאריך המערכת.

התאריך הוא פונקציה פשוטה מאוד והוא מחזיר רק את התאריך הנוכחי לפי תאריך המערכת בו אתה משתמש. זה עובד באופן דומה מאוד לפונקציה של גליון העבודה שלנו "TODAY" אך לא נדיף במהותו.

התחביר של פונקציית Excel DATE הוא פשוט מאוד מכיוון שאין לו שום ויכוח לספק והוא כולל רק סוגריים ריקים.

תאריך ()

סוגריים יש רק כדי להסביר את הפונקציה כאשר אתה משתמש בפונקציה אין צורך להיכנס לסוגריים.

כיצד להשתמש בפונקציית תאריך Excel VBA?

אתה יכול להוריד תבנית VBA תאריך Excel זו כאן - תבנית VBA תאריך Excel

דוגמה מס '1

נניח שברצונך להכניס את התאריך הנוכחי לתא A1 ואז עקוב אחר השלבים הבאים כדי לכתוב את הקוד כדי להכניס את התאריך הנוכחי לתא A1.

שלב 1: צור שם מאקרו.

קוד:

 תאריך משנה_דוגמה 1 ()

שלב 2: מכיוון שעלינו לאחסן את התאריך הנוכחי בתא A1 הקוד שלנו יהיה טווח ("A1") .

קוד:

 טווח משנה תאריך_דוגמא 1 () ("A1"). סוף סוף ערך 

שלב 3: בתא A1 אנו זקוקים לתאריך הנוכחי, לכן השתמש בפונקציה DATE.

קוד:

 טווח תאריך_דוגמה 1 () ("A1"). ערך = תאריך סיום תאריך 

שלב 4: אוקי, סיימנו. בואו נפעיל קוד זה כעת על ידי לחיצה על מקש F5 או שתוכלו גם להריץ את הקוד באופן ידני כפי שמוצג בצילום המסך שלהלן. נקבל את התאריך הנוכחי בתא A1.

לכן, כשאני כותב קוד זה התאריך הנוכחי במערכת שלי הוא "15 במרץ 2019".

הערה: פורמט  התאריך תלוי בהגדרות החלונות שלך. בכל מקרה, תוכל לשנות את פורמט התאריך תחת תאים לעיצוב.

דוגמה מס '2

נניח שאתה סוכן LIC ויש לך כמה לקוחות להתמודד איתם. אחד ממטרות המפתח הוא לדעת מי התשלום המגיע היום, כך שתוכל להתקשר אליהם ולגבות את התשלום באופן מיידי.

נניח שלמטה זו רשימת הלקוחות שיש לך במסד הנתונים שלך.

כבר כתבתי קוד שיודיע לך ברגע שאתה פותח את קובץ ה- Excel.

קוד:

 סמנכ"ל משנה () Dim Dimeded as Date Dim i As Long Duedate = תאריך i = 2 עבור i = 2 לתאים (שורות. ספירה, 1). End (xlUp). Row אם Duedate = DateSerial (שנה (תאריך), חודש ( תאים (i, 3) .Value), Day (Cells (i, 3) .Value)) ואז MsgBox "שם הלקוח:" ותאים (i, 1) .Value & vbNewLine & "סכום פרימיום:" & תאים (i , 2). ערך סוף אם הבא אני סוף משנה 

העתק את הקוד שלעיל והדבק במודול VBA.

כעת לחץ פעמיים על האפשרות "חוברת עבודה זו".

כעת בחר "חוברת עבודה" מהתפריט הנפתח שלמעלה.

ברגע שתבחר באפשרות "חוברת עבודה" תוכל לראות מאקרו פרטי נפתח אוטומטית.

כאן שם המאקרו אומר "Workbook_Open ()" המשמעות היא בכל פעם שחוברת עבודה זו פותחת את מה שעליך לעשות. בכל פעם שחוברת עבודה זו נפתחת עלינו להריץ את המאקרו שיצרנו.

לכן, כאן עלינו לקרוא למאקרו שלנו שיצרנו בשמו. בקוד שלעיל, שם המאקרו שלנו הוא "Due_Notifier".

קוד:

 התקשר ל- Due_Notifier

כעת שמור את חוברת העבודה הזו וסגור אותה.

לאחר סגירתו, פתח את חוברת העבודה וראה את הקסם.

עכשיו אני אפתח ...

וואו!!! זה מראה לי את שם הלקוח ואת הסכום הראוי לתאריך הנוכחי.

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 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 to send 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 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 

As soon as you come to the office just open the file and run this code, it will automatically send birthday wishes to the respective email id’s.

Note: You should have Outlook configured in your system.