如何让ExcelNOW时间每秒刷新一次? 最佳答案 用application.ontime 结合在Change事件中的代码运行即可实现.

2025-03-09 20:37:28
推荐回答(1个)
回答1:

在thisWORKBOOK里面放入下面代码:
Private Sub Workbook_Open()
Call UpdateClock
End Sub
在新建一个模块 里面放入下面代码:
Sub UpdateClock()
ThisWorkbook.Sheets(1).Calculate
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
保存 关闭打开试试