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 pogost uporabnik delovnega lista excel, morate poznati funkcijo, imenovano »DANES ()«, ki bo vrnila trenutni datum 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 jo uporabljate, v oklepaje ni treba vnašati oklepajev.
Kako uporabiti funkcijo datuma Excel VBA?
Primer # 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 trenutni datum shraniti v celico A1, 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 DATUM.
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 trenutni datum v svoj sistem je "15 th marca 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 danes zapade, tako 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 jo 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. Kadar koli se odpre ta delovni zvezek, 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.
Ime stranke je "Amar", zapadli znesek pa "20883". Razlog, zakaj se to kaže na to ime stranke, ker je rok za g Amar 15 th marca 2019, to je danes.
Zdaj kliknite V redu, prikazana bodo druga imena strank, če je rok zapadlosti danes.
Prikazuje ime gospoda Arvinda; njegov datum zapadlosti je tudi na 15 th marca 2019.
Zdaj lahko enostavno prepoznate imena strank, takoj ko pridete v pisarno. Enega velikih preglavic ni več.
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 for sending 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 it 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
Takoj ko pridete v pisarno, preprosto odprite datoteko in zaženite to kodo, samodejno bo poslala želje za rojstni dan na ustrezne e-poštne ID-je.
Opomba: V sistemu morate imeti konfiguriran Outlook.
