待办事件提醒（时间版）

新建表格，把格式设置好，特别是（要求完成时间）一列，单元格格式一定要是下图中的格式。

编辑好之后，打开VBE，点击插入模块，在新模块里面输入一下代码：

Public Sub 开始()

Application.OnTime Now TimeValue('00:01:00'), '检查'

End Sub

---

1. Public Sub 检查()
   

2. For i = 2 To ThisWorkbook.Sheets(1).Range('d655565').End(xlUp).Row

3. If ThisWorkbook.Sheets(1).Cells(i, 4).Value <= Now And ThisWorkbook.Sheets(1).Cells(i, 6) = '待完成' Then

4.     MsgBox '事件:“' & ThisWorkbook.Sheets(1).Cells(i, 2).Value & '”还没完成，赶紧去办！！'

5.     开始

6.     Else

7.     开始

8.     End If

9.     Next

10. End Sub

注意，这是两个Sub程序，第一个程序，利用OnTime函数，让工作表在一分钟之后自动执行（检查）程序。

第二个程序，第二句定义一个循环，从2开始到sheets表1的最后一个已使用单元格，第三句到第五句，如果当前行的时间小于等于当前的时间同时当前行的完成状态是（待完成），就弹出一个提示框，提示哪件待办事件还没有在规定的时间内没有完成，然后继续返回第一个程序，后面的代码，相反，如果没有超过预定时间则继续返回第一个程序，继续循环执行。

但是，要实现这一切的功能，必须要有一个触电，我们把这个触电设置在当打开工作簿的时候，

双击ThisWorkbook，写入代码：

Private Sub Workbook_Open()

Call 开始

End Sub

意思是说打开工作簿就开始调用开始程序。