[049]VBA制作动态时间.txt

Sub time()
Calculate
Application.OnTime Now + TimeValue("00:00:01"), "time"
End Sub