Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定定时执行模块

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

这个问题可能很多人都有问过或者想过 , 因为当你能够使你的程序能够自动定时执行 , 哦 ~ 多么的帅气哦 ~ 哈哈哈哈 ~ 对吗 ~ 哈哈哈哈 ~

好 ~ 要做到这样的效果 , 我们先要准备一点东西 , 否则你很难想象得到 , 这个实验的结果会是怎样的 .

首先 , 开一个新的 EXCEL 档出来 , 打开 VBA 编程工具 , 替你的档案增加一个模块 , 模块内加入一点程序代码 :

==================

Sub abcd()

MsgBox ("abcd")

End Sub

==================

然后 , 回到你的 EXCEL 檔的 SHEET 1 页面 , 加上一个按照 , 双击 ( 国内好像用这个字眼吧 ~ )

再一次来到 VBA 编程画面 , 你看到的应该是这样的 :

==================

Private Sub CommandButton1_Click()

End Sub

==================

现在加入下面的程序代码 :

==================

Application.OnTime Now + TimeValue("00:00:15"), "Module1.abcd"

==================

这句程序代码的意思是 , 当你按下刚才设定的按钮之后 15 秒 , 就执行模块 “ MODULE 1 ” 内的 “ ABCD ” 这个东西 . 程序代码中的 ("00:00:15") 分别代表了时分秒 ~ 就是这样简单 ~ 呵呵呵 ~

:
:
:

稍等一下 ~~~~~~ 呵呵呵呵 ~~

这个只是其中一个方法呢 ~ 还有第二种 ~ 哈哈 ~

第二种方法是 :

==================

Application.OnTime TimeValue("20:00:00"), "Module1.abcd"

==================

这句程序代码可能你会觉得跟之前提到的一样 , 不过我要告诉你 , 其实是不同的 , 因为第一个方法是 “ 现在开始的什么什么时分秒之后执行 ” , 而这个方法是 “ 当系统时间跟设定的一样就执行 ” , 所以 , 程序代码当中 , 第一个方法是有 NOW 而第二个方法是没有的 .

要特别注意一件事 , 第二个方法中所指的系统时间 , 是指你的窗口主画面右下角的时钟时间 , 只要跟程序代码中的一样才会执行 ~ 记得要注意哦 ~ 这个时间不是你手表的时间哦 ~ 是计算机的那个 !!