將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，右鍵點擊形狀→指定宏