网站 › 『编程语言区』 › VBA定时器，类似timer控件，源码，原创。

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

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

本帖最后由 平凡之家 于 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

感觉不是很靠谱捏

查看完整版本: VBA定时器，类似timer控件，源码，原创。