cfnr.net
当前位置:首页 >> vBA强制停止运行 >>

vBA强制停止运行

如果按Esc键无法中止,就只能启动任务管理器结束进程了

运行VBA程序的电脑都比较卡,按一次ESC可能没有反应,最好是一直按住ESC,直到程序中止

强制停止ctrl+break

Sub s() n = MsgBox("是否继续?", vbYesNo) If n = vbNo Then Exit Sub [A8] = "圣诞节"End Sub

首先vba是单线程的,你这个click过程如果是有for循环的话可以在循环中加一个doevents,然后在定义一个公共布尔变量并放在循环里用if判断,如果在新按钮中设置公共变量为true则用exit sub退出click过程

按左上角的ESC,或按BREAK键

直接在msgbox后面使用end语句,比如 if a= 1 then msgbox “错误退出” end end if

on error GOTO A A:msgbox() 在调用的前面on error GOTO A 在SUB结束前面 A:msgbox()‘提示 end'结束程序 end sub ================= 你直接吧A放到你程序的结束地方不就好了

你想多了,按钮1执行期间,一般情况下,按钮2根本就无法按。 即使能按(在按钮1里面不断调用DoEvents),按钮2也无法暂停、终止按钮1的任务,他们是独立的。 一般这样思考解决问题: 按钮2(们)修改一些全局变量的值,按钮1主动的、不断去检测...

'结束时哪个开始的时间点要与前面的相对应。要定义一个模块变量或全局变量,保证时间点相同 dim ss Sub proc() Dim t t = DateDiff("n", startime, Now()) If exam_s Then Sheet4.Range("f2") = t & "分钟" Else Sheet4.Range("f2") = Format(No...

网站首页 | 网站地图
All rights reserved Powered by www.cfnr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com