作者：乔山办公网日期：
返回目录：excel表格制作
按“Alt+F11”组合键进e5a48de588b6e799bee5baa6e79fa5e98193338入VBA编辑状态
在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块
将下述代码输入到右侧的编辑区域中：
Sub auto_open() '设置一个自动运行的宏——auto_open
Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。
Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。
msg = MsgBox("这里是输入你要弹出的提示！", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。
End Sub
注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要（参见图1）。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。
5、输入完成后，退出VBA编辑状态，保存工作簿文档。
6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框.
方法/步骤
首先打开excel表格，
然后找到视图当中的查看宏命令按知钮，或者按快捷键alt+f11打开宏代码编辑窗口，
打开后选择插入模块命道令，
接着在模块中输入如下命令：
Sub blink()
Dim n As Integer, i As Long
For n = 1 To 100
[a1].Interior.ColorIndex = 3
For i = 1 To 10000000
Next
[a1].Interior.ColorIndex = xlNone
For i = 1 To 10000000
Next
Next
End Sub
输入完版成后回到excel表格操作界面，然后按快捷建alt+f8找到对应的命令，单击执行按钮，如下图所示：
如果觉得经验有用，谢谢你的点赞和权分享！
操作步骤：
1.如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工知作簿时都会自动更新。
2.双击C2单元格，输入道函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回内“提醒”二字，否则返回空白。
3.我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。
4.如果不想加C列显示，只容想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。
5.在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。
6.在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。
7.在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。