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

VBA: 如何停止当前VBA程序(尤其是死循环)的运行,用程序停止其他程序,暂停程序等(未完成)_第1张图片

 

需求详细

  • 没有那种,点一下按钮就运行,在点一下就暂停的功能嘛
  • 你的需求得说细点
  • 点一下,是吧一个SUB跑完,还是中间暂停?
  • 再点是重新跑一个sub  还是接着运行?

你可能感兴趣的:(VBA)