excel图表VBA 神奇的句点

阳光花园是一个很大的住宅小区，布置有25栋楼房，每栋楼由高18层的4个单元楼组成，每个单元楼住有2户，每户按楼层编有门牌号。梦梦同学住在9栋4单元601室。

今天，老师要到梦梦家里家访。进入阳光花园小区后，老师要先找到9号楼，再找到4单元，乘座电梯到6楼，找到601室，就到了梦梦家里。

简化一下表示，我们用句点来代替图中的箭头号，那么找到601室就可以表示为：

阳光花园.9号楼.4单元.601室

那么，在Excel VBA中，我们怎么才能找到工作簿Book1.xlsm中的工作表Sheet1中的单元格A1呢？经过前面的系列介绍，我们知道单元格A1在代码中的表示为：

Range(“A1”)

而工作表Sheet1属于Worksheets集合，在代码中的表示为：

Worksheets(“Sheet1”)

工作簿Book1.xlsm属于Workbooks集合，在代码中的表示为：

Workbooks(“Book1.xlsm”)

根据Excel对象层次模型，我们要找到单元格A1，就要经过下所示的路线：

同样，我们用句点来代替图中的箭头号，那么在VBA中找到单元格A1可以表示为：

Application.Workbooks(“Book1.xlsm”).Worksheets(“Sheet1”).Range(“A1”)

实际上，这就是VBA中引用对象的方式，即通过使用句点层层限定直至达到要引用的对象。

由此，我们引出VBA中引用对象的一条规则：

规则1：对象.(对象…对象).对象

在对象模型中，处于被引用对象上层的对象位于左侧，被引用的对象位于最右侧。

实际上，我们通常就是在Excel中操作，所以可以省略掉Application对象限定，即引用单元格A1的代码可以简化为：

Workbooks(“Book1.xlsm”).Worksheets(“Sheet1”).Range(“A1”)

如果我们只是在工作簿Book1.xlsm中操作，将该工作簿作为当前工作簿，那么代码可以进一步简化为：

Worksheets(“Sheet1”).Range(“A1”)

如果工作表Sheet1为当前工作表，代码不会应用到其它工作表中，那么代码再次简化：

Range(“A1”)

这代表在当前活动工作簿中的当前工作表中的单元格A1。

这就好比我们都在一个办公楼里工作，当你问我现在在哪里时，如果我正在601室，那么我只需回答在601室就够了，因为大家彼此都知道，而无须回答我在××区××写字楼××层××室这么繁锁了。

由此，我们又可以引出VBA中引用对象的一条规则：

规则2：若对象就是当前对象，则可以省略句点左侧的对象限定，简化代码。

注意规则的前提是，我们引用的对象就是当前活动对象，如果不是当前活动对象，就会产生不想要的结果或错误[jf1] 。例如，当前活动工作表为Sheet2，而我们要找的是工作表Sheet1中的单元格A1，此时，如果只写代码：

Range(“A1”)

它代表的是工作表Sheet2中的单元格A1。要找到工作表Sheet1中的单元格1，必须在左侧加上限定：

Worksheets(“Sheet1”).Range(“A1”)

省略Application对象限定

在编写代码时，对于Application对象的那些返回对象的属性，我们常常省略掉Application对象限定，例如前面的文章中的ActiveWorkbook属性、ActiveWindow属性、ActiveCell属性、Cells属性、Selection属性、Rows属性、Columns属性，等。只需要直接以属性开头进行引用，例如，代码：

ActiveCell

代表当前活动工作表中的活动单元格。