excel怎样自动让日期快到期单元格变色提醒？
自己搞了一个租房管理，交租金提醒功能不会弄，于是在网上找了一个别人做的范例，觉得很适合自己的这个表格。 但是那个范例有VBA编程，我对这一窍不通，原本复制过来后，我的表格根本不起作用，而且一启用宏就失去响应，想请各位高人看看。
这是别人的表格和代码。可以根据租房日期，提前几天用颜色提醒。
这个是我的表格，提醒那个单元框的参数和别人那个差不多，代码复制过去，可是没提醒，还无响应。
我的表格针对租客和房东各一个表，希望都能实现提醒功能，半年和年付提前一个月，用黄色。季度付提前15天提醒，用橙色。月付提前5天，用红色。
表格在附件：
http://pan.baidu.com/s/1kTDTwt5
1、首先我们打开电脑里的excel软件打开一个要设置日期快到期单元格变色的表格。
2、先选中合同到期日期那一列的日期数据区域，点击条件格式-新建规则。
3、在打开的新建规则对话框中点击使用公式确定要设置格式的单元格，并在下方的公式输入框中输入=C2-TODAY()<=3再点击格式。
4、当然，此处的公式设置可以根据需求而定，如果需要合同日期提前30天到期提醒，那么可以把公式设置为=C2-TODAY()<=30。
5、在打开的设置单元格格式对话框中，选择填充选项卡，再在下方的背景色中选择一种颜色填充，再点击确定。
6、此时，可以看到，距离当前日期小于等于3天的合同到期日期均被红色填充。
单元格自动变色的问题在EXCEL中可用两种方法实现：
方法一：
条件格式，操作如下(以到期前五天举例)：
开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1<TODAY())-->设置单元格填充色-->确定。
公式中的星号可用and函数替代。
方法二：
VBA代码。
alt+f11打开VBA, 键入如下代码到需要设置颜色的sheet下，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cel As Range
For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
If cel > Date - 5 And cel < Date Then cel.Interior.ColorIndex = 20
Next
End Sub
请根据实际应用写条件格式公式即可。返回当前日期可以使用TODAY函数，此函数没有参数，直接写TODAY()即
没必要一定要用VBA代码来做。追问
能不能说的详细点？谢谢
追答选中I列 格式 条件格式
公式 =AND(TODAY()>=I1-30,TODAY()<=I1)
格式 图案 选择 红色 确定
表示电脑系统日期在I1-30和I1之间时，I列显示红色，表示你要交房费了。
提前30天提醒你。
建议用函数去完成即可，比喻说E列填好开始租出的时间，F列填上到期时间，G列用两个时期相减，再在列格相应单元格设置条件格式，介于某值之间显示一种颜色，小于某值或大于某值各显示一种颜色。只到你的电脑系统日期时间无误，这个表就不会出差异，你随时打开即可以了。
当然，如果你对VBA有兴趣想研究那就是另一码事了，暂时我帮不了你，我正在学习这个。