Thực hiện lệnh VBA theo ngày chỉ định!

[nhatnguyenspkt]

Dear các Bác,

Em muốn xin hàm VBA có liên quan đến ngày tháng như sau:

Nếu đến "ngày/tháng/năm" này thì thực hiện lệnh "này"

Nhờ các Bác chia sẽ giúp Em với ạ,
Thân ái & kính chào!!!

 

[giaiphap]

Dear các Bác,

Em muốn xin hàm VBA có liên quan đến ngày tháng như sau:

Nếu đến "ngày/tháng/năm" này thì thực hiện lệnh "này"

Nhờ các Bác chia sẽ giúp Em với ạ,
Thân ái & kính chào!!!

Khi đến ngày đó mà file Excel không mở thì sao bạn?

 

[nhatnguyenspkt]

Khi đến ngày đó mà file Excel không mở thì sao bạn?
[/QUOleenhj
Dạ e muốn khi đến ngày, hoặc quá ngày mình mở mới thực hiện code VBA này ạ, Tks Bác

 

[giaiphap]

Up file mẫu lên và nêu mục đích cụ thể.

 

[ongke0711]

Dear các Bác,

Em muốn xin hàm VBA có liên quan đến ngày tháng như sau:

Nếu đến "ngày/tháng/năm" này thì thực hiện lệnh "này"

Nhờ các Bác chia sẽ giúp Em với ạ,
Thân ái & kính chào!!!

Bạn ngâm cứu công cụ có sẳn của Windows là Task Scheduler. Đến ngày/tháng/năm giờ phút "nào đó" nó sẽ thực thi mọt nhiệm vụ "nào đó".
Nó có thể chạy một file Excel, word, một đoạn VB script, một file batch,...

 

[nhatnguyenspkt]

Kính gửi Anh/Chị,

Em có đính kèm file như bên dưới, e muốn chạy code VBA như sau: đến ngày "nào đó" thì thực hiện lệnh mà sao e chưa chạy được, nhờ các AC xem và tư vấn giúp e với ạ!!

Em cảm ơn!

 

[giaiphap]

Kính gửi Anh/Chị,

Em có đính kèm file như bên dưới, e muốn chạy code VBA như sau: đến ngày "nào đó" thì thực hiện lệnh mà sao e chưa chạy được, nhờ các AC xem và tư vấn giúp e với ạ!!

Em cảm ơn!

Sửa code lại thế này xem sao?

Private Sub Workbook_Open()
Dim eDay As Date
eDay = DateSerial(2020, 3, 13)
If eDay > Now() Then MsgBox "Chay code"
End Sub

 

[nhatnguyenspkt]

Sửa code lại thế này xem sao?

Private Sub Workbook_Open()
Dim eDay As Date
eDay = DateSerial(2020, 3, 13)
If eDay > Now() Then MsgBox "Chay code"
End Sub

Cảm ơn Anh/Chị nhiều!