Excel VBA DATUM-functie
VBA-datum is een datum- en tijdfunctie, het retourneert alleen de huidige datum volgens de systeemdatum die u gebruikt, ook het belangrijkste om op te merken is dat deze functie helemaal geen argumenten bevat, een andere belangrijke factor om te onthouden is dat deze functie geeft de huidige systeemdatum terug.
In Excel kunnen we niet zonder een aantal functies, en "VBA Date" is een van die functies. Als u een regelmatige gebruiker van een Excel-werkblad bent, moet u zich bewust zijn van een functie genaamd "TODAY ()", die de huidige datum retourneert volgens de systeemdatum.
De datum is een heel eenvoudige functie en retourneert alleen de huidige datum volgens de systeemdatum die u gebruikt. Dit werkt ongeveer hetzelfde als onze werkbladfunctie "VANDAAG", maar is niet vluchtig van aard.
De syntaxis van de Excel DATE-functie is heel eenvoudig omdat deze geen argument heeft om op te geven en alleen lege haakjes bevat.
Datum ()
Haakjes zijn er alleen om de functie uit te leggen wanneer u de functie gebruikt, u hoeft geen haakje in te voeren.
Hoe Excel VBA-datumfunctie te gebruiken?
Voorbeeld 1
Stel dat u de huidige datum in cel A1 wilt invoegen en volg dan de onderstaande stappen om de code te schrijven om de huidige datum in cel A1 in te voegen.
Stap 1: Maak een macronaam.
Code:
Sub Datum_voorbeeld1 ()
Stap 2: Aangezien we de huidige datum in cel A1 moeten opslaan, is onze code Bereik ("A1"). Waarde .
Code:
Sub Date_Example1 () Range ("A1") Waarde End Sub
Stap 3: In cel A1 hebben we de huidige datum nodig, dus gebruik de DATUM-functie.
Code:
Sub Date_Example1 () Bereik ("A1") Waarde = Datum einde Sub
Stap 4: Ok, we zijn klaar. Laten we deze code nu uitvoeren door op de F5-toets te drukken, of u kunt de code ook handmatig uitvoeren, zoals weergegeven in de onderstaande schermafbeelding. We krijgen de huidige datum in cel A1.
Dus, als ik schrijf deze code huidige datum in mijn systeem is “15 th maart 2019”.
Opmerking: het formaat van uw datum is afhankelijk van uw Windows-instellingen. Hoe dan ook, u kunt de indeling van de datum wijzigen onder de opmaakcellen.
Voorbeeld 2
Stel dat u een LIC-agent bent en dat u met meerdere klanten te maken heeft. Een van de belangrijkste doelen is om te weten wiens betaling vandaag verschuldigd is, zodat u ze kunt bellen en de betaling onmiddellijk kunt innen.
Stel dat hieronder de lijst met klanten is die u in uw database heeft.
Ik heb al een code geschreven die je op de hoogte stelt zodra je het Excel-bestand opent.
Code:
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). Waarde einde als volgende i einde sub
Kopieer de bovenstaande code en plak deze in de VBA-module.
Dubbelklik nu op de optie "Deze werkmap".
Selecteer nu "Werkboek" in de bovenstaande vervolgkeuzelijst.
Zodra u de optie "Werkboek" selecteert, ziet u dat er automatisch een privémacro wordt geopend.
Hier zegt de macronaam "Workbook_Open ()". Dit betekent dat wanneer deze werkmap wordt geopend, wat u moet doen. Telkens wanneer deze werkmap wordt geopend, moeten we de macro uitvoeren die we hebben gemaakt.
Dus hier moeten we onze macro die we hebben gemaakt bij zijn naam noemen. In de bovenstaande code is onze macronaam 'Due_Notifier'.
Code:
Bel Due_Notifier
Sla nu deze werkmap op en sluit deze.
Nadat je het hebt gesloten, open je de werkmap en zie je de magie.
Nu zal ik openen….
Wauw!!! Het toont me de naam van de klant en het verschuldigde bedrag voor de huidige datum.
De naam van de klant is "Amar" en het verschuldigde bedrag is "20883". De reden waarom het toont deze naam van de klant, omdat de vervaldatum voor de heer Amar is 15 ste maart 2019, dat wil zeggen, Today.
Klik nu op Ok, het zal andere klantnamen tonen als de vervaldatum vandaag valt.
Het toont de naam van de heer Arvind; zijn vervaldatum is ook op 15 th maart 2019.
Nu kunt u de klantennamen gemakkelijk identificeren zodra u op kantoor komt. Een van de grote hoofdpijn is weg.
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
Zodra u op kantoor komt, opent u gewoon het bestand en voert u deze code uit, het zal automatisch verjaardagswensen naar de respectieve e-mail-ID's sturen.
Opmerking: Outlook moet in uw systeem zijn geconfigureerd.
