一个支持编辑状态下的计时器

嘘世

http://club.excelhome.net/forum.php?mod=viewthread&tid=629386
该贴的计时器很强大，与OnTime的区别在于前者可以实现毫秒级，而OnTime只能实现秒级
两者的共同缺点是当处在编辑状态下时，计时器是不工作的（例：双击一个单元格，即输入状态，则计时器就暂停不工作，需要等待编辑完成后计时器才会继续工作），这就出现一个时间断档
比如我用OnTime递归实现一个简单的时钟
Dim StopMe As Boolean
Private Sub CommandButton1_Click()
StopMe = False
Application.Run ("Sheet1.OnTim")
End Sub
Sub OnTim()
DoEvents
If StopMe = True Then Exit Sub
[a1] = TimeValue(Format([a1], "hh:mm:ss")) + TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "Sheet1.OnTim"
End Sub

Private Sub CommandButton2_Click()
StopMe = True
End Sub

各位EH的朋友有没有什么点子克服这个缺点  

嘘世

等待高人{:soso_e101:}

嘘世

分析原因：因为单元格为编辑状态下是不能运行宏的，所以当OnTime执行完进入编辑状态前的任务后，就必须等编辑状态消除才能继续执行,VBA的瓶颈！

大灰狼1976

如果时间显示在窗体上就没有这个问题，你可以试试我的附件。
当然，我没有用ontime，核心代码很简单，但是我加上了一些杂七杂八的功能，所以代码有点多

嘘世

大灰狼1976 发表于 2013-12-10 19:04
如果时间显示在窗体上就没有这个问题，你可以试试我的附件。
当然，我没有用ontime，核心代码很简单，但是 ...

恩，你这个想法跟我上面没什么区别，没解决实际问题，窗体能正常显示时间也意味着在窗体显示期间用户是不能操作单元格的，我的出发点是想既可以操作单元格也不影响动态时钟。。。

嘘世

大灰狼1976 发表于 2013-12-10 19:04
如果时间显示在窗体上就没有这个问题，你可以试试我的附件。
当然，我没有用ontime，核心代码很简单，但是 ...

恩，你这个想法跟我上面没什么区别，没解决实际问题，窗体能正常显示时间也意味着在窗体显示期间用户是不能操作单元格的，我的出发点是想既可以操作单元格也不影响动态时钟。。。

大灰狼1976

你怎么会有这种想法，窗体打开时不能操作单元格，你有没有试过我的附件？
还说什么VBA的瓶颈，我一般不太喜欢两种人，一种钻牛角尖，另外一种就是无依据乱下定论的人。
呵呵

嘘世

大灰狼1976 发表于 2013-12-11 13:48
你怎么会有这种想法，窗体打开时不能操作单元格，你有没有试过我的附件？
还说什么VBA的瓶颈，我一般不太喜 ...

误会了 ，我不是那种人，你这文件解压出来是带乱码的，请看图，而且要点两下按钮才显示窗体，刚开始我只点了一下按钮上的字我不懂了，窗体也没显示，不晓得要点第二下才显示额， 所以也就没深究下去了，请不要介怀哈。我刚试过了，可以实现，我代码还没细看，一会研究下，非常感谢！

大灰狼1976

可能是因为版本关系，我的操作系统是日文版的，OFFICE也是日文版的，所以会有乱码出现，我也忘记这一点了，非常抱歉！

flourG

大灰狼1976 发表于 2013-12-12 12:49
可能是因为版本关系，我的操作系统是日文版的，OFFICE也是日文版的，所以会有乱码出现，我也忘记这一点了， ...

想请问下大佬，如何点击了“停止计时”计时窗体不关闭呢