Excel VBA DATE függvény
A VBA Date egy dátum és idő függvény, csak az aktuális dátumot adja vissza az Ön által használt rendszer dátumának megfelelően. Fontos megjegyezni azt is, hogy ennek a függvénynek nincsenek argumentumai, egy másik fontos tényező, amire emlékezni kell, hogy ez a függvény az aktuális rendszerdátumot adja vissza.
Az excelben nem élhetünk egyes funkciók nélkül, és a „VBA Date” az egyik ilyen funkció. Ha Ön gyakran használja az excel munkalapot, akkor ismernie kell a „TODAY ()” nevű függvényt, amely a rendszer dátumának megfelelő aktuális dátumot adja vissza.
A dátum nagyon egyszerű függvény, és csak az aktuális dátumot adja vissza a használt rendszer dátumának megfelelően. Ez nagyon hasonlóan működik, mint a "TODAY" munkalapfüggvényünk, de nem ingatag jellegű.
Az excel DATE függvény szintaxisa nagyon egyszerű, mivel nincs megadandó argumentuma, és csak üres zárójeleket tartalmaz.
Dátum ()
A zárójel csak arra szolgál, hogy elmagyarázza a függvényt, amikor azt használja, hogy nincs szükség zárójelek megadására.
Hogyan kell használni az Excel VBA Date függvényt?
Ezt a VBA dátum Excel sablont innen töltheti le - VBA dátum Excel sablont1. példa
Tegyük fel, hogy be akarja illeszteni az aktuális dátumot az A1 cellába, majd kövesse az alábbi lépéseket a kód megírásához, hogy beillessze az aktuális dátumot az A1 cellába.
1. lépés: Hozzon létre egy makrónevet.
Kód:
Sub Date_Példa1 ()
2. lépés: Mivel az aktuális dátumot az A1 cellában kell tárolnunk, kódunk tartománya („A1”) lesz .
Kód:
Aldátum_Példa1 () Tartomány ("A1"). Érték Vége Al 
3. lépés: Az A1 cellában szükségünk van az aktuális dátumra, ezért használjuk a DATE függvényt.
Kód:
Sub Date_Példa1 () Tartomány ("A1"). Érték = Date End Sub 
4. lépés: Ok, készen vagyunk. Futtassuk most ezt a kódot az F5 billentyű lenyomásával, vagy manuálisan is futtathatja a kódot, ahogy az alábbi képernyőképen látható. Az A1 cellában megkapjuk az aktuális dátumot.
Tehát, amikor ezt a kódot írom, a rendszer dátuma „2019. március 15.”.
Megjegyzés: A dátum formátuma a Windows beállításaitól függ. Mindenesetre a dátum formátumát megváltoztathatja a formátum cellák alatt.
2. példa
Tegyük fel, hogy Ön LIC-ügynök, és több ügyfelével kell megküzdenie. Az egyik legfontosabb cél az, hogy megtudjuk, kinek esedékes fizetése van ma, hogy felhívhassa őket, és azonnal behajthassa a fizetést.
Tegyük fel, hogy az alábbiakban felsoroljuk az adatbázisban lévő ügyfelek listáját.
Már írtam egy kódot, amely értesíti Önt, amint megnyitja az excel fájlt.
Kód:
Sub Due_Notifier () Dim Duedate as Date Dim i As Long Duedate = Date i = 2 Az i = 2 cellákhoz (Rows.Count, 1) .End (xlUp) .Row If Duedate = DateSerial (Year (Date), Month ( Cellák (i, 3). Érték), Nap (Cellák (i, 3). Érték)) Ezután az MsgBox "Ügyfél neve:" & Cellák (i, 1). Érték & vbNewLine & "Prémium összeg:" & Cellák (i , 2). Érték vége, ha következő i vége al
Másolja a fenti kódot, és illessze be a VBA modulba.
Most kattintson duplán a „Ez a munkafüzet” lehetőségre.
Most válassza a „Munkafüzet” lehetőséget a fenti legördülő menüből.
Amint kiválasztja a „Munkafüzet” opciót, láthatja, hogy egy privát makró automatikusan megnyílik.
Itt a makró neve azt mondja: „Munkafüzet_Open ()”, ez azt jelenti, hogy amikor ez a munkafüzet megnyitja, mit kell tennie. Amikor ez a munkafüzet megnyílik, futtatnunk kell a létrehozott makrót.
Tehát itt neveznünk kell az általunk létrehozott makrót. A fenti kódban a makrónév „Due_Notifier”.
Kód:
Hívás esedékességjelző
Most mentse el és zárja be ezt a munkafüzetet.
Bezárása után nyissa ki a munkafüzetet, és nézze meg a varázslatot.
Most kinyitom….
Azta!!! Megmutatja az ügyfél nevét és az aktuális dátumra esedékes összegüket.
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.