Hàm VBA DATE trong Excel
VBA Date là một hàm Date and Time, nó chỉ trả về ngày hiện tại theo ngày hệ thống bạn đang sử dụng, điều quan trọng cần lưu ý là hàm này không có đối số nào trong đó, một yếu tố quan trọng khác cần nhớ là hàm này trả về ngày hệ thống hiện tại.
Trong excel, chúng ta không thể sống thiếu một số hàm và “VBA Date” là một trong những hàm đó. Nếu bạn là người thường xuyên sử dụng trang tính excel, thì bạn phải biết một hàm có tên là “TODAY ()” , hàm này sẽ trả về ngày hiện tại theo ngày hệ thống.
Ngày là một hàm rất đơn giản và nó chỉ trả về ngày hiện tại theo ngày hệ thống mà bạn đang sử dụng. Điều này hoạt động rất giống với hàm trang tính của chúng tôi “TODAY” nhưng không dễ bay hơi về bản chất.
Cú pháp của hàm DATE trong excel rất đơn giản vì nó không có đối số để cung cấp và chỉ bao gồm dấu ngoặc đơn trống.
Ngày ()
Dấu ngoặc đơn chỉ để giải thích hàm khi bạn sử dụng hàm, không cần nhập dấu ngoặc.
Làm thế nào để sử dụng Hàm Ngày trong Excel VBA?
Ví dụ 1
Giả sử bạn muốn chèn ngày hiện tại vào ô A1, sau đó làm theo các bước dưới đây để viết mã chèn ngày hiện tại vào ô A1.
Bước 1: Tạo tên macro.
Mã:
Sub Date_Example1 ()
Bước 2: Vì chúng ta cần lưu trữ ngày hiện tại trong ô A1 nên mã của chúng ta sẽ là Phạm vi (“A1”). Giá trị .
Mã:
Sub Date_Example1 () Range ("A1"). Giá trị End Sub
Bước 3: Trong ô A1, chúng ta cần ngày hiện tại, vì vậy hãy sử dụng hàm DATE.
Mã:
Sub Date_Example1 () Range ("A1"). Giá trị = Ngày kết thúc Sub
Bước 4: Ok, chúng ta đã hoàn tất. Hãy chạy mã này ngay bây giờ bằng cách nhấn phím F5 hoặc bạn cũng có thể chạy mã theo cách thủ công, như được hiển thị trong ảnh chụp màn hình bên dưới. Chúng ta sẽ nhận được ngày hiện tại trong ô A1.
Vì vậy, khi tôi đang viết mã ngày hiện tại này trong hệ thống của tôi là “15 ngày tháng 3 năm 2019”.
Lưu ý: Định dạng ngày của bạn phụ thuộc vào cài đặt windows của bạn. Dù sao, bạn có thể thay đổi định dạng của ngày trong ô định dạng.
Ví dụ số 2
Giả sử bạn là một đại lý LIC và bạn có một số khách hàng để giao dịch. Một trong những đối tượng quan trọng là phải biết ngày hôm nay đến hạn thanh toán của ai để bạn có thể gọi cho họ và thu tiền ngay lập tức.
Giả sử bên dưới là danh sách khách hàng bạn có trong cơ sở dữ liệu của mình.
Tôi đã viết một đoạn mã sẽ thông báo cho bạn ngay khi bạn mở tệp excel.
Mã:
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)) Sau đó MsgBox "Tên khách hàng:" & Cells (i, 1) .Value & vbNewLine & "Premium Amount:" & Cells (i , 2). Giá trị Kết thúc Nếu Tiếp theo Tôi Kết thúc Phụ
Sao chép mã trên và dán vào mô-đun VBA.
Bây giờ hãy nhấp đúp vào tùy chọn “This Workbook”.
Bây giờ chọn “Workbook” từ menu thả xuống ở trên.
Ngay sau khi bạn chọn tùy chọn “Workbook”, bạn có thể thấy một macro riêng tư tự động mở ra.
Ở đây tên macro cho biết “Workbook_Open ()” điều này có nghĩa là bất cứ khi nào sổ làm việc này mở ra, bạn phải làm gì. Bất cứ khi nào sổ làm việc này mở ra, chúng ta cần chạy macro mà chúng ta đã tạo.
Vì vậy, ở đây chúng ta cần gọi macro của chúng ta mà chúng ta đã tạo bằng tên của nó. Trong đoạn mã trên, tên macro của chúng tôi là “Due_Notifier.”
Mã:
Call Due_Notifier
Bây giờ hãy lưu sổ làm việc này và đóng nó.
Sau khi đóng nó, hãy mở sổ làm việc và xem điều kỳ diệu.
Bây giờ tôi sẽ mở….
Chà !!! Nó cho tôi biết tên khách hàng và số tiền đến hạn của họ cho ngày hiện tại.
Tên khách hàng là “Amar” và số tiền đến hạn là “20883”. Lý do tại sao nó được hiển thị tên khách hàng này vì ngày đáo hạn đối với ông Amar là 15 ngày tháng 3 năm 2019, tức là ngày hôm nay.
Bây giờ bấm vào Ok, nó sẽ hiển thị tên khách hàng khác nếu ngày đến hạn là ngày hôm nay.
Nó đang hiển thị tên của ông Arvind; ngày đáo hạn của ông cũng là ngày 15 tháng Tháng Ba 2019.
Giờ đây, bạn có thể dễ dàng xác định tên khách hàng ngay khi đến văn phòng. Một trong những cơn đau đầu lớn đã biến mất.
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
Ngay sau khi bạn đến văn phòng, chỉ cần mở tệp và chạy mã này, nó sẽ tự động gửi lời chúc mừng sinh nhật đến id email tương ứng.
Lưu ý: Bạn nên cấu hình Outlook trong hệ thống của mình.
