VBA定时器，类似timer控件，源码，原创。

平凡之家 · 发表于 2017-5-25 09:53

本帖最后由平凡之家于 2017-5-25 10:01 编辑

以下宏，能在VBA中，实现类似Timer控件的功能，代码如下：

Sub VbaTimer1()
'这里写你自己的代码，现在示例是打印时间
Selection.TypeText Text:=Now
Selection.TypeParagraph

Application.OnTime Now + TimeValue("00:00:05"), "VbaTimer1" '这里设置的为5秒。循环调用自身（递归调用）
End Sub

hbe · 发表于 2017-5-25 10:34

这个容易使系统假死

a2523188267 · 发表于 2017-5-25 11:30

还是安装了Selection的插件的呵呵了

平凡之家 · 发表于 2017-5-25 15:42

我在win7-64，office 2010下调试的，没有假死现象。当然，间隔的时间，必须大于具体代码执行的时间。

没有安装其它的插件，用的都是系统自带的功能。

azw80 · 发表于 2017-5-25 20:29

平凡之家发表于 2017-5-25 15:42
我在win7-64，office 2010下调试的，没有假死现象。当然，间隔的时间，必须大于具体代码执行的时间。

没 ...

有VBA的速成教程吗？

xiaobaoge · 发表于 2017-9-23 16:43

有VBA的速成教程吗？

azw80 · 发表于 2018-3-18 00:10

2007无法使用，该对象不支持该方法

李玉坤 · 发表于 2019-3-11 09:13

6666有用啊

小菜戏大神 · 发表于 2019-4-28 20:56

感觉不是很靠谱捏

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] VBA定时器，类似timer控件，源码，原创。

个人中心