簡易時計|Excel VBA

日付・時刻関連のテクニック

簡易時計

(Excel 97/2000)

サンプルマクロは、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