Private Sub Workbook_Open()
Application.OnTime Now(), "TimerProc"
End Sub
新建模块:
Public Function TimerProc()
ThisWorkbook.Sheets(1).Range("A1") = Format(Time(), "hh:mm:ss")
DoEvents
Application.OnTime Now() + TimeValue("00:00:10"), "TimerProc"
End Function
每10秒更新A1单元格时间
补充问题:
菜单:工具->宏->Visual Basic 编辑器
双击工程资源管理器窗口中的“ThisWorkbook”,在代码窗口选择“Workbook”的“Open”事件,输入如下代码:
Application.OnTime Now(), "TimerProc"
Visual Basic 编辑器菜单:插入->模块
在代码窗口输入如下代码:
Public Function TimerProc()
ThisWorkbook.Sheets(1).Range("A1") = Format(Time(), "hh:mm:ss")
DoEvents
Application.OnTime Now() + TimeValue("00:00:10"), "TimerProc"
End Function
是对的,
设置好后,保存关闭表格,然后打开OK。