excel怎么日期提醒

别再问了，真的，每次都有人火急火燎地跑过来，“哥，那个合同下周是不是到期了？”“姐，那个项目的deadline是哪天来着？”我的天，你的脑子是用来干嘛的？Excel就摆在你的面前，它不只是个填数字的格子铺，它是个能救你于水火之中的神器，一个能帮你对抗人类本质——“我忘了”——的超级盟友。今天，我就把压箱底的几招掏出来，让你把Excel调教成一个比闹钟还准时、比你女朋友/男朋友还贴心的日期提醒小能手。

咱们先从最简单、最直观的开始，别嫌弃它土，有时候最土的办法最管用。这就是大名鼎鼎的条件格式。

想象一下，你面前有一张密密麻麻的表格，全是客户续约日期、物料采购日期、员工生日……看得人眼花缭乱。你想让那些快要到期的日子自己“跳”出来，主动勾引你的注意力。怎么办？

用颜色！用最原始、最能刺激人类视觉神经的颜色！让那些快到期的合同，像得了猩红热一样，在表格里发出刺眼的警告。

具体怎么搞？很简单。选中你那列日期，比如是D列吧，从D2一直选到你数据结束的地方。然后，在“开始”选项卡里，找到那个油漆桶旁边闪着光的“条件格式”按钮，点它！就像打开了潘多拉的魔盒，里面全是宝藏。

别被那一堆选项吓到，咱们直奔主题。点“新建规则”，然后选“使用公式确定要设置格式的单元格”。这地方就是你施展魔法的舞台。

在那个可以输入公式的小框框里，咱们敲下这么一行咒语： =AND(D2<>"", D2-TODAY()<=7, D2-TODAY()>=0)

我给你翻译翻译这串火星文是什么意思。D2<>""是说，D2这个单元格得有东西，不能为空，不然整个一列空白都变色了，那不成光污染了？TODAY()这个函数，我的神，它就是获取“今天”的日期，活的，动态的，你明天打开它就是明天的日期。所以D2-TODAY()<=7的意思就是，D2的日期减去今天，还剩下不到一个礼拜（7天）的时间了。D2-TODAY()>=0则是确保这个日期还没过去，我们总不能提醒一个已经凉透了的事情吧？AND函数把这三个条件捆绑在一起，意思就是：当D2单元格里有日期，并且这个日期在未来7天之内，并且它还没过时，那么……

那么什么？点下面的“格式”按钮啊！进去之后，想怎么蹂躏它都行。把“填充”选个扎眼的亮黄色，或者干脆选个让人血压飙升的大红色。字体再给你加个粗，倾个斜。确定，确定，再确定。

然后你再看看你的表格。是不是瞬间就清爽了？那些安安静静躺着的日期，只要一进入你设定的“危险期”，立马就自己穿上黄马褂或者红袍子，站在那里对你呐喊：“看我！快看我！再不处理我就要爆炸了！”

你甚至可以设置好几层提醒。比如，小于30天的标个蓝色，小于15天的标个黄色，小于7天的，那就直接上血红色！层层递进，压迫感直接拉满。这种视觉冲击，比你设置一百个手机闹钟都管用。这简直就是对抗遗忘症的物理外挂。

但是，有人说了，光变色还不够刺激，我想要更明确的文字提示。没问题，满足你。

这时候，咱们就得请出Excel的另一位大神：IF函数，公式的魅力就在于，它能让Excel“开口说话”。

我们在日期旁边再加一列，比如E列，就叫“提醒状态”吧。然后在E2单元格里，我们输入这样一个更复杂的公式： =IF(D2="","",IF(D2-TODAY()<0,"已过期！火速处理！",IF(D2-TODAY()<=3,"【紧急】3天内到期！",IF(D2-TODAY()<=7,"【警告】7天内到期",IF(D2-TODAY()<=30,"【关注】30天内到期","安全")))))

这一长串，看着吓人，其实就是个套娃。我给你一层层剥开看： 第一个IF判断D2是不是空的，是空的那我也没啥可提醒的，就也给你个空白。 第二个IF判断日期是不是已经过去了（小于0），如果是，直接给你打上“已过期！火速处理！”的标签，感叹号都给你配上，就问你慌不慌。 第三、四、五个IF就是我们设定的提醒阶梯，3天内、7天内、30天内，分别给你打上不同等级的标签。 如果以上条件都不满足，那说明这事儿还早着呢，就显示“安全”俩字，让你安心。

写完这个公式，按回车，然后把鼠标放在E2单元格的右下角，那个小黑点点，变成十字的时候，双击一下。Duang！一整列的提醒状态瞬间自动填充完毕。

现在你再看，是不是感觉Excel有了灵魂？它不再是冷冰冰的数字，它在跟你对话，在帮你分清主次，告诉你什么事情应该像火烧眉毛一样去办，什么事情可以暂时放一放。你还可以对这个“提醒状态”列做个筛选，每天上班第一件事，就把所有“紧急”和“警告”的都筛出来，今天的工作重点不就有了吗？还需要领导天天在你屁股后面催吗？

说到这，肯定有大神要跳出来了，“这些都太被动了！我得打开Excel才能看到，万一我忘了打开呢？”

问得好。对于懒癌晚期或者事情多到爆炸的朋友，我们需要更主动、更粗暴的提醒方式。

这时候，就该轮到终极武器出场了——VBA。

一看到VBA三个字母就头大？觉得那是程序员才玩的东西？别怕，跟着我抄作业就行。VBA就是赋予Excel终极智能的魔法代码，能让它做到很多你意想不到的事情。我们要做的，就是让这个Excel文件在一打开的时候，就自动检查所有日期，然后弹出一个窗口，把所有即将到期的事项，像清单一样拍在你脸上。

这感觉，就像你一进家门，你的智能管家就自动播报：“主人，今天有三件事需要您处理：一、合同A还有5天到期；二、项目B还有2天交付；三、您再不干活就要被开除了。”

怎么实现？按Alt + F11，你会进入一个看起来很高端的界面，这就是VBA编辑器。在左边的工程窗口里，找到ThisWorkbook（就是“这个工作簿”），双击它。右边会弹出一个空白的编辑区。

然后，把下面这段代码，复制，粘贴进去。注意，你要根据自己的实际情况，稍微修改一下里面的参数，我都给你标注出来了。

```vb Private Sub Workbook_Open() Dim LastRow As Long Dim i As Long Dim RemindMsg As String Dim DueDate As Date Dim DaysLeft As Integer

' --- 这里修改成你的工作表名字和日期所在的列 ---
Const SheetName As String = "Sheet1" ' 你的工作表名
Const DateColumn As String = "D"     ' 你的日期列
Const TaskColumn As String = "C"     ' 你的任务/合同名称所在的列
Const RemindDays As Integer = 15      ' 提前多少天开始提醒
' ----------------------------------------------------

RemindMsg = "=======【到期事项提醒】=======" & vbCrLf & vbCrLf

With ThisWorkbook.Worksheets(SheetName)
    LastRow = .Cells(.Rows.Count, DateColumn).End(xlUp).Row

    For i = 2 To LastRow ' 假设数据从第2行开始
        If IsDate(.Cells(i, DateColumn).Value) Then
            DueDate = .Cells(i, DateColumn).Value
            DaysLeft = DueDate - Date

            If DaysLeft <= RemindDays And DaysLeft >= 0 Then
                RemindMsg = RemindMsg & "【" & .Cells(i, TaskColumn).Value & "】" & _
                            "将于 " & DaysLeft & " 天后到期（" & Format(DueDate, "yyyy-mm-dd") & "）" & vbCrLf
            End If
        End If
    Next i
End With

If RemindMsg <> "=======【到期事项提醒】=======" & vbCrLf & vbCrLf Then
    MsgBox RemindMsg, vbInformation, "您有新的提醒！"
End If

End Sub ```

抄完作业，别急着关。我给你讲讲这段代码是干嘛的。Workbook_Open()的意思就是，当这个工作簿被打开的时候，自动执行下面的所有动作。它会去你指定的那个工作表（Sheet1），从第二行开始，一行一行地往下扫。检查你指定的日期列（D列），计算每个日期距离今天还有几天。

如果这个天数，小于你设定的提醒天数（比如15天），并且还没过期，它就把这个事儿记下来，连同任务名称（C列）和剩余天数，一起加到一个叫RemindMsg的文本变量里。

最后，等所有行都检查完了，如果RemindMsg里有内容（说明有需要提醒的事），MsgBox就会“Duang”地一下，弹出一个对话框，把整理好的所有待办事项清单，清清楚楚地呈现在你面前。

写完代码，把这个VBA编辑器关掉。最最重要的一步来了：保存文件的时候，一定要选择“Excel 启用宏的工作簿（*.xlsm）”这个格式！否则你写的代码就白写了，下次打开啥也不会发生。

从今往后，只要你一打开这个Excel文件，它就会像个忠心耿耿的管家，第一时间向你汇报工作。你再也没有借口说“我忘了”。

你看，从简单的颜色标记，到智能的公式判断，再到全自动的VBA弹窗，Excel给了你从青铜到王者的所有兵器。工具是死的，但用工具的人是活的。别再把它当成一个只能画画表格的计算器了，它蕴含的能量，远超你的想象。

掌握了这些，你就不再是被deadline追着跑的可怜虫，而是那个手握缰绳，从容驾驭时间的骑士。