Excel VBA入门（七）注释、宏按钮及错误处理

老侯装修公司

系统性的知识前面已经讲完，从本章开始，本系列教程涉及的将会是一些相对凌散的内容。
1. 注释

代码注释是一件利人利己的事，为了方便自己在代码需要更新修改时，依然能够快速地看懂自己完的每一行代码到底是什么意思有何用处，在关键点加上代码注释是很有必要的。如果要让别人也能看懂自己的代码，那么注释更是不可或缺的。
VBA中有两种注释的方法，其一是使用单引号，另一种是Rem。在单引号后面或Rem后面的所有内容，在程序运行时都不会被执行，它们就是注释的内容。通常注释的内容会被用其它颜色标识。如下：


有点不方便的是，貌似VBA里面并没有提供多行注释的方法，要想把多行代码注释掉，只能在每一行前面都加上单引号或者Rem
在程序写得比较长的时候，就有必要在其中加入注释。注释通常应使用于：

• 逻辑复杂的地方
  
• 调用自定义的函数或过程
  
• 每个函数和过程的开头。描述本函数和过程的作用
  

还有其它一些作者认为应当写上注释的地方。每行都注释肯定是多余的，但不写注释，通常也是不对的。什么时候该写，什么时候不写，只有要自己用得多了之后，才会清楚。
2. 宏按钮

前面所讲的所有代码案例，都是在VBE里面执行的（无论是通过单击运行按钮还是快捷键F5），但这样明显是不方便的。一是每次都需要打开VBE甚至要定位到某一个过程中，才可以执行，二是如果不懂VBA操作的人，则完全不知该如何执行了。
在Excel菜单栏－开发工具中，找到“插入”，点击它可发现有“表单控件”和“ActiveX控件”，这里使用的是第一个，表单控件。它的第一个，就是按钮。点击一下这个按钮，则可以在Excel表格中通过鼠标的拖动来放置一个按钮对象。如果使用的是表单控件中的按钮，则在放开鼠标后，会马上弹出一个指定宏的对话框：


当然这时也可以不指定，点取消即可。后面有需要时，通过右键单击这个按钮，选择指定宏也可以达到同样的效果。


其实理论上来说，VBA中的过程，或者说Excel中的宏，可以指定给Excel中的各种对象实体，比如插入的图片、各种形状，甚至在Excel中的生成的图表，都是可以作为宏执行的载体的。
我通常都通过插入形状来设置按钮，因为形状更加美观，可以设置它的各种格式，和Excel表格配合更为协调，不影响整体版面。用如下方式插入一个自己喜欢的形状：


在其中加入提示文字并设置好格式后，就可以右键单击它，选择“指定宏”来把相应的VBA过程赋给它：


* 有兴趣的朋友，可以尝试学习使用ActiveX控件。通过鼠标拖放一个ActiveX控件后，右键单击它，查看代码，留意代码上方左右两个对象窗口，点击右边的下拉列表可以发现这个控件可以有很多事件，例如单击、双击、鼠标移入、鼠标移出、被选中时等


3. 错误处理

当代码执行出错时，VBA提供了两种处理的方式：

• On Error GoTo
  
• On Error Resume Next
  

3.1 On Error GoTo
表示如果自本行开始后面的代码执行出错，则跳至指定位置继续执行。如：
Sub te4()
    On Error GoTo con
    Debug.Print "a" + 3
    Debug.Print 8 - 5
con:
    Debug.Print "error occur"
End Sub示例中第2行设置了On Error GoTo con，即当第3行出错时，就跳到con标记处，执行自con后的代码。标记后面应加上冒号（:）。第3行中，用双引号包含的a是一个字符串，而3是一个数字，直接将字符串与数字相加是会出错的，所以这里会触发错误，第4行不会被执行到，程序会直接跳转到con处，执行后面的Debug.Print语句。程序输出error occur。
注意，如果把第3行和第4行交换位置，则程序会先输出8－5的结果（即3），再输出error occur。
3.2 On Error Resume Next
表示如果代码执行出错，则从出错代码的下一行代码继续执行。如：
Sub te3()
    On Error Resume Next
    Debug.Print 5 + 3
    Debug.Print "a" + 3
    Debug.Print "error occur"
End Sub代码第3行执行正常，第4行将出错，于是直接执行第5行。所以程序的输出是：
8
error occur
最后要提醒的是，以上提到的两种错误处理的方法应尽量尽量少用。因为有错误应该去解决它，而不是跳过它。
作业：

• 执行以下代码，观察输出结果，务必结合输出结果理解代码的每一行及它的逻辑。
  

Sub test()
    On Error GoTo con
    Debug.Print 3 + 3
    Debug.Print 5 * 5
   
con:
    Debug.Print "error occur"
    Debug.Print "Do you understand this all?"
End Sub    2. 执行以下代码，观察执行结果，务必结合输出结果以错误提示理解代码的每一行及整个代码的逻辑。
Sub test1()
   
    On Error GoTo con
    On Error GoTo 0
    Debug.Print 3 + 3
    Debug.Print "c" - 3
    Debug.Print 5 + 5
con:
    Debug.Print "error occur"
    Debug.Print "Do you understand this all?"
End Sub

格物成器

加油 继续更新吧~

啥时结束

多谢，这两天会更一篇

沈启忠

请问作业的结果是什么

何华治

建议你自己执行一次看看

活得不要太明白

竟然还布置作业qwq

巧卖面

写的真的好，而且还有作业加深巩固，赞一个！

水煮大西瓜

您好 非常感谢教程
第2个作业，on error goto 0, 覆盖了之前的goto con,因为0标记不存在，所以后边运行报错？

龙游九州

on error goto 0 的作用是关闭了错误处理，所以错误就不会被捕捉，后边运行就会报错