VBA-错误分支语句

声明：笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师：曾贤志

---

例子：当错误的时候继续执行下去

           统计学生的总分，若有未考，则不统计总分（如图）

Sub onerrorresume()
Dim i!
On Error Resume Next '该行代码作用是当错误的时候继续执行下去
For i = 2 To 8
    Cells(i,4) = Cells(i,3) + Cells(i,2)
Next i
End Sub

'如果代码中没有 On Error Resume Next 运行时代码倒数第三行会提示“类型不匹配”

'当错误的时候去哪儿？
Sub onerrorgoto()
On Error GoTo 100
For i = 2 To 8
    k =Sheet1.Cells(i,2) * sheet1.Cells(i,3)
Next i
100:
    MsgBox "对不起，错误发生在第【" & i & "】行"
End Sub