在VB6.0中有个timer控件，但是在excel宏中没有此控件，我要想实现在excel宏中每秒执行一次某一事件，应该怎
在Excel中插入一个按钮，然后按Alt+F11，插入一个模块，输入以下代码：
'=========================================================================
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
'=========================================================================
如下图（点击可放大）
