VBA datum funkcija | Kako koristiti Excel VBA datumsku funkciju?

Excel VBA DATUM funkcija

VBA Date je funkcija datuma i vremena, vraća samo trenutni datum prema datumu sustava koji koristite, također je važno napomenuti da ova funkcija nema nikakve argumente, drugi važan čimbenik koji trebate zapamtiti je da je ova funkcija vraća trenutni sistemski datum.

U Excelu ne možemo živjeti bez nekih funkcija, a "VBA Date" je jedna od tih funkcija. Ako ste česti korisnik Excelovog radnog lista, tada morate biti svjesni funkcije koja se naziva „DANAS ()“ koja vraća trenutni datum prema datumu sustava.

Datum je vrlo jednostavna funkcija i vraća samo trenutni datum prema datumu sustava koji koristite. Ovo djeluje slično funkciji našeg radnog lista "DANAS", ali nije hlapljive prirode.

Sintaksa funkcije excel DATE vrlo je jednostavna jer nema argument za opskrbu i uključuje samo prazne zagrade.

Datum ()

Zagrade su tu samo da objasne funkciju kada koristite funkciju bez potrebe za unosom zagrade.

Kako koristiti Excel VBA datumsku funkciju?

Ovaj VBA predložak datuma Excel možete preuzeti ovdje - VBA predložak datuma Excel

Primjer # 1

Pretpostavimo da želite umetnuti trenutni datum u ćeliju A1, a zatim slijedite korake u nastavku za pisanje koda za umetanje trenutnog datuma u ćeliju A1.

Korak 1: Stvorite ime makronaredbe.

Kodirati:

 Sub Datum_Primjer1 ()

Korak 2: Budući da trebamo pohraniti trenutni datum u ćeliju A1, naš će kôd biti Raspon ("A1"). Vrijednost .

Kodirati:

 Sub Datum_Primjer1 () Raspon ("A1"). Vrijednost Kraj Sub 

Korak 3: U ćeliji A1 potreban nam je trenutni datum, pa upotrijebite funkciju DATE.

Kodirati:

 Sub Datum_Primjer1 () Raspon ("A1"). Vrijednost = Datum Kraj Sub 

Korak 4: Ok, gotovi smo. Pokrenimo sada ovaj kod pritiskom na tipku F5 ili ga možete pokrenuti i ručno, kao što je prikazano na donjoj snimci zaslona. Dobit ćemo trenutni datum u ćeliji A1.

Dakle, kada pišem ovaj kod, trenutni datum u mom sustavu je „15. ožujka 2019.“.

Napomena: Format  datuma ovisi o postavkama sustava Windows. U svakom slučaju, možete promijeniti format datuma u ćelijama formata.

Primjer # 2

Pretpostavimo da ste agent LIC-a i da imate nekoliko kupaca s kojima trebate suočiti. Jedan od ključnih ciljeva je znati čije je plaćanje danas, tako da ih možete nazvati i odmah izvršiti naplatu.

Pretpostavimo da je dolje popis kupaca koje imate u vašoj bazi podataka.

Već sam napisao kôd koji će vas obavijestiti čim otvorite excel datoteku.

Kodirati:

 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) .Red If Duedate = DateSerial (Year (Date), Month ( Cells (i, 3) .Value), Day (Cells (i, 3) .Value)) Zatim MsgBox "Ime kupca:" & Cells (i, 1) .Value & vbNewLine & "Premium Količina:" & Cells (i , 2) .Value End If Next i End Sub 

Kopirajte gornji kod i zalijepite u VBA modul.

Sada dvaput kliknite opciju "This Workbook".

Sada s gornjeg padajućeg izbornika odaberite "Workbook" .

Čim odaberete opciju "Radna knjiga", automatski se prikazuje privatna makronaredba.

Ovdje naziv makronaredbe kaže „Workbook_Open ()“, što znači kad god ova radna knjiga otvori ono što morate učiniti. Kad god se ova radna knjiga otvori, moramo pokrenuti makronaredbu koju smo stvorili.

Dakle, ovdje moramo makronaredbu koju smo stvorili nazvati njezinim imenom. U gornjem kodu naziv našeg makronaredbe je „Due_Notifier“.

Kodirati:

 Nazovite Due_Notifier

Sada spremite ovu radnu knjigu i zatvorite je.

Nakon što ga zatvorite, otvorite radnu knjižicu i pogledajte čaroliju.

Sad ću otvoriti….

Wow !!! Prikazuje mi ime kupca i njihov iznos za tekući datum.

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.