在此链接中,我使用的是Siddharth Rout提供的运行时钟代码:
How do I show a running clock in Excel?
时钟正常工作,但是我注意到,时钟运行时鼠标悬停在我身上的任何注释都会随着时钟的每一个滴答声“闪烁”,从而难以阅读。甚至将TimerProc函数重写为以下内容(添加Application.ScreenUpdating和Application.DisplayAlerts行):
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
'~~> Update value in Sheet 1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheet1.Range("A1").Value = Time
End Sub
既不会阻止时钟更新,也不会阻止注释闪烁。有什么方法可以让时钟实时更新,但又可以防止注释闪烁?这是使用Excel 2010。