VBA: 如何停止当前VBA程序（尤其是死循环）的运行，用程序停止其他程序，暂停程序等（未完成）

 

问题1：想马上当前运行的程序（尤其是死循环）,改怎么做？

有时候循环写的有问题写成了死循环，或者电脑很卡，运行太慢想提前中止程序的运行，应该怎么办？

以下方法：

• ESC
• ALT +BREAK
• ctrl+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 <= 100 And x = 0
      i = i + 1
      If 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 Sub

 

3 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  还是接着运行？