弹出消息框以在特定日期打开

Question

我有一个电子表格，我必须每隔4周更换一些单元格，有没有办法让我在某个日期打开我的工作簿时会出现一个消息框提醒我我的工作表？

Answer 1

将最后一个日期写在名为“重要日期”的命名单元格中。然后在ThisWorkbook中编写以下代码。

Private Sub Workbook_Open()

    if now > [important_date]+28 then
        msgbox "Change me, please"
    end if

end sub

提醒您，请务必更改指定单元格“important_date”中的日期。在这里，您可以阅读命名范围：https://msdn.microsoft.com/en-us/library/office/ff823060.aspx