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

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 Functio

只需插入一个activeX控件即可做到。打开开发模式，然后插入一个表单，插入一个计时器控件和一个标签控件，设置计时器控件属性的间隔为1秒，写代码，让计时器每一秒钟执行一下，代码就是刷新后的显示时间。学vb的人都会这个。

在Microsoft Excel 电子表格中怎么制作一个秒表，要…1960