第1章初识Excel 2007 VBA.docVIP

第1章 初识Excel?2007 VBA 本章以及后续的两个章节是Excel?2007 VBA知识的奠基章节。本章主要讲解Excel?2007 VBA的开发环境（VBE）、调试工具和宏的使用方法。“工欲善其事，必先利其器”，认真掌握该部分内容，可以极大地提高开发者的开发效率与调试效率。 1.1 VBA的能力 这些年笔者在所工作的每个地方几乎都会问周围经常使用Excel进行数据分析与管理的同事同一个问题，为什么不使用VBA处理那些繁琐的日常事务？得到的回答不外乎以下答案：VBA是什么，有用吗；VBA太难了，看了很多书也不得要领，不知道怎么把它运用到实际工作中。 笔者想，翻看本书的读者也有很大部分存在以上的疑惑。对于前者笔者想打个比方来说，聚会的时候大家都喜欢喝啤酒，可是开启啤酒瓶就“八仙过海，各显神通”了，有的练牙齿功夫，有的抓着啤酒瓶子照着菱角分明的桌子或其他硬物上敲，有的摇动啤酒瓶来个井喷，但是对于笔者而言更喜欢拿橇子来解决问题！VBA就像开啤酒瓶的橇子。 笔者的一位同学曾经碰到一个问题：同学有十几个工作簿，每个工作簿只有一个表，每个表里有10000行左右，而其工作即是将里面部分数据行删除。删除的规律是：电话号码列包括座机号（带区号）或手机号，该列最多包括两个号码，如果有两个电话时，使用“/”隔开，而需要删除的是那些只有座机号的行。 在碰到该问题之前，笔者的同学并不会使用自动筛选、函数等功能，更不用说VBA，因而只能完全手动操作。10多万行数据，一行一行手动处理，这是很大的工作量！需要多少时间和精力处理？当同学求助于我时，我使用两个方法解决了该问题。 其一是使用自动筛选和函数。首先新建一个列，该列使用函数按照“/”分开两个电话号码。然后取得两个号码的第一位数，把它们相加。如果都是座机号，那么这个数字一定为0。如果包含了手机号，该结果将大于0。然后通过自动筛选，将该列为0的数据筛选出来后删除。 其二是写一个加载宏，在这个加载宏里面包含了一个自定义函数。函数返回的就是前面相加的结果。对于每一个工作簿将省去每次都需要手动书写公式的麻烦。两种方法大体上是一样的，区别只是前者完全是通过Excel?2007的界面操作完成，而后者通过编程完成，前后只花几分钟的时间。 由此可以看出，全面了解Excel?2007的功能和掌握一部分编程技巧，将极大地提高办公效率。 对于后一种读者，笔者想说的是，VBA是一种很通俗易懂的计算机语言，通常所欠缺的是发现问题、分析问题的思维过程。笔者建议在阅读本书的实例时，首先构思一下应该如何完成该系统，然后把解决方案实现出来，最后再来看笔者的方案是如何做的。 到底VBA能帮助使用者做哪些工作呢？其实这个问题很难界定，使用VBA开发应用是一份创造性的工作，在很大程度上依赖于开发者本人的创造力。但是有一点是必然的，VBA是一种程序语言，它需要有确切的执行规律。 例如电话号码列，如果没有“/”分割两个号码或者座机号码不带区号，那么后面所使用的解决办法就不能有效执行了。往往笔者在使用VBA开发应用时，第一步就是找到潜在的规律，因此每一个疑难问题的前期分析问题步骤很重要。 知识点：高级筛选 在Excel?2007中处理数据时，经常需要按照某些条件对数据进行筛选，通常可以采用自动筛选功能实现。但是有时候筛选的条件十分复杂或者需要筛选出某列的不重复项，此时就需要高级筛选。自动筛选将在第5章学生成绩管理系统中介绍，读者可以通过该章的知识点了解该功能。由于本章的实例中接触到了高级筛选，因而将高级筛选的知识在此加以介绍。 高级筛选的操作既可以通过菜单实现操作也可以使用VBA代码实现，详细的界面操作可以参见1.4.2节的介绍。这里详细介绍高级筛选的代码实现及其语法格式的解释。高级筛选是通过单元格对象或区域的AdvancedFilter方法实现的。该方法的语法如下： 表达式.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique) 该方法的几个参数的意义如下。 Action参数：必选参数。用于指定是否就地复制或筛选列表。 CriteriaRange参数：可选参数。该参数制定条件区域，如果省略该参数，则没有条件限制。 CopyToRange参数：可选参数。如果Action为xlFilterCopy，则为复制行的目标区域；否则，忽略该参数。 Unique参数：可选参数。如果为 True，则只筛选唯一记录；如果为 False，则筛选符合条件的所有记录。默认值为 False。 这里不再列出该方法的实例，读者可以参见本章最后一节中录制宏实例小节的代码。 1.2 认识VBA编辑器（VBE） 在正式进入Excel VBA开发之前，有必要了解一下VBE开发环境。图1-1显示了一个VBE开发