操作步骤:
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天的时候,单元格就会被填充上刚才选中的颜色。
操作
步骤:
1、打开Excel目标文档,按【Alt】+【F11】组合键,进入VBA编辑状态。
2、在“工程资源管理器”窗口中,右键单击“VBAProject(练习.xls)”,在随即打开的快捷菜单中执行【插入】|【模块】命令,插入一个模块,如图所示。
插入新模块
3、选中“模块1”,执行菜单栏中的【视图】|【属性窗口】命令,在打开的“属性”窗口中将其更名为“提醒”,如图所示。
“属性”窗口
4、在“提醒”模块的代码窗口中输入如下代码,如图3所示。
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
输入代码
5、保存并退出VBA编辑状态,当设定的时间到来时,系统将弹出提示对话框提醒用户,如图4所示。
A1输入到期日(5月20日——用日期输入格式09-5-20),到期前8天(5月12日)开始通知“到期”,并用红字显示;未到期显示“未到”:
=IF(A1<=(TODAY()+8)," 到期","未到")
选单元格——菜单栏——格式——条件格式——(出现“条件格式”对话框)——第二窗口:下拉选“等于”——第三窗口:输入“到期”——点“格式”按钮——(出现“单元格格式”对话框)——字体——颜色:选“红色”——确定——确定。
=$A$1-TODAY()<=8
条件格式为公式,上面的公式,格式自己设下,最好是用图案比较明显
一楼回答得很详细了.