Hẹn ngày giờ kết thúc cho câu hỏi Q&A

[trandinhthienbao]

Cho em hỏi em muốn làm deadline Q&A trong exel hẹn ngày và giờ chốt câu hỏi thì mình làm thế nào ạ. Em xin cảm ơn ạ
Deadline để Q&A: 14h chiều ngày 10/8/2022

 

[bebo021999]

Bạn phải chỉ rõ điều kiện chứ, chỉ có bạn làm file này mới rõ được yêu cầu thế nào.
Mình đoán thế này: Nếu đến thời điểm 10/08/2022 14:00:00, nếu các ô C3:C22 mà trống (tất cả hay 1 trong các ô?) thì điền giá trị "Missed Deadline" vào ô A22?
Nếu thế thì dùng VBA, lệnh Application.Ontime nhé .

 

[trandinhthienbao]

Bạn phải chỉ rõ điều kiện chứ, chỉ có bạn làm file này mới rõ được yêu cầu thế nào.
Mình đoán thế này: Nếu đến thời điểm 10/08/2022 14:00:00, nếu các ô C3:C22 mà trống (tất cả hay 1 trong các ô?) thì điền giá trị "Missed Deadline" vào ô A22?
Nếu thế thì dùng VBA, lệnh Application.Ontime nhé .

người dùng có thể thêm câu hỏi đến ngày 10/8 14h thì sẽ kết thúc và câu hỏi cuối cùng sẽ hiện missed deadline ạ.

 

[bebo021999]

Alt-F11 mở cửa sổ VBA. Chọn insert/module.
Bạn copy cái này vào module1. Đứng tại sub timer, nhấn F5 cho sub này chạy, sau đó đóng file. Đến ngày giờ đó nó sẽ tự động gọi sub deadline.
(Bạn có thể test bằng cách chỉnh lại ngày giờ trong sub timer

Option Explicit
Sub timer()
Dim t As Date
Application.OnTime DateValue("14/08/2022") + TimeValue("14:00:00"), "deadline"
End Sub
'----------------------
Sub deadline()
Range("A22").Value = "Miss deadline"
End Sub