返回目录：excel表格制作
在一个 Timer 控件的copy预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。
语法
Private Sub object_Timer([index As Integer])
Timer 事件语法包括下百列部分：
部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，用来唯一地标识一个在控件数组中的控件。
说明
使用 Timer 事件时，可用此事件在每次 Timer 控件时间间隔过去之后通知 Visual Basic 应该做什么：
Interval 属性以千分之一秒为单位指定 Timer 事件之度间的间隔。
控件工具箱中一个怀表状的图标，双击它，窗体上就会出现。
注：要改变它的属性值才能使用！
在Excel中插入一个按钮，然后按Alt+F11，插入一个模块，输入以e68a847a686964616f334下代码：
'=========================================================================
Option Explicit
Public k As Boolean
Sub aa()
Sheets("Sheet1").[a65536].End(xlUp).Offset((Len([A1]) = 0) + 1) = 100
End Sub
Sub OntimeRun()
If k = False Then
Exit Sub
Else
Call aa
Application.OnTime Now() + TimeValue("00:00:03"), "OntimeRun"
End If
VBA.DoEvents
End Sub
'=========================================================================
如下图（点击可放大）
然后双击Sheet1，输入以下代码：
'=========================================================================
Option Explicit
Private Sub CommandButton1_Click()
If k = False Then
k = True
CommandButton1.Caption = "点击取消定时"
Call OntimeRun
Else
k = False
CommandButton1.Caption = "点击定时执行"
End If
End Sub
'=========================================================================
如下图（点击可放大）
网上下来载后，调源用 。可进百入 http://club.excelhome.net/ （EXCEL VBA程序度开发论坛）查知找、道下载