Question

excel自动弹框提醒，到期日期提醒

我有一张统计表，表中开始日期，到期日期，我根据 到期日期 推算出了最迟的办理续期日，由于数据量大，所以我想实现到了到期日的前十天时excel可以自动弹出窗口提醒我是哪一个的最迟出库时间到了，只要能够制定到该行就可以了，谢谢
然后如果我续办了，还可以取消提醒 就更好了，谢谢

Answer 1

1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。

2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。

3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15"))  'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。

4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核定！" End IfEnd Sub。

  

5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。

Answer 2

如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。

双击C2单元格，输入函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回“提醒”二字，否则返回空白。

我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。

如果不想加C列显示，只想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。

在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。

在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。

在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。

追问

不知道可以弹出对话框吗？

Answer 3

如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可

追问

怎么设置呢，我试了下，用不起