在Microsoft Excel 电子表格中怎么制作一个秒表,要自动会更新的,不要按F9才更新的那种!谢谢了!

2025-04-05 16:09:36
推荐回答(2个)
回答1:

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

回答2:

是对的,
设置好后,保存关闭表格,然后打开OK。