问题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 还是接着运行?