Funkcija Excel VBA DATUM
VBA Date je funkcija datuma in časa, vrne samo trenutni datum glede na sistemski datum, ki ga uporabljate. Pomembno je omeniti, da ta funkcija nima nobenih argumentov, še en pomemben dejavnik, ki si ga je treba zapomniti, je, da je ta funkcija vrne trenutni sistemski datum.
V Excelu ne moremo živeti brez nekaterih funkcij in »VBA Date« je ena od teh funkcij. Če ste pogosti uporabnik delovnega lista excel, morate poznati funkcijo, imenovano "DANES ()", ki bo vrnila trenutni datum glede na sistemski datum.
Datum je zelo preprosta funkcija in vrne samo trenutni datum glede na sistemski datum, ki ga uporabljate. To deluje zelo podobno funkciji našega delovnega lista »DANES«, vendar ni hlapljive narave.
Sintaksa funkcije excel DATE je zelo preprosta, ker nima nobenega argumenta in vključuje samo prazne oklepaje.
Datum ()
V oklepajih naj bi le razložili funkcijo, ko uporabljate funkcijo, pri čemer ni treba vnašati oklepajev.
Kako uporabiti funkcijo datuma Excel VBA?
To predlogo VBA Date Excel lahko prenesete tukaj - Predloga VBA Date ExcelPrimer # 1
Predpostavimo, da želite vstaviti trenutni datum v celico A1, nato pa sledite spodnjim korakom, da napišete kodo za vstavljanje trenutnega datuma v celico A1.
1. korak: Ustvarite ime makra.
Koda:
Pod datum_Primer1 ()
2. korak: Ker moramo v celico A1 shraniti trenutni datum, bo naša koda Range ("A1") .
Koda:
Sub Datum_Primer1 () Obseg ("A1"). Vrednost Konec Sub 
3. korak: V celici A1 potrebujemo trenutni datum, zato uporabite funkcijo DATE.
Koda:
Sub Datum_Primer1 () Obseg ("A1"). Vrednost = Datum Konec Sub 
4. korak: V redu, končali smo. Zaženimo to kodo zdaj s pritiskom na tipko F5, lahko pa jo zaženete tudi ročno, kot je prikazano na spodnjem posnetku zaslona. Trenutni datum bomo dobili v celici A1.
Torej, ko pišem to kodo, je trenutni datum v mojem sistemu "15. marec 2019".
Opomba: oblika datuma je odvisna od nastavitev sistema Windows. Kakor koli že, lahko pod formatnimi celicami spremenite obliko datuma.
2. primer
Predpostavimo, da ste agent LIC in imate več strank, s katerimi imate opravka. Eden ključnih ciljev je vedeti, čigavo plačilo mora biti danes, da jih lahko pokličete in takoj prevzamete plačilo.
Predpostavimo, da je spodaj seznam strank, ki jih imate v svoji bazi podatkov.
Sem že napisal kodo, ki vas bo obvestila takoj, ko odprete datoteko excel.
Koda:
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 ( Celice (i, 3) .Value), Dan (Celice (i, 3) .Value)) Nato MsgBox "Ime stranke:" & Celice (i, 1) .Value & vbNewLine & "Premium Količina:" & Celice (i , 2) .Value End If Next i End Sub
Kopirajte zgornjo kodo in prilepite v modul VBA.
Zdaj dvokliknite možnost »Ta delovni zvezek«.
Zdaj v zgornjem spustnem meniju izberite »Delovni zvezek« .
Takoj ko izberete možnost »Delovni zvezek«, se samodejno odpre zasebni makro.
Tu ime makra pravi »Workbook_Open ()«, kar pomeni, da kadar koli ta delovni zvezek odpre, kaj morate storiti. Vsakič, ko se ta delovni zvezek odpre, moramo zagnati makro, ki smo ga ustvarili.
Torej, tu moramo z imenom imenovati naš makro, ki smo ga ustvarili. V zgornji kodi je naše ime makra »Due_Notifier«.
Koda:
Pokliči Due_Notifier
Zdaj shranite ta delovni zvezek in ga zaprite.
Ko ga zaprete, odprite delovni zvezek in si oglejte čarobnost.
Zdaj bom odprl….
Vau !!! Prikaže mi ime stranke in znesek zapadlosti za trenutni 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.