Fungsi Tanggal VBA

Fungsi Excel VBA DATE

Tanggal VBA adalah fungsi Tanggal dan Waktu, ia hanya mengembalikan tanggal saat ini sesuai tanggal sistem yang Anda gunakan, juga yang penting untuk diperhatikan adalah bahwa fungsi ini tidak memiliki argumen apa pun di dalamnya, faktor penting lainnya yang perlu diingat adalah bahwa fungsi ini mengembalikan tanggal sistem saat ini.

Di excel kita tidak bisa hidup tanpa beberapa fungsi dan "VBA Date" adalah salah satunya. Jika Anda sering menggunakan lembar kerja excel maka Anda harus mengetahui fungsi yang disebut "TODAY ()" yang akan mengembalikan tanggal saat ini sesuai dengan tanggal sistem.

Tanggal adalah fungsi yang sangat sederhana dan hanya mengembalikan tanggal saat ini sesuai dengan tanggal sistem yang Anda gunakan. Ini bekerja sangat mirip dengan fungsi lembar kerja kami "TODAY" tetapi tidak bersifat volatile.

Sintaks fungsi excel DATE sangat sederhana karena tidak memiliki argumen untuk diberikan dan hanya menyertakan tanda kurung kosong.

Tanggal ()

Tanda kurung ada hanya untuk menjelaskan fungsi ketika Anda menggunakan fungsi tidak perlu memasukkan tanda kurung.

Bagaimana cara menggunakan Fungsi Tanggal VBA Excel?

Anda dapat mendownload Template Excel Tanggal VBA ini di sini - Template Excel Tanggal VBA

Contoh 1

Asumsikan Anda ingin memasukkan tanggal sekarang di sel A1 kemudian ikuti langkah-langkah di bawah ini untuk menulis kode untuk memasukkan tanggal saat ini di sel A1.

Langkah 1: Buat nama makro.

Kode:

 Sub Tanggal_Contoh1 ()

Langkah 2: Karena kita perlu menyimpan tanggal sekarang di sel A1 kode kita akan menjadi Range ("A1") .

Kode:

 Sub Date_Example1 () Range ("A1"). Nilai Akhir Sub 

Langkah 3: Di sel A1 kita membutuhkan tanggal sekarang, jadi gunakan fungsi DATE.

Kode:

 Sub Date_Example1 () Range ("A1"). Nilai = Tanggal Akhir Sub 

Langkah 4: Oke, kita selesai. Mari jalankan kode ini sekarang dengan menekan tombol F5 atau Anda juga dapat menjalankan kode secara manual seperti yang ditunjukkan pada gambar di bawah ini. Kami akan mendapatkan tanggal saat ini di sel A1.

Jadi, ketika saya menulis kode ini, tanggal saat ini di sistem saya adalah "15 Maret 2019".

Catatan: Format  tanggal Anda tergantung pada pengaturan windows Anda. Bagaimanapun, Anda dapat mengubah format tanggal di bawah format sel.

Contoh # 2

Asumsikan Anda adalah agen LIC dan Anda memiliki beberapa pelanggan yang harus ditangani. Salah satu tujuan utamanya adalah mengetahui pembayaran siapa yang jatuh tempo hari ini sehingga Anda dapat menelepon mereka dan segera menagih pembayaran.

Asumsikan di bawah ini adalah daftar pelanggan yang Anda miliki di database Anda.

Saya telah menulis kode yang akan memberi tahu Anda segera setelah Anda membuka file excel.

Kode:

 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 ( Sel (i, 3). Nilai), Hari (Sel (i, 3). Nilai)) Kemudian MsgBox "Nama Pelanggan:" & Sel (i, 1). Nilai & vbNewLine & "Jumlah Premium:" & Sel (i , 2). Nilai Berakhir Jika Berikutnya i Akhiri Sub 

Salin kode di atas dan tempelkan di modul VBA.

Sekarang klik dua kali pada opsi "Buku Kerja Ini".

Sekarang pilih "Workbook" dari dropdown di atas.

Segera setelah Anda memilih opsi "Buku Kerja" Anda dapat melihat makro pribadi terbuka secara otomatis.

Di sini nama makro mengatakan "Workbook_Open ()" ini berarti setiap kali buku kerja ini membuka apa yang harus Anda lakukan. Setiap kali buku kerja ini terbuka, kita perlu menjalankan makro yang telah kita buat.

Jadi, di sini kita perlu memanggil makro kita yang telah kita buat dengan namanya. Pada kode di atas, nama makro kita adalah “Due_Notifier”.

Kode:

 Panggil Due_Notifier

Sekarang simpan buku kerja ini dan tutup.

Setelah menutupnya, buka buku kerja dan lihat keajaibannya.

Sekarang saya akan membuka….

Wow!!! Ini menunjukkan nama pelanggan dan jumlah jatuh tempo mereka untuk tanggal saat ini.

Nama Pelanggan adalah "Amar" dan jumlah yang jatuh tempo adalah "20883". Alasan mengapa nama pelanggan ini ditampilkan karena tanggal jatuh tempo Mr Amar adalah 15 Maret 2019 yaitu Hari Ini.

Sekarang klik Ok, itu akan menunjukkan nama pelanggan lain jika tanggal jatuh tempo pada hari ini.

Itu menunjukkan nama Tuan Arvind, tanggal jatuh tempo juga pada 15 Maret 2019.

Sekarang, Anda dapat dengan mudah mengidentifikasi nama pelanggan begitu Anda datang ke kantor. Salah satu sakit kepala besar hilang.

Demikian pula, saya telah membuat satu makro excel lagi yang akan mengirim email ulang tahun otomatis dari pandangan Anda.

Contoh # 3

Asumsikan Anda berada dalam "Tim Keterlibatan Karyawan" dan Anda bertanggung jawab untuk mengirim email ulang tahun kepada karyawan Anda. Mengidentifikasi dan mengirim email ke masing-masing dan setiap orang secara terpisah adalah pekerjaan yang menyakitkan.

Halo, teman baik saya tidak khawatir saya telah membuat makro untuk Anda mengirim email ulang tahun otomatis ke karyawan Anda.

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.