Excel VBA DATE-funktion
VBA-datum är en datum- och tidsfunktion, den returnerar bara det aktuella datumet enligt det systemdatum du använder, det viktiga att notera är också att den här funktionen inte har några argument i det, en annan viktig faktor att komma ihåg är att den här funktionen returnerar det aktuella systemdatumet.
I excel kan vi inte leva utan några av funktionerna, och "VBA Date" är en av dessa funktioner. Om du är en frekvent användare av ett excel-kalkylblad måste du vara medveten om en funktion som heter "TODAY ()" som returnerar det aktuella datumet per systemdatum.
Datumet är en mycket enkel funktion och returnerar bara det aktuella datumet enligt det systemdatum du använder. Detta fungerar väldigt på samma sätt som vår arbetsbladfunktion "I DAG" men inte flyktig till sin natur.
Syntaxen för excel DATE-funktionen är väldigt enkel eftersom den inte har något argument att tillhandahålla och innehåller endast tomma parenteser.
Datum ()
Parentes finns bara för att förklara funktionen när du använder funktionen, du behöver inte gå in i parentes.
Hur använder jag Excel VBA Date-funktion?
Exempel 1
Antag att du vill infoga det aktuella datumet i cell A1 följ sedan stegen nedan för att skriva koden för att infoga det aktuella datumet i cell A1.
Steg 1: Skapa ett makronamn.
Koda:
Underdatum_exempel1 ()
Steg 2: Eftersom vi måste lagra det aktuella datumet i cell A1 kommer vår kod att vara Range (“A1”) .
Koda:
Sub Date_Example1 () Range ("A1"). Value End Sub
Steg 3: I cell A1 behöver vi det aktuella datumet, så använd DATE-funktionen.
Koda:
Sub Date_Example1 () Range ("A1") Value = Date End Sub
Steg 4: Okej, vi är klara. Låt oss köra den här koden nu genom att trycka på F5-tangenten, eller så kan du också köra koden manuellt, som visas på skärmbilden nedan. Vi får det aktuella datumet i cell A1.
Så när jag skriver denna kod aktuellt datum i mitt system är ”15 : e mars 2019”.
Obs! Datumets format beror på dina Windows-inställningar. Hur som helst kan du ändra datumformatet under formatceller.
Exempel 2
Antag att du är en LIC-agent och att du har flera kunder att hantera. Ett av nyckelobjekten är att veta vem som betalar förfaller idag så att du kan ringa dem och hämta betalningen omedelbart.
Antag att nedan är listan över kunder du har i din databas.
Jag har redan skrivit en kod som meddelar dig så snart du öppnar Excel-filen.
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 ( Celler (i, 3) .Value), Day (Cells (i, 3) .Value)) Sedan MsgBox "Kundnamn:" & Cells (i, 1) .Value & vbNewLine & "Premium Belopp:" & Cells (i , 2) .Value End If Next i End Sub
Kopiera ovanstående kod och klistra in den i VBA-modulen.
Dubbelklicka nu på alternativet "Denna arbetsbok".
Välj nu "Arbetsbok" från rullgardinsmenyn ovan.
Så snart du väljer alternativet "Arbetsbok" kan du se att ett privat makro öppnas automatiskt.
Här säger makronamn "Workbook_Open ()" det betyder när den här arbetsboken öppnar vad du måste göra. När denna arbetsbok öppnas måste vi köra det makro vi har skapat.
Så här måste vi kalla vårt makro som vi har skapat med sitt namn. I koden ovan är vårt makronamn "Due_Notifier."
Koda:
Ring Due_Notifier
Spara nu den här arbetsboken och stäng den.
När du har stängt den öppnar du arbetsboken och ser magin.
Nu öppnar jag …
Wow!!! Det visar mig kundens namn och deras förfallna belopp för det aktuella datumet.
Kundens namn är "Amar" och det förfallna beloppet är "20883". Anledningen till att det visar kunden namn eftersom förfallodagen för Mr. Amar är 15 : e mars 2019, det vill säga i dag.
Klicka nu på Ok, det kommer att visa andra kundnamn om förfallodagen är idag.
Det visar herr Arvind namn; hans förfallodagen är också den 15 : e mars 2019.
Nu kan du enkelt identifiera kundnamnen så snart du kommer till kontoret. En av de stora huvudvärkarna är borta.
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
Så snart du kommer till kontoret öppnar du bara filen och kör den här koden, den skickar automatiskt födelsedagsönskningar till respektive e-post-ID.
Obs! Du borde ha konfigurerat Outlook i ditt system.
