当前日期加上时间VBA

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

在任何当前时间，您都可以点击按钮，它会计算它是否按时或过晚。

我知道如何获得当前的日期，但不能得到任何进一步的。

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

来源

2017-10-20 pjs

你的问题是什么？如果你愿意，什么阻止你这样做？ – FunThomas

你使用哪种区域格式？ dd-mm-yy还是mm-dd-yy？此外，你为什么不能使用工作表公式的原因？你可以在VBA和电子表格中使用NOW函数来获得当前日期时间 – QHarr

我添加了问题，希望它能解释更多 – pjs

你为什么不干脆做

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

之后每次你刷新formulaes将被重新计算。这样做是通过将此宏链接到一个按钮上

Sub Refresh_formulaes() 
    Calculate 
End Sub

来源

2017-10-20 13:20:31

谢谢，这将对我有用 – pjs

当前日期加上时间VBA

回答

相关问题