[已解决]求一个能执行停止的VBA代码

sampsonpon

我这里已有一个VBA代码，能在EXCEL里实现自动翻页。想再做个按钮，能随时停止执行它，求各位能给个代码。谢谢！

Private Sub CommandButton1_Click() n = Application.InputBox("重复次数", "请输入重复次数", 1, Type:=1) If n <= 0 Then MsgBox "输入有误" ElseIf n = False Then Exit Sub End If 1: For i = 1 To 328 Start = Timer PauseTime = 1 Do While Timer < Start + PauseTime DoEvents Loop ActiveWindow.SmallScroll Down:=61 Next n1 = n1 + 1 If n1 < n Then Rows("1").Select GoTo 1 End If Rows("1").Select End Sub

最佳答案

月排行榜 / 总排行榜

开辆小富康

2013-7-27 16:15

加一个控制变量啊。在工作表上加一个窗体控件，来控制这个变量。你的程序段判断这个变量

跳转到最佳答案楼层

开辆小富康

加一个控制变量啊。在工作表上加一个窗体控件，来控制这个变量。你的程序段判断这个变量