Funkcia Excel VBA DATE
VBA Date je funkcia dátumu a času, vracia iba aktuálny dátum podľa systémového dátumu, ktorý používate. Je tiež potrebné poznamenať, že táto funkcia nemá v sebe vôbec žiadne argumenty, ďalší dôležitý faktor, ktorý si musíte zapamätať, je, že táto funkcia vráti aktuálny systémový dátum.
V programe Excel nemôžeme žiť bez niektorých funkcií a jednou z nich je aj „VBA Date“. Ak ste častým používateľom pracovného hárka programu Excel, musíte poznať funkciu nazvanú „TODAY ()“, ktorá vráti aktuálny dátum podľa systémového dátumu.
Dátum je veľmi jednoduchá funkcia a vráti iba aktuálny dátum podľa systémového dátumu, ktorý používate. Funguje to veľmi podobne ako naša funkcia pracovného hárka „DNES“, ale nemá to nestálu povahu.
Syntax funkcie Excel DATE je veľmi jednoduchá, pretože nemá žiadny argument na zadanie a obsahuje iba prázdnu zátvorku.
Dátum ()
Zátvorky sú len na vysvetlenie funkcie, keď túto funkciu používate, nie je potrebné zadávať zátvorky.
Ako používať funkciu dátumu VBA programu Excel?
Príklad č
Predpokladajme, že chcete vložiť aktuálny dátum do bunky A1, a potom podľa nasledujúcich pokynov napíšete kód na vloženie aktuálneho dátumu do bunky A1.
Krok 1: Vytvorte názov makra.
Kód:
Sub Date_Example1 ()
Krok 2: Pretože musíme aktuálny dátum uložiť do bunky A1, náš kód bude Range („A1“). Hodnota .
Kód:
Sub Date_Example1 () Range ("A1"). Hodnota End Sub
Krok 3: V bunke A1 potrebujeme aktuálny dátum, takže použite funkciu DATE.
Kód:
Sub Date_Example1 () Range ("A1"). Value = Date End Sub
Krok 4: Dobre, máme hotovo. Spustíme tento kód teraz stlačením klávesu F5, alebo ho môžete spustiť aj manuálne, ako je to znázornené na nasledujúcom obrázku obrazovky. Aktuálny dátum získame v bunke A1.
Takže, keď píšem tento kód aktuálny dátum v mojom systéme je "15 th marca 2019".
Poznámka: Formát dátumu závisí od vašich nastavení systému Windows. Formát dátumu môžete každopádne zmeniť v bunkách formátu.
Príklad č
Predpokladajme, že ste agentom LIC a máte k dispozícii niekoľko zákazníkov. Jedným z kľúčových objektov je vedieť, koho splatnosť je dnes splatná, aby ste im mohli zavolať a platbu okamžite inkasovať.
Predpokladajme, že nižšie je zoznam zákazníkov, ktorých máte vo svojej databáze.
Už som napísal kód, ktorý vás upozorní, akonáhle otvoríte súbor programu Excel.
Kód:
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 ( Cells (i, 3) .Value), Day (Cells (i, 3) .Value)) Then MsgBox "Customer Name:" & Cells (i, 1) .Value & vbNewLine & "Premium Amount:" & Cells (i , 2) .Hodnota Koniec, ak Ďalej i Koniec Sub
Skopírujte vyššie uvedený kód a vložte ho do modulu VBA.
Teraz dvakrát kliknite na možnosť „Tento zošit“.
Teraz v rozbaľovacej ponuke vyššie vyberte možnosť „Zošit“ .
Hneď ako vyberiete možnosť „Zošit“, uvidíte, že sa automaticky otvorí súkromné makro.
Názov makra tu hovorí „Workbook_Open ()“, čo znamená, že kedykoľvek tento zošit otvorí to, čo musíte urobiť. Kedykoľvek sa tento zošit otvorí, musíme spustiť makro, ktoré sme vytvorili.
Takže tu musíme makro, ktoré sme vytvorili, nazvať jeho menom. Vo vyššie uvedenom kóde je náš názov makra „Due_Notifier“.
Kód:
Zavolajte Due_Notifier
Teraz tento zošit uložte a zavrite.
Po jeho zatvorení otvorte zošit a uvidíte kúzlo.
Teraz otvorím….
Wow!!! Zobrazuje mi meno zákazníka a jeho splatnú čiastku k aktuálnemu dátumu.
Meno zákazníka je „Amar“ a splatná suma je „20883“. Dôvodom, prečo je zobrazené toto meno zákazníka, pretože splatnosť pána Amar je 15 th marca 2019, teda dnes.
Teraz kliknite na Ok, zobrazí sa mená ďalších zákazníkov, ak je termín dnešného dňa.
Zobrazuje meno pána Arvinda; dátum jeho splatnosti je tiež 15. ročník marca 2019.
Teraz môžete ľahko zistiť mená zákazníkov, akonáhle prídete do kancelárie. Jedna z veľkých bolesti hlavy je preč.
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
Hneď ako prídete do kancelárie, jednoducho otvorte súbor a spustite tento kód, automaticky zašle želania k narodeninám na príslušné ID e-mailov.
Poznámka: Mali by ste mať vo svojom systéme nakonfigurovaný program Outlook.
