Excel VBA TARİH İşlevi
VBA Date bir Tarih ve Saat işlevidir, kullandığınız sistem tarihine göre yalnızca geçerli tarihi döndürür, ayrıca dikkat edilmesi gereken önemli şey, bu işlevin içinde hiçbir argüman olmamasıdır, hatırlanması gereken bir diğer önemli faktör de bu işlevdir. mevcut sistem tarihini döndürür.
Excel'de bazı işlevler olmadan yaşayamayız ve “VBA Tarihi” bu işlevlerden biridir. Sık sık excel çalışma sayfası kullanıcısıysanız , sistem tarihine göre geçerli tarihi döndürecek "BUGÜN ()" adlı bir işlevin farkında olmalısınız .
Tarih çok basit bir işlevdir ve kullandığınız sistem tarihine göre yalnızca geçerli tarihi döndürür. Bu, "BUGÜN" çalışma sayfası işlevimize çok benzer şekilde çalışır, ancak doğası gereği uçucu değildir.
Excel DATE işlevinin sözdizimi çok basittir çünkü sağlanacak argümanı yoktur ve yalnızca boş parantez içerir.
Tarih ()
Parantezler, işlevi kullandığınızda parantez girmeye gerek kalmadan işlevi açıklamak için vardır.
Excel VBA Tarih İşlevi nasıl kullanılır?
Bu VBA Tarihi Excel Şablonunu buradan indirebilirsiniz - VBA Tarihi Excel ŞablonuÖrnek 1
Geçerli tarihi A1 hücresine eklemek istediğinizi varsayın, ardından A1 hücresine geçerli tarihi eklemek için kodu yazmak için aşağıdaki adımları izleyin.
Adım 1: Bir makro adı oluşturun.
Kod:
Alt Tarih_Örnek1 ()
Adım 2: Geçerli tarihi A1 hücresine kaydetmemiz gerektiğinden, kodumuz Aralık ("A1") olacaktır .
Kod:
Alt Tarih_Örnek1 () Aralık ("A1"). Değer Son Alt 
Adım 3: A1 hücresinde geçerli tarihe ihtiyacımız var, bu nedenle DATE işlevini kullanın.
Kod:
Alt Tarih_Örnek1 () Aralık ("A1"). Değer = Tarih Bitiş Alt 
Adım 4: Tamam, bitirdik. Şimdi bu kodu F5 tuşuna basarak çalıştıralım veya aşağıdaki ekran görüntüsünde gösterildiği gibi kodu manuel olarak da çalıştırabilirsiniz. A1 hücresindeki geçerli tarihi alacağız.
Yani bu kodu yazdığım zaman sistemimde güncel tarih “15 Mart 2019”.
Not: Tarihinizin biçimi Windows ayarlarınıza bağlıdır. Her neyse, tarihin biçimini biçim hücreleri altında değiştirebilirsiniz.
Örnek 2
Bir LIC temsilcisi olduğunuzu ve ilgilenmeniz gereken birkaç müşteriniz olduğunu varsayın. Önemli amaçlardan biri, bugün kimin ödemesinin vadesi geldiğini bilmektir, böylece onları arayabilir ve ödemeyi hemen tahsil edebilirsiniz.
Veritabanınızda bulunan müşterilerin listesinin aşağıda olduğunu varsayalım.
Excel dosyasını açar açmaz sizi bilgilendirecek bir kod yazdım zaten.
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 (Yıl (Tarih), Ay ( Hücreler (i, 3) .Değer), Gün (Hücreler (i, 3) .Değer)) Sonra MsgBox "Müşteri Adı:" & Hücreler (i, 1) .Değer & vbNewLine & "Premium Tutar:" & Hücreler (i , 2) .Value End If Next i End Sub
Yukarıdaki kodu kopyalayın ve VBA modülüne yapıştırın.
Şimdi "Bu Çalışma Kitabı" seçeneğine çift tıklayın.
Şimdi yukarıdaki açılır menüden "Çalışma Kitabı" nı seçin.
"Çalışma Kitabı" seçeneğini seçtiğiniz anda, özel bir makronun otomatik olarak açıldığını görebilirsiniz.
Burada makro adı "Workbook_Open ()" diyor, bu, bu çalışma kitabı yapmanız gereken şeyi her açtığında anlamına gelir. Bu çalışma kitabı her açıldığında, oluşturduğumuz makroyu çalıştırmamız gerekir.
Yani burada yarattığımız makromuzu ismiyle çağırmamız gerekiyor. Yukarıdaki kodda makro adımız "Due_Notifier" dır.
Kod:
Due_Notifier’ı ara
Şimdi bu çalışma kitabını kaydedin ve kapatın.
Kapattıktan sonra çalışma kitabını açın ve sihri görün.
Şimdi açacağım….
Vay!!! Bana müşteri adını ve geçerli tarih için ödenmesi gereken tutarı gösterir.
Customer Name is “Amar” and the due amount is “20883”. The reason why it is showing this customer name because the due date for Mr Amar is 15th March 2019 i.e. Today.
Now click on Ok, it will show other customer names if the due date is on today.
It is showing Mr Arvind name, his due date is also on 15th March 2019.
Now, you can easily identify the customer names as soon as you come to the office. One of the big headaches is gone.
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 to send 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 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
As soon as you come to the office just open the file and run this code, it will automatically send birthday wishes to the respective email id’s.
Note: You should have Outlook configured in your system.