请VBA大师帮忙给VBA自动循环添加一个停止代码

admintby · 发表于 2023-5-4 19:21

小妹刚学习VBA,写了一个表格循环翻页，但是不可以停止，寻个VBA大师帮忙给VBA自动循环添加一个停止代码，小妹万分感谢

自动循环翻页.zip (17.02 KB, 下载次数: 13)

admintby · 发表于 2023-5-4 19:36

完了，咋没有人呐

liulang0808 · 发表于 2023-5-4 22:00

看看ontime的用法是否可行
https://club.excelhome.net/blog-238368-1680.html

mmwwdd · 发表于 2023-5-5 03:15

mmwwdd · 发表于 2023-5-5 03:16

你试一下吧，但这个有什么用？这种方法应该避免

xunanming · 发表于 2023-5-5 04:30

请参考.............................

niko88819 · 发表于 2023-5-5 09:12

xunanming 发表于 2023-5-5 04:30
请参考.............................

老师,您附件下后打开代码遗失成空空了

xunanming · 发表于 2023-5-5 12:15

niko88819 发表于 2023-5-5 09:12
老师,您附件下后打开代码遗失成空空了

什么情况,我下载打开后是正常的?你的打开时有什么异常提示吗???如果还是异常,复制下面的代码.

Dim newtime
Sub AutoPageTurn()
Static i As Integer

newtime = Now + TimeValue("0:00:03")
i = i + 1
Sheets(i).Activate
If i = Sheets.Count Then
i = 0
End If
Application.OnTime newtime, "AutoPageTurn", , True
End Sub

Sub StopPageTurn()
Application.OnTime newtime, "AutoPageTurn", , False
End Sub

admintby · 发表于 2023-5-6 09:26

xunanming 发表于 2023-5-5 04:30
请参考.............................

老师您这个代码非常完美，感谢靓女老师

admintby · 发表于 2023-5-6 09:27

本帖最后由 admintby 于 2023-5-6 09:29 编辑

mmwwdd 发表于 2023-5-5 03:16
你试一下吧，但这个有什么用？这种方法应该避免

非常感谢老师您的回复，您的代码点击了开始鼠标就一直转圈圈，6楼的老师方法就不会，

		自动登录	找回密码
密码			免费注册

请VBA大师帮忙给VBA自动循环添加一个停止代码

评分

评分