每隔几秒后就自动执行宏的问题

laola1000 · 发表于 2007-12-2 03:04

给你个自定义函数吧。

它的好处在于可以精确到0.1秒；

可以避免OnTime Now 带来令人烦恼的闪屏；

与OnTime Now一样可以利用Call组成无限制循环语句；

Private Function OnTime(myTime As Integer)

Dim Start As Integer

Start = Timer

Do While Timer < Start + myTime

DoEvents.

Loop

End Function

zq6688 · 发表于 2007-12-2 09:48

非常感谢各位大侠，问题已经解决。

鄂龙蒙 · 发表于 2014-3-17 19:27

maditate 发表于 2007-12-1 19:53
请参考定时器http://club.excelhome.net/viewthread.php?tid=240243&replyID=&skin=0

请教老师，帮忙解决增加随时中止代码运行的代码及修改实现打字幕时同时进行朗读的代码问题。
http://club.excelhome.net/thread-1103910-1-1.html
谢谢！

		自动登录	找回密码
密码			免费注册