excel - 如何在 Excel 中显示正在运行的时钟？

Question

我想在 Excel 2007 的单元格 A1 中显示一个时钟。我熟悉 NOW() 和 TODAY()，但它不会像我希望的那样每 1 分钟刷新一次。你知道，就像一个正在运行的时钟。我只希望当前时间(h:mm)位于单元格 A1 中。这可能吗？

根据这个时钟，我将进行进一步的计算，例如距离我上次进行事件 X、Y 和 Z 已经过去了多长时间。非常感谢。

Answer 1

找到code我在上面的评论中提到过。要测试它，请执行以下操作:

1. 在 Sheet1 中更改 A1 的单元格高度和宽度，如下面的快照所示。
2. 通过右键单击单元格来设置单元格格式以显示时间格式
3. 在工作表上添加两个按钮(表单控件)并按快照中所示命名它们
4. 将此代码粘贴到模块中
5. 右键单击工作表上的启动计时器按钮，然后单击分配宏。选择 StartTimer 宏。
6. 右键单击工作表上的结束计时器按钮，然后单击分配宏。选择 EndTimer 宏。

现在点击启动计时器按钮，您将看到单元格A1中的时间正在更新。要停止时间更新，请单击结束计时器按钮。

代码

Public Declare Function SetTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long, TimerSeconds As Single, tim As Boolean
Dim Counter As Long

'~~> Start Timer
Sub StartTimer()
    '~~ Set the timer for 1 second
    TimerSeconds = 1
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub

'~~> End Timer
Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
    '~~> Update value in Sheet 1
    Sheet1.Range("A1").Value = Time
End Sub

快照