Функція дати VBA | Як використовувати функцію дати VBA Excel?

Функція ДАТИ Excel VBA

VBA Date - це функція Date and Time, вона повертає лише поточну дату відповідно до системної дати, яку ви використовуєте, також важливо відзначити, що ця функція не має жодних аргументів, ще одним важливим фактором, який слід пам’ятати, є те, що ця функція повертає поточну системну дату.

У Excel ми не можемо жити без деяких функцій, і “VBA Date” є однією з цих функцій. Якщо ви часто користуєтесь робочим аркушем Excel, то вам слід знати про функцію під назвою «СЬОГОДНІ ()», яка повертає поточну дату відповідно до системної дати.

Дата - це дуже проста функція, і вона повертає лише поточну дату відповідно до системної дати, яку ви використовуєте. Це працює дуже схоже на функцію нашого робочого аркуша “СЬОГОДНІ”, але не має мінливого характеру.

Синтаксис функції excel DATE дуже простий, оскільки він не має аргументів для подачі і включає лише порожні дужки.

Дата ()

Дужки існують лише для пояснення функції, коли ви використовуєте функцію, не потрібно вводити дужки.

Як використовувати функцію дати VBA Excel?

Завантажити цей шаблон VBA Date Excel можна тут - Шаблон Excel VBA Date

Приклад №1

Припустимо, ви хочете вставити поточну дату в комірку А1, а потім виконайте наведені нижче дії, щоб написати код для вставки поточної дати в комірку А1.

Крок 1: Створіть ім'я макроса.

Код:

 Додаткова дата_Приклад1 ()

Крок 2: Оскільки нам потрібно зберегти поточну дату в комірці А1, наш код буде діапазоном (“А1”) .

Код:

 Sub Date_Example1 () Діапазон ("A1"). Значення Кінець Sub 

Крок 3: У комірці A1 нам потрібна поточна дата, тому використовуйте функцію DATE.

Код:

 Піддіапазон Date_Example1 () Діапазон ("A1"). Значення = Дата Кінець Sub 

Крок 4: Гаразд, ми закінчили. Давайте запустимо цей код зараз, натиснувши клавішу F5, або ви також можете запустити код вручну, як показано на знімку екрана нижче. Ми отримаємо поточну дату в комірці А1.

Отже, коли я пишу цей код, поточною датою в моїй системі є «15 березня 2019».

Примітка. Формат  дати залежить від налаштувань Windows. У будь-якому випадку, ви можете змінити формат дати в комірках формату.

Приклад №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 Сума:" & Клітини (i , 2) .Value End If Next i End Sub 

Скопіюйте наведений вище код і вставте в модуль VBA.

Тепер двічі клацніть на опції «Ця робоча книга».

Тепер виберіть “Workbook” із наведеного вище спадного меню.

Як тільки ви виберете опцію «Робоча книга», ви побачите, що приватний макрос автоматично відкривається.

Тут назва макросу говорить “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.