Exceli VBA DATE funktsioon
VBA kuupäev on funktsioon Kuupäev ja kellaaeg, see tagastab teie kasutatava süsteemikuupäeva järgi ainult praeguse kuupäeva, samuti on oluline märkida, et sellel funktsioonil pole mingeid argumente, teine oluline tegur on meeles pidada, et see funktsioon tagastab praeguse süsteemi kuupäeva.
Excelis ei saa me ilma mõningate funktsioonideta elada ja „VBA kuupäev” on üks neist funktsioonidest. Kui olete Exceli töölehe sage kasutaja, peate olema teadlik funktsioonist „TÄNA ()”, mis tagastab praeguse kuupäeva vastavalt süsteemi kuupäevale.
Kuupäev on väga lihtne funktsioon ja see tagastab teie kasutatava süsteemi kuupäeva järgi ainult praeguse kuupäeva. See töötab väga sarnaselt meie töölehe funktsiooniga „TÄNA”, kuid pole oma olemuselt kõikuv.
Exceli DATE funktsiooni süntaks on väga lihtne, kuna sellel pole argumente esitada ja see sisaldab ainult tühje sulgusid.
Kuupäev ()
Sulgud on mõeldud lihtsalt funktsiooni selgitamiseks, kui funktsiooni kasutate, sulge pole vaja sisestada.
Kuidas kasutada Exceli VBA kuupäeva funktsiooni?
Näide 1
Oletame, et soovite lahtrisse A1 sisestada praeguse kuupäeva, seejärel järgige allolevaid juhiseid koodi kirjutamiseks praeguse kuupäeva sisestamiseks lahtrisse A1.
1. samm: looge makro nimi.
Kood:
Alamkuupäev_näide1 ()
2. samm: kuna me peame praeguse kuupäeva lahtrisse A1 salvestama, on meie kood vahemik (“A1”) .
Kood:
Alamkuupäev_näide1 () vahemik ("A1"). Väärtus Lõpp alam
3. samm: lahtris A1 vajame praegust kuupäeva, seega kasutage funktsiooni KUUPÄEV.
Kood:
Alamkuupäev_näide1 () vahemik ("A1"). Väärtus = Kuupäeva lõpu alam
4. samm: Ok, oleme valmis. Käivitame selle koodi nüüd, vajutades klahvi F5, või saate koodi käivitada ka käsitsi, nagu on näidatud alloleval ekraanipildil. Praeguse kuupäeva saame lahtrist A1.
Niisiis, kui ma kirjutan selle koodi praeguse kuupäeva minu süsteem on "15 th märts 2019".
Märkus. Kuupäeva vorming sõltub teie Windowsi seadetest. Igatahes saate vormingu lahtrites muuta kuupäeva vormingut.
Näide 2
Oletame, et olete LIC-i agent ja teil on mitu klienti, kellega tegeleda. Üks peamisi objekte on teada, kelle maksetähtaeg on täna sisse lülitatud, et saaksite neile helistada ja makse kohe sisse nõuda.
Oletame, et allpool on teie andmebaasis olevate klientide loend.
Olen juba kirjutanud koodi, mis teavitab teid kohe, kui avate Exceli faili.
Kood:
Sub Due_Notifier () Dim Duedate as Date Dim i As Long Duedate = Date i = 2 i = 2 lahtrite jaoks (Read.Count, 1) .End (xlUp). Rida If Duedate = DateSerial (Aasta (Kuupäev), Kuu ( Lahtrid (i, 3). Väärtus), Päev (Lahtrid (i, 3). Väärtus)) Siis MsgBox "Kliendi nimi:" & Lahtrid (i, 1). Väärtus & vbNewLine & "Premium summa:" & Lahtrid (i , 2). Väärtus Lõpp, kui järgmine i Lõpp Alam
Kopeerige ülaltoodud kood ja kleepige see VBA moodulisse.
Nüüd topeltklõpsake valikul „See töövihik”.
Nüüd valige ülaltoodud rippmenüüst „Töövihik” .
Niipea kui valite suvandi „Töövihik“, näete, et privaatne makro avaneb automaatselt.
Siin makro nimi ütleb „Töövihik_Ava ()”, see tähendab, et alati, kui see töövihik avab, mida peate tegema. Alati, kui see töövihik avaneb, peame käivitama loodud makro.
Nii et siin peame nimetama oma makrot, mille oleme loonud selle nime järgi. Ülalolevas koodis on meie makro nimi „Due_Notifier”.
Kood:
Helista tähtaeg
Nüüd salvestage see töövihik ja sulgege see.
Pärast selle sulgemist avage töövihik ja vaadake võlu.
Nüüd ma avan …
Vau !!! See näitab mulle kliendi nime ja nende tasumisele kuuluvat summat praeguseks kuupäevaks.
Kliendi nimi on “Amar” ja tasumisele kuuluv summa on “20883”. Põhjus, miks see näitab selle kliendi nime, sest tähtpäev Hr Amar on 15 th märts 2019, st Today.
Nüüd klõpsake nuppu Ok, see näitab teisi klientide nimesid, kui tähtaeg on täna.
See näitab hr Arvindi nime; tema tähtpäevaks on ka 15 th märts 2019.
Nüüd saate kliendinimed hõlpsasti tuvastada kohe, kui tulete kontorisse. Üks suurtest peavaludest on kadunud.
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
Niipea kui kontorisse tulete, avage fail ja käivitage see kood, see saadab automaatselt sünnipäeva soovid vastavatele e-posti aadressidele.
Märkus . Teie süsteemis peaks olema Outlook konfigureeritud.
