作者：绿色风
分类：
时间：2022-08-18
浏览：89
楼主
DJ_Soo |
Q：调试代码的时候,如何在某一段代码之前中止代码的运行?
A：首先ALT+F11调出VBE→插入模块,输入以下测试代码:- Sub Test_Stop1()
- Dim n As Integer
- n=n+1
- End Sub
如果我想在n=n+1这段代码之前中止代码的运行,并且不用F8单步运行(如果n=n+1代码之前有很长的代码的时候单步执行就太没效率了),有两种常用的方法.
一种是,我鼠标放在此串代码所在行,按F9,这个时候这行代码就会添加红色底色,这样点击F5运行的时候,到此处中止运行.(此方法叫做设置断点,清除所有断点的快捷键为:CTRL+SHIFT+F9)
第二种,可以将代码写成这种:- Sub Test_Stop1()
- Dim n As Integer
- Stop
- n=n+1
- End Sub
运行一次可以看到,只要运行到Stop所在行,代码中止.这个时候再按F8可以继续单步执行.
另外,有条件的中止代码可以用if加stop或者参考此贴:
[VBA] 如何使用Assert方法？ http://www.exceltip.net/thread-8871-1-1.html
|
2楼
zyg365 |
Sub Test_Stop1()
Dim n As Integer
End
n = n + 1
MsgBox n
End Sub
Sub Test_Stop1()
Dim n As Integer
Exit Sub
n = n + 1
MsgBox n
End Sub
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一