阳光花园是一个很大的住宅小区,布置有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

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

发表回复