基于日期的条件突出显示VBA

Question

我制作的这个工作簿有点像程序。它接受订单，将其放在单独的工作表中的主列表中，然后将其绘制在日历上。使用VBA，我希望我的代码自动高亮显示新修改的输入订单。现在我必须双击单元格以突出显示它，因为Excel不会将公式更改识别为修改。我也想添加时间范围条件 - 当订单在14天内到期时，我希望突出显示为红色，但14天或更长时间仍为黄色。现在我的代码是这样的：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B9:AE53")) Is Nothing Then
    For Each c In Intersect(Target, Range("B9:AE53"))
        Target.Interior.Color = vbYellow
    Next c
End If
End Sub

可行吗？如何修改我的代码？

Same workbook, different issue

Answer 1

如何使用公式执行此操作：

1）将单元格设置为 DATE 格式

2）编写代码以显示当前日期

3）结束日期 - 当前日期 = 天数。

4）条件格式。如果天数大于14 则为黄色，否则会变为红色。

所有这些都可以自动完成。