VBA: 如何停止当前VBA程序（尤其是死循环）的运行，用程序停止其他程序，暂停程序等（未完成） |
您所在的位置：网站首页 › 程序停止代码 › VBA: 如何停止当前VBA程序（尤其是死循环）的运行，用程序停止其他程序，暂停程序等（未完成） |
VBA: 如何停止当前VBA程序（尤其是死循环）的运行，用程序停止其他程序，暂停程序等（未完成）
|
问题1：想马上当前运行的程序（尤其是死循环）,改怎么做？ 有时候循环写的有问题写成了死循环，或者电脑很卡，运行太慢想提前中止程序的运行，应该怎么办？ 以下方法： ESCALT +BREAKctrl+alt+delete 进程停止EXCEL，这个会杀掉EXCEL进程。
问题2：用1个程序控制其他程序的运行呢？ 因为VBA是单线程程序，一个过程运行时，无法再开始其他程序。 也就是无法用 SendMessage() 这种做法？虽然一个程序/过程运行中，可以先在过程里写调用其他程序，但也是自动的（事前设计的），无法在运行过程中停止。思路1：把循环过程的判断条件，本身加合适的判断，写合理，尽量避免需要提前停止。思路2：把循环过程的判断条件，本身加合适的判断。然后在循环过程中调用其他程序，但是这个是事前要设计好的，运行过程中也无法停止。（两个过程至少要用公共变量传递数据）思路3（实际不可行）：同样是用公共变量传递数据，但是两个程序独立，一个过程运行时，这时希望一个过程改变公共变量，从而停止另外一个过程的运行。----实际做不到，因为VBA单线程同时只能做一件事。！
跳出过程，基本上都得用到这个吧 exit sub ( /exit for /exit do) If a = 1 Then Exit Sub End If Public x Sub testloop3() x = 0 Do While i = 50 Then Call test3 End If Debug.Print i Loop End Sub Sub test3() x = 1 End Sub
下面的例子是测试，无法再一个程序运行过程中，用另外一个程序去控制打断它的 Public a Sub testloop1() '这个测试完全无法打断testloop1的循环 a = 0 i = 0 time1 = Time Debug.Print time1 Do Until i >= 1000 And a = 0 i = i + 1 If a = 1 Then Exit Sub End If Range("a1").Value = i Debug.Print i Loop time2 = Time - time1 'time time() now() Debug.Print time1 MsgBox ("ok，花费时间" & time2 & "秒") End Sub Sub test2() a = 1 End Sub3 onkey 在主程序里控制？(下面这部分未完成)
4 如何可以点击1个按钮开始运行程序，再点击又关闭？(下面这部分未完成)
暂停程序的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 还是接着运行？ |
【本文地址】
今日新闻 |
推荐新闻 |