实例：VBA中的错误分支语句 On Error Resume Next 的应用
在这篇文章中，我们将通过一个实例来分享一下VBA中错误分支语句 "On Error Resume Next" 的应用。
计算总分，其中有一门未考，不计入总分的实例
假设我们有一个包含多门课程成绩的表格，并且其中有一门课程的成绩还未录入。我们希望在计算总分时，不将未考的课程计入总分。
首先，在工作表中，点击菜单栏的【开发工具】，然后在工具栏里点击【Visual Basic】，进入VBA界面。
在VBA界面中，点击菜单栏的【插入】，然后在下拉菜单中选择【模块】，这样会弹出一个【代码编辑】窗口。
在代码编辑窗口中，输入以下代码：
```
Sub onerrorresumenext()
Dim rs As Integer
On Error Resume Next
For rs 2 To 10
With Sheet9
.Cells(rs, 4) .Cells(rs, 2)
.Cells(rs, 3)
End With
Next
End Sub
```
接着，在VBA界面中同时按下CTRL F11键，返回到工作表界面。在工作表界面中，点击【开发工具】菜单下的【插入】，然后选择一个【表单按钮】。在空白单元格处拉出一个按钮，并在弹出的【指定宏】窗口中选取刚才编辑的代码，点击【确定】。
将按钮重新命名为【计算】，然后点击该按钮，即可进行计算。此时，未考的课程成绩不会被计入总分。
通过以上实例，我们可以看到，在VBA中使用错误分支语句 "On Error Resume Next" 可以很方便地处理异常情况，使得程序能够继续执行。这对于处理大量数据或复杂逻辑的程序非常有用。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
