Excel做报表~怎么让在今天之前的日期显示绿色等于今天日期显示黄色之后的日期显示 红色

如先在A1输入=today(),回车，再点击格式/条件格式中输入“单元格数值”“大于""A1",点格式/字体/颜色选红色，添加输入等于A1,点格式/字体/颜色选，添加输入小于A1,点格式/字体/颜色选绿色，确定，OK

1这个可以用if函数去表示，if函数的语法是=if（条件，成立显示值，不成立显示值）。2所以公式可以这样写：条件-任意字符反义词就是空值也就是“”，成立时即空值时也是显示空值，不成立-也就是非空值时显示内容为当前日期，表示就是today（），所以可以下面这样表示，注意显示值单元格格式要设置成日期格式。4上例用了正负值，字母和符号均能显示当前日期，可见公式有效。

选择自动更正功能或使用宏：代码如下:
Sub Macro1()
CellsReplace what:="15", Replacement:="2014年1月30日-2014年2月14日"
CellsReplace what:="30", Replacement:="2014年1月30日-2014年2月29日"
End Sub

1、打开桌面上的Excel表格，在新建一个工作样表。

2、接着使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块。

3、输入以下代码：Option ExplicitSub ddt()Dim rq As DateDim lx As StringDim n As IntegerDim Msglx = "m"rq = InputBox("请输入一个日期")n = InputBox("输入增加月的数目：")Msg = "新日期:" &DateAdd(lx, n, rq)MsgBox MsgEnd Sub。

4、这里先对变量做声明，其中rq变量为日期类型，lx为字符串，n为整数型。msg并没有设置具体类型，vba会将其默认为可变类型variant。

5、输入日期并没有做错误纠正，最好输入2020/2/17这样的格式日期。增加的月数是赋值给了n这个变量。

6、最后用msgbox来输出最后的结果，就完成了。

---