阳光花园是一个很大的住宅小区，布置有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
代表当前活动工作表中的活动单元格。
评论(0)