Excel VBA DATE-Funktion
VBA Date ist eine Datums- und Uhrzeitfunktion, die nur das aktuelle Datum gemäß dem von Ihnen verwendeten Systemdatum zurückgibt. Wichtig ist auch, dass diese Funktion keinerlei Argumente enthält. Ein weiterer wichtiger Faktor ist, dass diese Funktion verwendet wird Gibt das aktuelle Systemdatum zurück.
In Excel können wir nicht ohne einige der Funktionen leben, und „VBA Date“ ist eine dieser Funktionen. Wenn Sie häufig ein Excel-Arbeitsblatt verwenden, müssen Sie eine Funktion namens "TODAY ()" kennen, die das aktuelle Datum zum Systemdatum zurückgibt.
Das Datum ist eine sehr einfache Funktion und gibt nur das aktuelle Datum gemäß dem von Ihnen verwendeten Systemdatum zurück. Dies funktioniert sehr ähnlich wie unsere Arbeitsblattfunktion „HEUTE“, ist jedoch nicht flüchtig.
Die Syntax der Excel-Funktion DATE ist sehr einfach, da sie kein Argument enthält und nur leere Klammern enthält.
Datum ()
Klammern dienen nur zur Erläuterung der Funktion, wenn Sie die Funktion verwenden. Sie müssen keine Klammern eingeben.
Wie verwende ich die Excel VBA-Datumsfunktion?
Beispiel 1
Angenommen, Sie möchten das aktuelle Datum in Zelle A1 einfügen, und führen Sie die folgenden Schritte aus, um den Code zum Einfügen des aktuellen Datums in Zelle A1 zu schreiben.
Schritt 1: Erstellen Sie einen Makronamen.
Code:
Sub Date_Example1 ()
Schritt 2: Da wir das aktuelle Datum in Zelle A1 speichern müssen, lautet unser Code Bereich („A1“). Wert .
Code:
Sub Date_Example1 () Range ("A1"). Value End Sub
Schritt 3: In Zelle A1 benötigen wir das aktuelle Datum, verwenden Sie also die DATE-Funktion.
Code:
Sub Date_Example1 () Range ("A1"). Value = Date End Sub
Schritt 4: Ok, wir sind fertig. Lassen Sie uns diesen Code jetzt ausführen, indem Sie die Taste F5 drücken, oder Sie können den Code auch manuell ausführen, wie im folgenden Screenshot gezeigt. Wir werden das aktuelle Datum in Zelle A1 erhalten.
Also, wenn ich diesen Code aktuelles Datum in meinem System schreibe ist „15 th März 2019“.
Hinweis: Das Format Ihres Datums hängt von Ihren Windows-Einstellungen ab. Auf jeden Fall können Sie das Format des Datums unter Formatzellen ändern.
Beispiel 2
Angenommen, Sie sind ein LIC-Agent und haben mehrere Kunden, mit denen Sie sich befassen müssen. Eines der wichtigsten Ziele ist es, zu wissen, wessen Zahlung heute fällig ist, damit Sie sie anrufen und die Zahlung sofort abholen können.
Angenommen, unten finden Sie eine Liste der Kunden, die Sie in Ihrer Datenbank haben.
Ich habe bereits einen Code geschrieben, der Sie benachrichtigt, sobald Sie die Excel-Datei öffnen.
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 ( Zellen (i, 3) .Wert), Tag (Zellen (i, 3) .Wert)) Dann MsgBox "Kundenname:" & Zellen (i, 1) .Wert & vbNewLine & "Premiumbetrag:" & Zellen (i , 2) .Wert End If Next i End Sub
Kopieren Sie den obigen Code und fügen Sie ihn in das VBA-Modul ein.
Doppelklicken Sie nun auf die Option "Diese Arbeitsmappe".
Wählen Sie nun "Arbeitsmappe" aus der obigen Dropdown-Liste.
Sobald Sie die Option "Arbeitsmappe" auswählen, wird automatisch ein privates Makro geöffnet.
Hier lautet der Makroname "Workbook_Open ()". Dies bedeutet, wann immer diese Arbeitsmappe öffnet, was Sie tun müssen. Wann immer diese Arbeitsmappe geöffnet wird, müssen wir das von uns erstellte Makro ausführen.
Hier müssen wir also unser Makro, das wir erstellt haben, mit seinem Namen aufrufen. Im obigen Code lautet unser Makroname "Due_Notifier".
Code:
Rufen Sie Due_Notifier auf
Speichern Sie nun diese Arbeitsmappe und schließen Sie sie.
Öffnen Sie nach dem Schließen die Arbeitsmappe und sehen Sie die Magie.
Jetzt werde ich öffnen …
Wow!!! Es zeigt mir den Kundennamen und den fälligen Betrag für das aktuelle Datum.
Der Name des Kunden lautet "Amar" und der fällige Betrag lautet "20883". Der Grund , warum es ist die Ansicht des Kundennamen , weil das Fälligkeitsdatum für Herren Amar ist 15 th März 2019, also heute.
Klicken Sie nun auf OK. Es werden andere Kundennamen angezeigt, wenn das Fälligkeitsdatum heute liegt.
Es zeigt den Namen von Herrn Arvind; seine Fälligkeit ist auch am 15. th März 2019.
Jetzt können Sie die Kundennamen leicht identifizieren, sobald Sie ins Büro kommen. Eine der großen Kopfschmerzen ist 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
Sobald Sie ins Büro kommen, öffnen Sie einfach die Datei und führen Sie diesen Code aus. Es werden automatisch Geburtstagswünsche an die jeweiligen E-Mail-IDs gesendet.
Hinweis: In Ihrem System sollte Outlook konfiguriert sein.
