Excel_VBA突出显示具有当前日期和不同时间的单元格

Question

需要帮助以突出显示包含今天日期和不同时间的单元格。我编写的代码在这里，但它只能突出显示具有当前日期的单元格。

子日期选择((

Dim rCell As Range
With Worksheets("owssvr")
For Each rCell In .Range("A2:M20")
If rCell.Value = Date Then
rCell.Interior.Color = vbGreen
End If
Next
End With

结束子

在此处输入图像描述

我的目标是突出显示具有当前日期(6/22/2018和时间(的单元格。 请帮帮我...

Answer 1

突出显示您的单元格并为其提供条件格式。

选择A1后，如果日期/时间值的日期部分等于今天的日期，则以下条件将返回 TRUE。

=INT(A1)=TODAY()

正如@HarassedDad所说 - 2018年6月22日中午12点将43273.5。
INT(43273.5)切断时间，只留下日期与您的日期值进行比较。

Answer 2

将 2 个比较值包装为某种格式，以确保 Excel 以相同的方式读取它们。

if isdate(rCell) then
If format(rCell.Value, "mm/dd/yyyy") = format(Date, "mm/dd/yyyy") Then
rCell.Interior.Color = vbGreen
End If
end if

编辑 1

如果单元格值是有效日期参数之外的数值，则会出现溢出错误。您可以通过使用"isDate"函数来验证单元格是否为日期并且可以处理格式来避免这种情况。