暂停程序的3个思路
- 暂停 application.wait(now + timevalue("00:00:03")) 和 application.ontime(now + timevalue("00:00:03"))
- sleep 500
- 加入断点，然后点F5运行一下不就暂停了吗？
- stop 不行，程序运行时被挂起了
- 运行的时候程序是挂起的吧，只能加暂停的代码 才能让你玩
- do event
Do Until b = True
DoEvents
Loop
Private Sub CommandButton1_Click()
b = False
UserForm1.Show 0
Do Until b = True
DoEvents
Loop
MsgBox [a1] & [a2] & [a3] & Chr(10) & "Done!"
End Sub
Private Sub CommandButton2_Click()
[b1:b100] = "123abc"
End Sub
需求详细
- 没有那种，点一下按钮就运行，在点一下就暂停的功能嘛
- 你的需求得说细点
- 点一下，是吧一个SUB跑完，还是中间暂停？
- 再点是重新跑一个sub 还是接着运行？
