簡易時計|Excel VBA |
サンプルマクロは、1分ごとにセルA1に日時を表示することで、簡易の時計機能を持たせます。
Sub Sample()
Dim myTime As Date
myTime = CDate(Format(Now() + TimeValue("00:01:00"), "hh:mm:00"))
Range("A1").Value = Now()
Columns("A").AutoFit
Application.OnTime myTime, "Sample"
End Sub