问与答126:如何高亮显示指定日期?
excelperfect
Q:在列A中是一系列日期,我如何操作,使得含有当天日期的单元格显示为红色,距离当天10天内的日期单元格显示为黄色?
A:可以使用Excel的条件格式功能,也可以使用VBA代码。下面分别介绍。
方法1:条件格式
选择单元格A1,单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”。在“新建格式规则”对话框中,选择“使用公式确定要设置格式的单元格”,输入公式:
=INT(A1)=TODAY()
单击“格式”按钮,设置“填充”色为红色。如下图1所示,单击“确定”按钮。
图1
同上,仍然选择单元格A1,设置条件格式,公式为:
=AND(INT(A1)>TODAY(),(INT(A1)-TODAY())<11)
设置填充色为黄色,如下图2所示,单击“确定”按钮。
图2
复制单元格A1,将其格式粘贴到列A中其他日期单元格中,结果如下图3所示。
图3
方法2:VBA
运行下面的VBA代码:
Sub ApplyConditionFormat()
Dim lngLastRow As Long
Dim rng As Range
lngLastRow = Range('A' &Rows.Count).End(xlUp).Row
With Range('A1:A' &lngLastRow)
.FormatConditions.Delete
.FormatConditions.AddType:=xlExpression, Formula1:='=INT(A1)=TODAY()'
.FormatConditions(1).Interior.ColorIndex = 3
.FormatConditions.AddType:=xlExpression,Formula1:='=AND(INT(A1)>TODAY(),(INT(A1)-TODAY())<11)'
.FormatConditions(2).Interior.ColorIndex = 6
End With
End Sub
Excel的条件格式功能非常强大,有兴趣的朋友可以深入学习。
欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料。