Excel VBA ----之错误语句处理

1、一、实现功能要求：求总分。

1、在Excel界面中，初始数据如下：

2、进入VBE界面中，编写如下代码：

Sub OnErrorResume()

Dim i%

For i = 2 To 6:

Sheet4.Range("d" & i) = Sheet4.Range("b" & i) + Sheet4.Range("c" & i)

Next

End Sub

3、运行代码，则报一下错误；错误原因为：包含字符串类型；

3、接下来，将对此错误进行处理；

4、修改代码为：

Sub OnErrorResume()

Dim i%

On Error Resume Next   '错误时则恢复；

For i = 2 To 6:

Sheet4.Range("d" & i) = Sheet4.Range("b" & i) + Sheet4.Range("c" & i)

Next

End Sub

4、点击插入--形状，选择一个形状；

6、选择形状，右键指定宏，选择刚刚定义的宏OnErrorResume；

5、运行宏；则在有字符串的行中，将不执行，继续执行后面的语句；

6、当出现某个错误时，直接输出错误位置；

Sub onErrorGoTo88()

Dim i%

On Error GoTo 100       '出现错误时，执行某段语句；

For i = 2 To 6:

Sheet1.Range("d" & i) = Sheet1.Range("b" & i) + Sheet1.Range("c" & i)

Nexti

Exit Sub

100:

    MsgBox ("´íÎó³öÏÖÔÚ" & i & "ÐÐ")

    Return

End Sub

7、综上所述，本文提供两种方法：

1、On Error Resume Next:忽略错误；

2、On Error GoTo line:错误时跳转到其他执行语句；

来对错误语句进行处理。