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

时间:2024-10-25 22:27:17

1、一、实现功能要求:求总分。1、在Excel界面中,初始数据如下:

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

2、进入VBE界面中,编写如下代码:Sub OnErrorResume()Dim i%For i = 2 To 6:Sheet4.Range("d" & i) = Sheet4.Range("b" & i) + Sheet4.Range("c" & i)NextEnd Sub3、运行代码,则报一下错误;错误原因为:包含字符串类型;

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

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)NextEnd Sub

4、点击插入--形状,选择一个形状;6、选择形状,右键指定宏,选择刚刚定义的宏OnErrorResume;

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

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

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

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)NextiExit Sub100: MsgBox ("´íÎó³öÏÖÔÚ" & i & "ÐÐ") ReturnEnd Sub

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

7、综上所述,本文提供两种方法:1、On Error Resume Next:忽略错误;2、On Error GoTo line:错误时跳转到其他执行语句;来对错误语句进行处理。

© 手抄报圈