Funkcja Excel VBA DATE
VBA Date to funkcja daty i godziny, zwraca tylko aktualną datę zgodnie z datą systemową, której używasz, również ważne jest, aby pamiętać, że ta funkcja nie ma żadnych argumentów, innym ważnym czynnikiem do zapamiętania jest to, że ta funkcja zwraca bieżącą datę systemową.
W programie Excel nie możemy żyć bez niektórych funkcji, a „VBA Date” jest jedną z tych funkcji. Jeśli często korzystasz z arkusza programu Excel, musisz wiedzieć o funkcji o nazwie „DZIŚ ()”, która zwróci bieżącą datę zgodnie z datą systemową.
Data jest bardzo prostą funkcją i zwraca tylko aktualną datę zgodnie z datą systemową, której używasz. Działa to bardzo podobnie do naszej funkcji arkusza „DZISIAJ”, ale nie jest zmienna.
Składnia funkcji DATA programu Excel jest bardzo prosta, ponieważ nie ma argumentu do podania i zawiera tylko pusty nawias.
Data ()
Nawiasy służą tylko do wyjaśnienia funkcji podczas korzystania z funkcji, nie ma potrzeby wprowadzania nawiasów.
Jak korzystać z funkcji daty Excel VBA?
Przykład 1
Załóżmy, że chcesz wstawić bieżącą datę do komórki A1, a następnie wykonaj poniższe kroki, aby napisać kod, aby wstawić bieżącą datę do komórki A1.
Krok 1: Utwórz nazwę makra.
Kod:
Sub Date_Example1 ()
Krok 2: Ponieważ musimy zapisać aktualną datę w komórce A1, nasz kod będzie miał postać Range („A1”) .
Kod:
Sub Date_Example1 () Range („A1”). Value End Sub
Krok 3: W komórce A1 potrzebujemy aktualnej daty, więc użyj funkcji DATA.
Kod:
Sub Date_Example1 () Range („A1”). Value = Date End Sub
Krok 4: Ok, gotowe. Uruchommy teraz ten kod, naciskając klawisz F5 lub możesz również uruchomić kod ręcznie, jak pokazano na poniższym zrzucie ekranu. Bieżącą datę otrzymamy w komórce A1.
Tak więc, gdy piszę ten kod aktualną datę w moim systemie jest „15 th marca 2019 r.”
Uwaga: format daty zależy od ustawień systemu Windows. W każdym razie możesz zmienić format daty w komórkach formatu.
Przykład nr 2
Załóżmy, że jesteś agentem LIC i masz do czynienia z kilkoma klientami. Jednym z kluczowych celów jest wiedzieć, czyja płatność przypada dzisiaj, abyś mógł do niego zadzwonić i natychmiast odebrać płatność.
Załóżmy, że poniżej znajduje się lista klientów, których masz w swojej bazie danych.
Napisałem już kod, który powiadomi Cię, gdy tylko otworzysz plik Excela.
Kod:
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)) Następnie MsgBox „Nazwa klienta:” & Cells (i, 1) .Value & vbNewLine & „Premium Amount:” & Cells (i , 2). Wartość końcowa, jeśli następny i koniec sub
Skopiuj powyższy kod i wklej go do modułu VBA.
Teraz kliknij dwukrotnie opcję „Ten skoroszyt”.
Teraz wybierz „Skoroszyt” z powyższego menu.
Jak tylko wybierzesz opcję „Skoroszyt”, zobaczysz, że prywatne makro otwiera się automatycznie.
Tutaj nazwa makra mówi „Workbook_Open ()”, co oznacza, że za każdym razem, gdy ten skoroszyt otwiera, co musisz zrobić. Za każdym razem, gdy otworzy się ten skoroszyt, musimy uruchomić utworzone przez nas makro.
Więc tutaj musimy wywołać nasze makro, które stworzyliśmy, używając jego nazwy. W powyższym kodzie nazwa naszego makra to „Due_Notifier”.
Kod:
Zadzwoń do Due_Notifier
Teraz zapisz ten skoroszyt i zamknij go.
Po zamknięciu otwórz skoroszyt i zobacz magię.
Teraz otworzę….
Łał!!! Pokazuje mi nazwę klienta i jego należną kwotę na bieżący dzień.
Nazwa klienta to „Amar”, a kwota należności to „20883”. Powodem, dla którego to pokazano tę nazwę klienta, ponieważ termin dla pana Amar jest 15 th marca 2019, czyli dzisiaj.
Teraz kliknij OK, pokaże inne nazwy klientów, jeśli termin płatności przypada dzisiaj.
Pokazuje nazwisko pana Arvinda; Jego termin jest na 15 th marca 2019 r.
Teraz możesz łatwo zidentyfikować nazwiska klientów, gdy tylko przyjdziesz do biura. Jeden z dużych bólów głowy zniknął.
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
Gdy tylko przyjdziesz do biura, po prostu otwórz plik i uruchom ten kod, automatycznie wyśle życzenia urodzinowe na odpowiednie adresy e-mail.
Uwaga: powinieneś mieć skonfigurowany Outlook w swoim systemie.
