我在EXCEL中写的公式=NOW(),我想看着它让它一秒一秒的变化,如何能实现?
TO: qianniansiren
这样是可以看到秒数不断更新效果,但是整个EXCEL表都无法编辑了,可否解决此问题??
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2016-02-25
按Alt+F11,双击Thisworkbook,将以下代码粘进去
Private Sub Workbook_Open()
myclock
End Sub
Sub myclock()
Range("A1").Value = Time
Application.Wait (Now() + TimeSerial(0, 0, 1))
myclock
End Sub
然后保存,关闭该excel文件后重新打开即可本回答被提问者采纳
Private Sub Workbook_Open()
myclock
End Sub
Sub myclock()
Range("A1").Value = Time
Application.Wait (Now() + TimeSerial(0, 0, 1))
myclock
End Sub
然后保存,关闭该excel文件后重新打开即可本回答被提问者采纳
第2个回答 2015-10-26
经研究EXCEL无时间触发的事件驱动,故正常情况下是无法完成的。除非,在打开该工作表时,立即触发一个事件,在这个事件驱动程序中做一个循环,定期进行计算更新。但是这样的话,会导致一个死循环。该程序无法停止。除非是强制中断。
第3个回答 2009-08-13
你这是要实现时钟功能啊,编个宏,输入代码
Sub 秒表()
Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.秒表", , True
End Sub
Sub 秒表()
Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.秒表", , True
End Sub
第4个回答 2009-08-13
网上DOWN一个FLASH时钟,插入到EXCEL工作表中!