将A列设置为提醒日期，并点击插入→形状→矩形。
按Alt+F11，双击sheet1，并输入代码：
Sub 提醒() Dim i As Long i = 2 While Cells(i, 1) <> "" If Format(Cells(i, 1), "YYYY-MM-DD") = Format(Now(), "YYYY-MM-DD") Then Cells(i, 1).Select MsgBox "今天你有事情要办" Exit Sub End If i = i + 1 WendEnd Sub
再次回到excel，右键点击形状→指定宏
按Alt+F11，双击sheet1，并输入代码：
Sub 提醒() Dim i As Long i = 2 While Cells(i, 1) <> "" If Format(Cells(i, 1), "YYYY-MM-DD") = Format(Now(), "YYYY-MM-DD") Then Cells(i, 1).Select MsgBox "今天你有事情要办" Exit Sub End If i = i + 1 WendEnd Sub
再次回到excel，右键点击形状→指定宏