今日的内容是VBA之EXCEL应用的第八章VBA代码的调试及简单错误的排除。这讲是第二节利用单步运行及断点设置来调试程序（Debugging）。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。

第三节代码的错误处理（Error Handling）方式之一

大家好，我们今日讲解代码在遇到错误时的错误处理方式：On Error Resume Next语句的利用。这讲代码是什么意思呢？

1 On Error Resume Next 的理解

On Error Resume Next语句的动作会在代码运行错误发生时,控制代码转到紧跟在发生错误的语句后面的语句, 并继续执行。

On Error Resume Next导致继续执行紧跟导致运行时错误的语句，或继续执行紧跟包含 On Error Resume Next 语句的过程外部的最新调用的语句。此语句允许继续执行，而不管运行时错误。您可以将错误处理过程置于发生错误的位置，而不是将控制权转移到程序中的其他位置。当调用其他过程时，On Error Resume Next 语句将变为不活动状态，因此，如果需要在该例程中进行错误处理，则应在每个调用的过程中执行 On Error Resume Next 语句。

我们需要注意一点，利用这种处理方式程序在执行过程中要忽略对错误的处理，除非我们确信这种错误是可以忽略的。

2 On Error Resume Next 语句应用场景

我们来看下面的工作表界面：

这个工作表中，在A列有若干不同的值，我们要将B列填入对应同行A列值的平方根。

一般情况下代码做如下的写法：

Sub mynzB() On Error Resume Next 语句应用

Dim myRng, myCell As Range

Sheets("Sheet3").Select

Columns("B").Clear

Set myRng = Range("A1:A" & Range("A1").End(xlDown).Row)

For Each myCell In myRng

myCell.Offset(0, 1).Value = Sqr(myCell.Value)

End Sub

代码截图：

代码的讲解：（略）

代码的运行，当我们点击运行的时候，会出现下面的代码运行错误的提示：

通过之前讲解的测试技术，我们很容易分析到这个错误，如下面的截图，这是因为求平方根的数在某个地方出现了负值，这是Sqr函数的参数值所不允许的，所以出现了错误的提示。

我们通过数据分析得到结论，在A列的数据中，如果出现了负值，可以忽略这个错误，不要计算就可以了，这个时候的代码该如何写呢？

3 On Error Resume Next 语句的应用效果

我们看下面的代码：

Sub mynzB() On Error Resume Next 语句应用

Dim myRng, myCell As Range

Sheets("Sheet3").Select

Columns("B").Clear

Set myRng = Range("A1:A" & Range("A1").End(xlDown).Row)

For Each myCell In myRng

On Error Resume Next

myCell.Offset(0, 1).Value = Sqr(myCell.Value)

End Sub

代码截图：

代码的讲解：在加入了On Error Resume Next语句后，代码将会忽略错误的处理，直接运行在这个语句后面的代码。

我们看代码的运行效果：

此时我们看到第5行和第9行A列出现负值时，在B列没有数值填入，代码是顺利运行的。这就是On Error Resume Next语句的作用。再次强调：我们确信这种错误是可以忽略的。

今日内容回向：

1） On Error Resume Next语句作用是什么？

2） On Error Resume Next语句是如何利用的？

3）利用On Error Resume Next语句要注意什么？

本讲内容参考程序文件：工作簿08.xlsm

分享成果，随喜正能量

VBA的应用及学习方法：

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！

我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。

第一套：VBA代码解决方案是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。

第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。

第三套：VBA数组与字典解决方案数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。

第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。

第七套教程：VBA之EXCEL应用这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。

以上各教程学习顺序：7→1(或者4)→3→2→6→5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。