循环单元检查小时数

Question

我正在尝试找到一个宏，它将遍历列以检查与当前时间相比的小时数。通过表单上的按钮将日期/时间输入单元格并格式化为mm / dd / yyyy hh：mm：ss我想要做的是每小时运行一次宏以查找列中的哪些单元格较旧超过6小时，即使进入第二天也需要工作。我尝试了一小段代码，但结果不正确。

For Each rCell In rRng.Cells
If rCell < Hour(Now) - 6 Then
MsgBox rCell.Address, rCell.Value
ElseIf rCell = "" Then Exit Sub
Else

Answer 1

Excel中的日期时间值存储为十进制。您所要做的就是比较单元格值与Now之间的差异大于6.0/24

For Each rCell In rRng.Cells
    If Now - rCell.Value > (6.0/24) Then
          MsgBox rCell.Address, rCell.Value
    ElseIf rCell = "" Then Exit Sub
    Else
......