题记：春节期间，情况特殊，希望大家尽可能待在家里，静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。适当节制自我的各种欲望,谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋，把生活与工作打理好，不负年华。
今日内容是和大家分享VBA编程中常用的 “积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。今日分享的是NO.203-NO.203，内容是：
NO. 203：在VBA代码中使用工作表函数与不使用工作表函数的时间比较
VBA过程代码203：在VBA代码中使用工作表函数与不使用工作表函数的时间比较
Sub mynz ()
  Dim i
  Dim t As Date
  Dim t1 As String
  Dim t2 As String
   Range("B1:B4").ClearContents
   Application.ScreenUpdating = False
   t = Timer
   For i = 1 To 60000
     Sheets("86").Cells(1, 2) = Sheets("86").Cells(1, 2) + Sheets("86").Cells(i, 1)
   Next
   t1 = Timer - t
   t = Timer
   Sheets("86").Cells(2, 2) = Application.WorksheetFunction.Sum(Sheets("86").Range("A1:A60000"))
   t2 = Timer - t
   Application.ScreenUpdating = True      
    Sheets("86").Cells(3, 2) = Format(t1, "0.00000")
    Sheets("86").Cells(4, 2) = Format(t2, "0.00000")    
   MsgBox "第一次运行时间:" & Format(t1, "0.00000") & "秒" _
           & Chr(13) & "第二次运行时间:" & Format(t2, "0.00000") & "秒"
  End Sub
代码解析：Mynz过程分别使用VBA代码和调用工作表Sum函数对单元格区域进行求和计算，最后使用消息显示运行时间。运行Mynz过程，消息框显示两种方法的运行时间，可以看出调用工作表函数进行计算的运行时间要远远小于使用累加方法运行的时间。
VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA学习教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是一块“积木”，可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。
第一套：“VBA代码解决方案”是PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；
第二套：“VBA数据库解决方案”是PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
第三套：“VBA数组与字典解决方案”是PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。
第四套：“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，精进VBA”，越早参与，回馈越多。现在录制到第三册的124讲,以上各教程的代码都是经过实测，可以拿来即用。
春节期间，情况特殊，大家尽可能待在家里，多学习有用的知识，多提高自己。

大家好，本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九，但之九的内容是错误的处理，为了大家能更好的掌握之九二师兄的成才内容，我们临时加入一讲专门讲解VBA中错误处理，这一讲中我重点讲一下VBA代码中的错误处理语句。对于VBA中的错误处理语句，最主要的是4个语句。
①  On Error GoTo line
②  On Error Resume Next
③  Resume line（NEXT）
④  On Error GoTo 0
一   一般的VBA错误处理语句
为了说明上面的几个语句，我们简单的写几行代码，如下：
Sub mynz_37()
 On Error GoTo ErrHandler
 k = 1 / 0
ExitProcedure:
    On Error Resume Next
    k = 1 / 0 + 1
    MsgBox k
Exit Sub
ErrHandler:
    MsgBox "错误代码: " & Err.Number & vbCrLf & _
           "错误描述: " & Err.Description & vbCrLf & _
           "错误来源: " & Err.Source, vbCritical
    Resume ExitProcedure
End Sub
代码截图：
代码解析：
1  上述mynz过程在开始利用了On Error GoTo ErrHandler语句，代表在执行代码中发现了运行错误，就转跳到“ErrHandler”行后的语句，
2 “ErrHandler”是代表行的位置。
3  ErrHandler后的代码首先利用了MsgBox向你说明错误编号，错误描述，错误来源；
4  接下来执行Resume ExitProcedure，这句代码的意思翻译过来就是说：好了，错误处理已经结束，可以继续执行从ExitProcedure行开始执行代码了。
5  随后代码转跳到ExitProcedure行接着往下执行：
6  这个地方仍有一行错误处理语句：On Error Resume Next 它的含义是如果发现错误，直接忽略，往下执行（Next）。直到Exit Sub。
二   关于错误处理代码，除了刚刚介绍的那些意外，还有一个也很重要的代码
On Error GoTo 0
这句代码的意义是：使用这条语句后，后面的程序一旦有错误发生就会提示错误，并结束脚本执行，禁止当前过程中任何已启动的错误处理程序。我们来看下面的小测试代码：
Sub mynz_37_1()
    x = 1
    y = 0
    On Error GoTo ErrHandler
    MsgBox x / y
    On Error GoTo 0
    MsgBox x / y
    MsgBox " 继续执行错误代码行的下一行代码 "
    Exit Sub
ErrHandler:
    MsgBox "除数不能为 0"
    Resume Next
End Sub
代码截图： 
代码解析：在上面的代码中，由于及时使用了 On Error Goto 0 语句，因此，在第 2 次错误发生时（即第 2 个 x/y ），系统将显示内置错误消息，而不是运行ErrHandler标签处的代码。我们看代码的运行结果：
总结:
 1  在上述过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ，其中的“ ErrHandler ”为自定义的错误标签名称。
　2  在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。
　3  在过程的末尾（正常程序的末尾）添加代码行 Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit Sub 的下一行添加一个错误标签，该标签由名称和冒号组成，例如“ErrHandler: ”在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行，可以使用 Resume Next 语句。
　4可以在过程的末尾添加多个错误处理程序，但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束，这样可以避免从当前错误程序之后继续执行其后的错误处理程序。
好了，有了上面的错误处理语句的基础，我们下一讲继续二师兄的成长系列之九，类代码中的错误处理方式。
今日内容回向：
1  一般的错误处理有几种语句？各是什么含义？
2  屏蔽掉错误处理语句是那一条语句？
在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。
“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，有一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。
VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程。
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三套：VBA数组与字典解决方案   数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。
学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。
最后将一阙词送给致力于VBA学习的朋友：
浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。
望星，疏移北斗，奈将往事雁同行。
阡陌人，昏灯明暗，忍顾长亭。
多少VBA人，暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享成果，随喜正能量

	

你已选中了添加链接的内容蓝字关注，加微信NZ9668获资料信息
 VBA解决方案   系列丛书作者 
头条百家平台 VBA资深创作者
_______________________________
大家好，本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九，但之九的内容是错误的处理，为了大家能更好的掌握之九二师兄的成才内容，我们临时加入一讲专门讲解VBA中错误处理，这一讲中我重点讲一下VBA代码中的错误处理语句。对于VBA中的错误处理语句，最主要的是4个语句。①  On Error GoTo line②  On Error Resume Next③  Resume line(NEXT)④  On Error GoTo 0 一   一般的VBA错误处理语句 为了说明上面的几个语句，我们简单的写几行代码，如下： Sub mynz_37() On Error GoTo ErrHandler k = 1 / 0ExitProcedure:    On Error Resume Next    k = 1 / 0 + 1    MsgBox kExit SubErrHandler:    MsgBox "错误代码: "& Err.Number & vbCrLf & _           "错误描述: "& Err.Description & vbCrLf & _           "错误来源: "& Err.Source, vbCritical    Resume ExitProcedureEnd Sub代码截图：代码解析：1  上述mynz过程在开始利用了OnError GoTo ErrHandler语句，代表在执行代码中发现了运行错误，就转跳到“ErrHandler”行后的语句，    2 “ErrHandler”是代表行的位置。  3   ErrHandler后的代码首先利用了MsgBox向你说明错误编号，错误描述，错误来源；4  接下来执行ResumeExitProcedure，这句代码的意思翻译过来就是说：好了，错误处理已经结束，可以继续执行从ExitProcedure行开始执行代码了。     5  随后代码转跳到ExitProcedure行接着往下执行：6  这个地方仍有一行错误处理语句：On Error Resume Next 它的含义是如果发现错误，直接忽略，往下执行(Next)。直到Exit Sub。 二   关于错误处理代码，除了刚刚介绍的那些意外，还有一个也很重要的代码 On Error GoTo 0 这句代码的意义是：使用这条语句后，后面的程序一旦有错误发生就会提示错误，并结束脚本执行，禁止当前过程中任何已启动的错误处理程序。我们来看下面的小测试代码：Sub mynz_37_1()    x = 1    y = 0    On Error GoTo ErrHandler    MsgBox x / y    On Error GoTo 0    MsgBox x / y    MsgBox " 继续执行错误代码行的下一行代码 "    Exit SubErrHandler:    MsgBox "除数不能为 0"    Resume NextEnd Sub代码截图： 代码解析：在上面的代码中，由于及时使用了 On Error Goto 0 语句，因此，在第 2 次错误发生时(即第 2 个 x/y )，系统将显示内置错误消息，而不是运行ErrHandler标签处的代码。我们看代码的运行结果：总结: 1  在上述过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ，其中的“ ErrHandler ”为自定义的错误标签名称。2  在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。3  在过程的末尾(正常程序的末尾)添加代码行Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit Sub 的下一行添加一个错误标签，该标签由名称和冒号组成，例如“ErrHandler: ”在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行，可以使用 Resume Next 语句。4可以在过程的末尾添加多个错误处理程序，但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束，这样可以避免从当前错误程序之后继续执行其后的错误处理程序。 好了，有了上面的错误处理语句的基础，我们下一讲继续二师兄的成长系列之九，类代码中的错误处理方式。今日内容回向：1  一般的错误处理有几种语句？各是什么含义？2  屏蔽掉错误处理语句是那一条语句？在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，有一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程。第一套：VBA代码解决方案是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。第三套：VBA数组与字典解决方案   数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。最后将一阙词送给致力于VBA学习的朋友：浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。望星，疏移北斗，奈将往事雁同行。阡陌人，昏灯明暗，忍顾长亭。多少VBA人，暗夜中，悄声寻梦，盼却天明。怎无凭！  分享成果，随喜正能量
_____________________________ 
有启发 点在看，转给朋友 约作者 请留言，直接交流
更多关联阅读

有一次交流群一位朋友问我，为什么我的代码运行了20分钟还没运行完？！怎么优化代码？
我首先问了下数据量，也就几千行，但是一运行就是卡着不动了。最后我检查了代码之后，发现他里面写了个死循环。并不是程序运行的慢，而是程序卡主了。
他静静的等待了20多分钟，最后强退了。
一般程序超过两三分钟没响应，就要检查下代码了，极有可能是死循环。这个时候需要优化代码，或者直接使用更高级的武器--数组。
也有朋友说数组太抽象，还没有学数组，那该如何优化代码速度呢？
下面我就列举几个优化代码速度的常用方法，也是几个VBA编程的好习惯。
方法❶：少用Select和Activate
刚开始学VBA，很多都是录制宏得到的语句， VBA 程序里满屏幕的对象的激活和选择。
例如：
Workbooks("案例工作簿").Activate、WorkSheets("案例").Select、Range("A1").Select
这就好比明明打电话一句话就能解决的事，非要先跑过去，见了本人当面说。
事实上大多数情况下这些激活操作不是必需的。例如：
WorkSheets(″案例″).SelectRange(″A1″).SelectRange(″A1″).Value= "VBA说"
完全可以简化成一句
WorkSheets(″案例″).Range("A1").Value="VBA说"
当然，.Value这个默认属性也可以省略。
WorkSheets(″案例″).Range("A1")="VBA说"
这么一番简化之后，不仅代码更简洁，运行速度也会提高。
➜关键的关键
对隐藏的工作表使用select方法的时候，会报错。所以我们读取数据、写入数据尽量避免使用Select。
方法❷：尽量减少使用对象的引用
每一个 Excel 对象的属性、方法的调用都需要通过 OLE 接口的一个或多个调用，这些OLE 调用都是需要时间的，减少使用对象引用能加快 VBA 代码的运行。
说这么官方你一定听不懂。直接拿例子来说一下：
ThisWorkbook.Worksheets("案例").Range ("a1")="VBA说"
一定没有Range ("a1")="VBA说"效率高，尤其放在循环内部的时候。
那我们怎么解决这个问题，减少对象的引用次数呢？
➜使用With...EndWith结构简化
既能精简代码又能一定程度加快速度。
Sub 不使用With结构()    Dim tim1 As Date, tim2 As Date: tim1 = Timer    For i = 1 To 10000        Workbooks(1).Sheets(1).Range("A" & i).Value = "欢迎关注VBA说"        Workbooks(1).Sheets(1).Range("B" & i).Value = "ID：todayvba"    Next     tim2 = Timer    MsgBox Format(tim2 - tim1, "程序执行时间为：0.00秒"), 64, "时间统计"End Sub
Sub 使用With结构()  Dim tim1 As Date, tim2 As Date: tim1 = Timer  With Workbooks(1).Sheets(1)    For i = 1 To 10000       .Range("A" & i).Value = "欢迎关注VBA说"         .Range("B" & i).Value = "ID：todayvba"   Next   End With  tim2 = Timer  MsgBox Format(tim2 - tim1, "程序执行时间为：0.00秒"), 64, "时间统计"End Sub
➜使用对象变量
如果一个对象引用被多次使用，则你可以将此对象存储到对象变量中，代码直接从内存中读取对象变量的信息，以减少对对象的访问。
ThisWorkbook.Worksheets("案例").Range ("a1")="VBA说"
可简化为：
set sht = ThisWorkbook.Worksheets("案例")sht.Range ("a1")="VBA说"
方法❸：关闭屏幕刷新
VBA代码在运行过程中，不断更单元格中的值。如果不关闭刷新，每更新一次，屏幕就会自动刷新为最新结果。
不过有的人就喜欢把屏幕刷新打开，他感觉点按钮运行代码，屏幕不断闪动，更能体现出来自动化的乐趣。
对于这种朋友，我送给他两个字。
关闭开启屏幕刷新的语句如下，注意不要弄反了，先关闭在再开启。
Application.ScreenUpdate = False
请不要忘记 VBA 程序运行结束时再将该值设回来：
Application.ScreenUpdate = True
➜小技巧
这两句代码记不下来不用背，当出现你想输入的语句之后，直接【按空格】或者【鼠标点击】直接输入。