現在の日付と時刻VBA

Question

次のようなボタンを作成したいと思います。 - 現在の日付と時刻を取得する - > - この日付と時刻に（O2）の時刻を加えたもの - > - 現在の時刻に時間を加えたものであれば、セルの範囲（L2：L11）セルO2内の日付と時刻は、その隣のセルの日付と時刻よりも小さいか、またはそれよりも大きい（範囲M2：M11）。セルL2は、M2、L3とM3などと比較されます。

現在のところ、ボタンをクリックすると、時間通りであるか遅すぎるかが計算されます。

私は現在の日付を取得する方法を知っていますが、これ以上取得することはできません。あなたは、単にあなたはそれが再計算されますformulaesを更新するたびその後、この

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

をしないのはなぜ

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

。このマクロをボタンにリンクしてください。

Sub Refresh_formulaes() 
    Calculate 
End Sub