当前日期加上时间VBA

Question

我想创建一个按钮，它将执行以下操作。 - 检索当前日期和时间 - ＆gt; - 此日期和时间加上（O2）中的时间 - ＆gt; - 如果当前时间加上单元格O2中的时间小于或大于其旁边单元格中的日期和时间，则需要显示单元格范围（L2：L11）（范围M2：M11）。将小区L2与M2，L3与M3等进行比较。

在任何当前时间，您都可以点击按钮，它会计算是准时还是太晚。

我知道如何获取当前日期但无法继续使用。

Click here for the image with the cells

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