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 treba imati na umu je da je ova funkcija vraća trenutni sistemski datum.
U Excelu, ne možemo živjeti bez nekih funkcija, a "VBA Date" jedna je od tih funkcija. Ako ste česti korisnik excel radnog lista, tada morate biti svjesni funkcije koja se naziva „DANAS ()“, koja će vratiti trenutni datum prema datumu sustava.
Datum je vrlo jednostavna funkcija i vraća samo trenutni datum prema datumu sustava koji koristite. Ovo djeluje vrlo 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 postoje samo da bi objasnili funkciju kada je koristite, ne treba unositi zagrade.
Kako koristiti Excel VBA datumsku funkciju?
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 DATUM.
Kodirati:
Sub Datum_Primjer1 () Raspon ("A1"). Vrijednost = Datum Kraj Sub
Korak 4: Ok, gotovi smo. Pokrenimo sada ovaj kôd 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 -og 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 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 ga u VBA modul.
Sada dvaput kliknite opciju "This Workbook".
Sada s gornjeg padajućeg izbornika odaberite "Workbook" .
Čim odaberete opciju "Radna knjiga", automatski ćete vidjeti privatnu makronaredbu.
Ovdje naziv makronaredbe kaže „Workbook_Open ()“, što znači kad god ova radna knjiga otvori ono što morate učiniti. Kad god se otvori ova radna knjiga, moramo pokrenuti makronaredbu koju smo stvorili.
Dakle, ovdje moramo nazvati makronaredbu koju smo stvorili 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….
Vau !!! Prikazuje mi ime kupca i njihov dospjeli iznos za tekući datum.
Ime kupca je "Amar", a dospjeli iznos je "20883". Razlog zašto to pokazuje ovo ime kupca, jer je rok za gospodina Amar je 15 -og ožujka 2019., odnosno danas.
Sada kliknite U redu, pokazat će se druga imena kupaca ako je datum dospijeća danas.
Prikazuje ime gospodina Arvinda; njegov datum dospijeća je 15. -og ožujka 2019.
Sada možete lako prepoznati imena kupaca čim dođete u ured. Nestala je jedna od velikih glavobolja.
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
Čim dođete u ured, samo otvorite datoteku i pokrenite ovaj kôd, automatski će poslati želje za rođendanom na odgovarajuće ID-ove e-pošte.
Napomena: U sustavu biste trebali konfigurirati Outlook.
