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. Bir excel çalışma sayfasının sık kullanıcısıysanız , sistem tarihine göre geçerli tarihi döndürecek olan "BUGÜN ()" adlı bir işlevin farkında olmanız gerekir .
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, sadece işlevi kullandığınızda işlevi açıklamak içindir, parantez girmenize gerek yoktur.
Excel VBA Tarih İşlevi nasıl kullanılır?
Ö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.
Benim sistemde bu kod geçerli tarih yazıyorum Yani, “15 olduğunu inci 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 ödenmesi gerektiğ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 gerekiyor.
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 cari tarih için ödenmesi gereken tutarı gösterir.
Müşteri Adı "Amar" ve ödenmesi gereken tutar "20883" dür. Sn Amar için son tarih 15 olduğu için bu müşterinin adını gösteren nedeni inci yani Mart 2019, Bugün.
Şimdi Tamam'a tıklayın, son tarih bugünse diğer müşteri adlarını gösterecektir.
Bay Arvind'in adını gösteriyor; Onun vadesi 15 de inci Mart 2019.
Artık ofise gelir gelmez müşteri adlarını kolayca tespit edebilirsiniz. Büyük baş ağrılarından biri gitti.
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
Ofise gelir gelmez, sadece dosyayı açın ve bu kodu çalıştırın, otomatik olarak ilgili e-posta kimliğine doğum günü dileklerini gönderir.
Not: Sisteminizde Outlook'un yapılandırılmış olması gerekir.
