如何根据条件改变单元格文字的颜色？

hzajun

比如我有一个日期的列，我想每次打开文件时把与当前日期相隔一个月的日期标记为红色字体，该如何实现？

老鬼

在VBA工程的“ThisWorkBook”中输入以下代码即可Private Sub Workbook_Open()

For Each CL In Range("A:A")    '此处设A列为日期列

  If CL.Value <> "" Then

    If Date - CL.Value = 30 Then  '这里假设相隔一个月为30天

      CL.Font.ColorIndex = 3

    End If

  End If

Next CL

End Sub

liuhoubin168

因为到了明天该日期又不能显示为红色，所以2楼不能完全解决问题。可以使用条件格式的办法，但不知楼主所说的相距一个月是精确的30天，还是号数的对应，如果是号数的对应，那么遇到3月30日时，相隔一个月又是指的哪一天呢？以下为号数对应的条件格式公式：=DATE(IF(MONTH(NOW())=1,YEAR(NOW())-1,YEAR(NOW())),IF(MONTH(NOW())=1,12,MONTH(NOW())-1),DAY(NOW()))以下为相隔30天的日期条件格式：＝TODAY()-30