VBA 中断程序

具体有下逗数面两种握指历用法：

On Error Resume Next：当出错时跳到下一行继续运行段搜。

On Error Goto Line：出错时跳到行号Line。这里行号Line可以为数字(不为0和-1)，也可以为字符串。

其它与之相关的还有：

On Error Goto 0：运行后，对错误的捕获被关闭。程序出错时将自动中止。

On Error Goto -1：运行后，「Resume」和「Resume Next」将失效。

Resume：跳回并重新运行出错的行

Resume Next：跳回并运行出错位置的下一行。

选项中可选强制发生错误时中断程序：

在VBA编辑器的 工具 - 选项 - 通用 - 错误捕获 选项里，可以强制在程序发生错误时中断程序。这在调试程序时非常有用。

首先你的顷察代码应该写在雀闹茄模块里（同时按alt和f11进入vba界面，点菜单的插入，模块，写入代码）。

然后将文件另存为“excel可启用宏的工作簿”（在另存为里的第2个选项）。记住文件路径，关闭该文件。

新弯宏开excel，点最左上角的“花”，右下的“excel选项”，左边的“加载项”，右边正下方的“go..."（不会翻译，在excel加载项下拉框的右边），浏览，找到那个文件，确定。

这样，以后打开excel时，该文件隐藏打开中，宏可以使用了。

利用禁用屏幕刷新即可，即在程序开头加上一句代码：差悉Application.ScreenUpdating=False程序结尾前加上Application.ScreenUpdating=True关于此例中用到的ScreenUpdating属性的相关知识：如虚腊乎果屏幕更新功能是打开的，则该值为True。Boolean类型，可读写。说明：关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。当宏结束运行后，请记住将ScreenUpdating属性设回到True。 *** 作说明：当为True时，局茄屏幕上会显示每个单元格数值的变化情况；当为False时，屏幕上只会等运算完成后，才显示结果。

---