每隔几秒后就自动执行宏的问题

zq6688

0O3hN6Q8.rar (6.4 KB, 下载次数: 429)

2007-12-1 19:48 上传

点击文件名下载附件
每隔几秒后就自动执行宏的问题

yuanzhuping

Sub 加数()
    If Sheets(1).Range("A1") < 100 Then
        Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
    Else
        Sheets(1).Range("A1") = 1
    End If
End Sub

maditate

请参考定时器

http://club.excelhome.net/viewthread.php?tid=240243&replyID=&skin=0

yuanzhuping

每隔5秒就自动执行该宏

Sub 加数()
    If Sheets(1).Range("A1") < 100 Then
        Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
    Else
        Sheets(1).Range("A1") = 1
    End If
    Call OnTime
End Sub
Sub OnTime()
    Application.OnTime Now + TimeValue("00:00:05"), "加数"
End Sub

[此贴子已经被作者于2007-12-1 19:55:41编辑过]

zq6688

多谢版主，非常好，还有一个问题请教，就是如何停止执行这个宏呢？

zq6688

QUOTE:

以下是引用yuanzhuping在2007-12-1 19:54:43的发言：

每隔5秒就自动执行该宏

Sub 加数()
    If Sheets(1).Range("A1") < 100 Then
        Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
    Else
        Sheets(1).Range("A1") = 1
    End If
    Call OnTime
End Sub
Sub OnTime()
    Application.OnTime Now + TimeValue("00:00:05"), "加数"
End Sub

请yuanzhuping版主指教，上面的代码执行后，用什么代码可以停止执行该代码？

yc421206

DEAR zq6688
使用ontime必須要在關閉活拽簿之前停用，否則它會一直執行。附件裡有小弟寫的範例，請參閱。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DisRunTimer
End Sub

Sub DisRunTimer()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:05"), "加數", , False '停用OnTime
    Sheets(1).Range("A1").Value = ""
    i = 0
End Sub

 

o6YnzgeQ.zip (11.62 KB, 下载次数: 125)

2007-12-1 22:41 上传

点击文件名下载附件
每隔几秒后就自动执行宏的问题

yuanzhuping

其实只要这样就行了

Sub OnTime() '开始
    If Sheets(1).Range("A1") < 100 Then
        Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
    Else
        Sheets(1).Range("A1") = 1
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime"
End Sub
Sub dalTime() '结束
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime", , False
End Sub

然后分别Call这两个宏。

zq6688

QUOTE:

以下是引用yuanzhuping在2007-12-1 23:04:52的发言：

其实只要这样就行了

Sub OnTime() '开始
    If Sheets(1).Range("A1") < 100 Then
        Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
    Else
        Sheets(1).Range("A1") = 1
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime"
End Sub
Sub dalTime() '结束
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime", , False
End Sub

然后分别Call这两个宏。

Sub dalTime() '结束
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime", , False
End Sub

在两个按钮之间交替按上几次，有时上面红色部分会出现运行时错误‘1004’：方法'OnTime'作用于对象'-Application‘时失败，不知是什么原因？

hbkeguojin

QUOTE:

以下是引用zq6688在2007-12-1 23:54:35的发言：

Sub dalTime() '结束
    Application.OnTime Now + TimeValue("00:00:01"), "OnTime", , False
End Sub

在两个按钮之间交替按上几次，有时上面红色部分会出现运行时错误‘1004’：方法'OnTime'作用于对象'-Application‘时失败，不知是什么原因？

这是我做的，第一次在“复原”按钮上连击两下，就可以停止宏运行。你试试。 qx8UaBdq.rar (8.09 KB, 下载次数: 309)

2007-12-2 00:21 上传

点击文件名下载附件
每隔几秒后就自动执行宏的问题