Question

Excel 中如何实现在单元格内显示实时时间，秒表是要实时更新的，now(),today()都是不会自动更新的，要按F9

Answer 1

在Excel中是可以插入日期和时间的，但这个日期和时间是静止的。能不能让Excel中也有一个像电子手表一样的电子钟表呢？可以的。它主要是通过宏再加上相应的代码就能轻松搞定。下面来看一看是如何实现的吧！

操作步骤：
第一步：新建一个Excel工作簿→单击Sheet1工作表→工具→宏→Visual Basic编辑器。
第二步：在Sheet1工作表上右击→插入→模块。   
第三步：在模块对话框中输入如下代码：
Sub biao()
ActiveSheet.Range("a1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "biao
End Sub
注：上述代码中的a1是表示我们要在A1单元格中建立一个电子时钟，如果想在其他单元格中建立一个电子时钟，可以把A1改成相应的单元格地址。
第四步：关闭Visual Basic编辑器，返回到Excel工作簿中→工具→宏→宏(M)…。
第五步：在宏对话框中选择biao→执行。

追问

繁体中文的office2003 和 2007 分别要怎么操作？

追答

繁体版excel的菜单布局应该都差不多。只是字面上不一样。操作上出入不大的。

追问

问题是，我要多sheet仅sheet1显示，不能都显示，另外，我的excel中的其他公式不能因为此一项而失效

Answer 2

右击工作表标签-选择“查看代码”，弹出VB编辑窗口
点菜单：插入-模块
然后，录入以下代码（以秒表显示在A1单元格为例）：
Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub

保存文件后，执行菜单：工具-宏-宏
在弹出的对话框中，选择“秒表”这个宏
点“执行按钮”
要显示24小时制的话，设置一下单元格的时间格式就好了。

追问

我用的是繁体中文的office

追答

一样可以用啊。

追问

问题是，我要多sheet仅sheet1显示，不能都显示，另外，我的excel中的公式不能因为此一项而失效

Answer 3

Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub