辅助工具之VBA（三）

要实现自动化。所有的Bean等命名都需要遵循统一的命名规则，使用相同的字典。这样才能进一步实现一系列自动化。

简单说说算法。做工具，是练习算法设计的好方法。

上回书说，生成断言，和把数据绑定到对象中。这些都是基于上回的提到的二维表结构。

遍历二维表，然后把数据拼接成我们想要的工具。

1，遍历二维表。怎么遍历呢？因为横向数据代表一个完整的对象，所以第一层循环要循环行。第二层循环要循环列，把项目一个一个的处理组合在一起。

2，遍历的时候，需要知道每个位置数据类型，名字等信息，根据这些信息我们对每项数据做加工处理。我们需要用变量记住数据基础信息的行番号，列番号就是每项数据的列番号。

基本算法就是这样。具体做还是有很多细节要做。

1，获取当前光标所在的单元格作为程序起点。我觉得相对起点更为灵活一些。

常用代码

activecell,activesheet,activeworkbook

workbooks("文件名").sheets("sheet名")

2，根据第一个单元格获取操作范围。

常用代码

cells.end(4)：相当于ctrl+shift+下

cells.end(2)：相当于ctrl+shift+右

3，输出结果的时候，常常想新起一个sheet来出力结果

常用代码

workbooks(workbookname).sheets(sheetname).delete

workbooks(workbookname).sheets(sheetname).add.name=sheetname

sheets(sheetname).select

cell.select

4,很多时候我更希望程序不管遇到什么问题，都继续执行下去。

常用代码

on error resume next

application.displayalerts=false 程序开始的时候禁止

application.displayalerts=true  程序结束的时候放开