VBA中错误分支语句on error resume next的应用

1、【实例：计算总分，其中有一门未考，不算总分？】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！

3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

4、会弹出【代码编辑】窗口！

5、在窗口输入一下代码。

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

6、在VBA界面，同时按下CTRL+F11，返回工作表。在工作表界面，点击【开发工具】菜单下的【插入】，选择一【表单按钮】，在空白单元格处，拉出一【按钮】，在同时弹出的【指定宏】窗口，选取编辑的代码，点击【确定】。

7、将按钮，重新命名为【计算】，点击按钮，计算完毕！