声明:笔记来源于我要自学网-《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