可以用用条件格式:图片为GIF演示,点击看大图
选中日期这一列的单元格,开始菜单--条件格式--在新建格式规则中选择“使用公式确定要设置的单元格”,在公式中输入=$A$1=today()--然后,再点格式按钮,选择红色。
可以通过编程解决。。。
Sub date1()
'
' date1 宏
'
Dim i
For i = 2 To 30
date11 = Cells(i, 1).Value
date2 = Date
If (date11 = date2) Then
Cells(i, 1).Interior.ColorIndex = 3
Cells(i, 2).Interior.ColorIndex = 3
Else
Cells(i, 1).Interior.ColorIndex = 2
Cells(i, 2).Interior.ColorIndex = 2
End If
Next
'
End Sub
如图设置就可以了。
格式---条件格式---等于里面输入
=TODAY()
颜色自己选择