Fungsi TARIKH VBA Excel
Tarikh VBA adalah fungsi Tarikh dan Waktu, ia hanya mengembalikan tarikh semasa pada tarikh sistem yang anda gunakan, juga yang penting untuk diperhatikan ialah fungsi ini tidak mempunyai argumen di dalamnya, satu lagi faktor penting yang perlu diingat ialah fungsi ini mengembalikan tarikh sistem semasa.
Dalam excel, kita tidak dapat hidup tanpa beberapa fungsi, dan "Tarikh VBA" adalah salah satu fungsi tersebut. Sekiranya anda sering menggunakan lembaran kerja excel, maka anda mesti mengetahui fungsi yang disebut "HARI INI ()," yang akan mengembalikan tarikh semasa mengikut tarikh sistem.
Tarikh adalah fungsi yang sangat mudah, dan hanya mengembalikan tarikh semasa pada tarikh sistem yang anda gunakan. Ini berfungsi sama dengan fungsi lembaran kerja kami "HARI INI" tetapi tidak mudah berubah.
Sintaks fungsi DATE excel sangat mudah kerana tidak mempunyai argumen untuk membekalkan dan hanya merangkumi kurungan kosong.
Tarikh ()
Parentesis ada hanya untuk menjelaskan fungsi ketika anda menggunakan fungsi tersebut, tidak perlu memasukkan tanda kurung.
Bagaimana menggunakan Fungsi Tarikh Excel VBA?
Contoh # 1
Andaikan anda ingin memasukkan tarikh semasa di sel A1 kemudian ikuti langkah-langkah di bawah untuk menulis kod untuk memasukkan tarikh semasa di sel A1.
Langkah 1: Buat nama makro.
Kod:
Sub Tarikh_Contoh1 ()
Langkah 2: Oleh kerana kita perlu menyimpan tarikh semasa di sel A1, kod kita adalah Julat ("A1"). Nilai .
Kod:
Sub Tarikh_Contoh1 () Julat ("A1"). Nilai Akhir Sub
Langkah 3: Di sel A1 kita memerlukan tarikh terkini, jadi gunakan fungsi DATE.
Kod:
Sub Tarikh_Contoh1 () Julat ("A1"). Nilai = Tarikh Akhir Sub
Langkah 4: Baiklah, kita sudah selesai. Mari jalankan kod ini sekarang dengan menekan kekunci F5, atau anda juga boleh menjalankan kod secara manual, seperti yang ditunjukkan dalam tangkapan skrin di bawah. Kami akan mendapat tarikh terkini di sel A1.
Jadi, apabila saya menulis kod tarikh semasa ini dalam sistem saya adalah "15 th Mac 2019".
Catatan: Format tarikh anda bergantung pada tetapan tetingkap anda. Bagaimanapun, anda boleh mengubah format tarikh di bawah sel format.
Contoh # 2
Andaikan anda adalah ejen LIC, dan anda mempunyai beberapa pelanggan untuk berurusan. Salah satu objektif utamanya adalah mengetahui pembayaran yang harus dibayar hari ini supaya anda dapat menghubungi mereka dan segera mengumpulkan pembayaran.
Andaikan di bawah adalah senarai pelanggan yang anda ada dalam pangkalan data anda.
Saya telah menulis kod yang akan memberitahu anda sebaik sahaja anda membuka fail excel.
Kod:
Sub Due_Notifier () Dim Duedate Sebagai Date Dim i As Duedate = Date i = 2 For i = 2 To Cells (Rows.Count, 1). End (xlUp). Baris Jika Duedate = DateSerial (Tahun (Date), Bulan ( Sel (i, 3). Nilai), Hari (Sel (i, 3). Nilai)) Kemudian MsgBox "Nama Pelanggan:" & Sel (i, 1). Nilai & vbNewLine & "Jumlah Premium:" & Sel (i , 2). Nilai Tamat Jika Seterusnya i Akhir Sub
Salin kod di atas dan tampal di modul VBA.
Sekarang klik dua kali pada pilihan "Buku Kerja Ini".
Sekarang pilih "Buku Kerja" dari menu lungsur di atas.
Sebaik sahaja anda memilih pilihan "Buku Kerja", anda dapat melihat makro peribadi terbuka secara automatik.
Di sini nama makro mengatakan "Workbook_Open ()" ini bermaksud setiap kali buku kerja ini membuka apa yang harus anda lakukan. Setiap kali buku kerja ini dibuka, kita perlu menjalankan makro yang telah kita buat.
Jadi, di sini kita perlu memanggil makro yang kita buat dengan namanya. Dalam kod di atas, nama makro kami adalah "Due_Notifier."
Kod:
Panggil Due_Notifier
Sekarang simpan buku kerja ini dan tutup.
Setelah menutupnya, buka buku kerja dan lihat keajaibannya.
Sekarang saya akan buka….
Wah !!! Ini menunjukkan kepada saya nama pelanggan dan jumlah yang perlu dibayar untuk tarikh semasa.
Nama pelanggan adalah "Amar", dan jumlah yang perlu dibayar adalah "20883". Sebab mengapa ia menunjukkan nama pelanggan ini kerana tarikh akhir Encik Amar adalah 15 th Mac 2019, iaitu, Hari ini.
Sekarang klik Ok, ia akan menunjukkan nama pelanggan lain jika tarikh akhir pada hari ini.
Itu menunjukkan nama Mr. Arvind; tarikh akhir beliau juga pada 15 th Mac 2019.
Sekarang, anda dapat mengenal pasti nama pelanggan dengan mudah sebaik sahaja anda datang ke pejabat. Salah satu sakit kepala yang besar hilang.
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
Sebaik sahaja anda datang ke pejabat, cukup buka fail dan jalankan kod ini, secara automatik akan menghantar ucapan selamat ulang tahun ke id e-mel masing-masing.
Catatan: Anda harus mengkonfigurasi Outlook dalam sistem anda.
