当前日期加时间VBA

Question

我想要创建一个按钮，它将执行以下操作。-检索单元格范围(L2:L11)中的当前日期和时间--此日期和时间加上( O2 )中的时间--如果当前时间加上单元格O2中的时间小于或超过它旁边单元格中的日期和时间(范围M2:M11)，则需要显示。将细胞L2与M2、L3与M3等进行比较。

在任何当前时间，您都可以单击该按钮，它将计算它是否准时或太晚。

我知道如何得到现在的日期，但不能得到任何进一步的日期。

单击此处获取带有单元格的图像。

Sub OnTime()


With Range("L2:L11")
   .Value = Now()
   .NumberFormat = "mm/dd/yyyy h:mm:ss AM/PM"
End With

End Sub

Answer 1

你为什么不直接这么做呢

In cell O2 type "=now"
in cell L2 type "=IF(B1<D1,"Ontime", "Late")"

之后，每次刷新公式时，都会重新计算。通过将这个宏链接到一个按钮来做到这一点。

Sub Refresh_formulaes()
    Calculate
End Sub