在使用Ex celVB A进行编程时,我们通常需要频繁地引用单元格区域,然后再使用相应的属性和方法对区域进行操作。所谓单元格区域,指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面,我们设定一些情形,以问答的形式对引用单元格区域的方式进行归纳。 --------------------------------------------------------------------------------
海外英语问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格
C3)?
回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1) Ran ge("C3") (2) [C3]
(3) Cel ls(3, 3)
(4) Ce lls(3, "C")
(5) Rang e("C4").Of fset(-1)
马甲文化R ange("D3").Offs et(,-1)
R ange("A1").Offs et(2, 2)
(6) 若C3为当前单元格,则可使用:Ac tiveC ell
(7) 若将C3单元格命名为“R ange1”,则可使用:Ran ge("R ange1")或[R ange1]
(8) Cell s(4,3).Of fset(-1)
(9) Ra nge("A1").Range("C3")
--------------------------------------------------------------------------------
问题二:在V BA代码中,我要引用当前工作表中的B2:D6单元格区域,有哪些方式?
回答:可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。
(1) Ra nge(“B2:D6”)
(2) Ran ge("B2", "D6")
(3) [B2:D6]
(4) Rang e(Ran ge("B2"),Range("D6"))
(5) Ran ge(Ce lls(2, 2), Cell s(6,4))
(6) 若将B2:D6区域命名为“MyRa nge”,则又可以使用下面的语句引用该区域:
①Range("MyR ange")
②[MyRan ge]
(7) Ra nge("B2").Resiz e(5,3)
(8) Ran ge("A1:C5").Off set(1, 1)
(9) 若单元格B2为当前单元格,则可使用语句:R ange(Activ eCell,
Act iveCe ll.Of fset(4, 2))
(10) 若单元格D6为当前单元格,则可使用语句:Ran ge("B2", A ctive Cell)
-
-------------------------------------------------------------------------------
问题三:在VB A代码中,如何使用变量实现对当前工作表中不确定单元格区域的引用?
回答:有时,我们需要在代码中依次获取工作表中特定区域内的单元格,这通常可以采取下面的几种方式:
(1)Range(“A”& i)
(2) R ange(“A” & i &“:C”& i)
(3) C ells(i,1)
(4) C ells(i,j)
其中,i、j为变量,在循环语句中指定i和j的范围后,依次获取相应单元格。
--------------------------------------------------------------------------------
问题四:在V BA代码中,如何扩展引用当前工作表中的单元格区域?
回答:可以使用Re size属性,例如:
(1)Activ eCell.Resi ze(4, 4),表示自当前单元格开始创建一个4行4列的区域。
(2) Rang e("B2").Re size(2, 2),表示创建B2:C3单元格区域。
(3) Rang e("B2").Re size(2),表示创建B2:B3单元格区域。
(4) Ra nge("B2").Resiz e(, 2),表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6),或一个命名区域中(如将单元格区域B3:E6命名为“My Range”)使用R esize属性,则只是相对于单元格区域左上角单元格扩展区
域,例如:
代码Rang e("C3:E6").Resi ze(,2),表示单元格区域C3:D6,并且扩展的单元格区
域可不在原单元格区域内。
因此,可以知道Resiz e属性是相对于当前活动单元格或某单元格区域中左上角单
元格按指定的行数或列数扩展单元格区域。
--------------------------------------------------------------------------------
问题五:在VB A代码中,如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域?
回答:可以使用O ffset属性,例如:
(1) Rang e("A1").Of fset(2, 2),表示单元格C3。
(2) A ctive Cell.Offse t(, 1),表示当前单元格下一列的单元格。
(3) Act iveCe ll.Of fset(1),表示当前单元格下一行的单元格。
(4) Ra nge("C3:D5").Of fset(, 1),表示单元格区域D3:E5,即将整个区域偏移一列。从上面的代码示例可知,Offs et属性从所指定的单元格开始按指定的行数和列数偏移,从而到达目的单元格,但偏移的行数和列数不包括指定单元格本身。
--------------------------------------------------------------------------------
问题六:在V BA代码中,如何在当前工作表中引用交叉区域?
回答:可以使用Inter sect方法,例如:碱血症
Inte rsect(Rang e("C3:E6"), Ran ge("D5:F8")),表示单元格区域D5:E6,即单元格区域C3:E6与D5:F8相重迭的区域。
--------------------------------------------------------------------------------
问题七:在VB A代码中,如何在当前工作表中引用多个区域?
回答:
(1)可以使用U nion方法,例如:
Unio n(Ran ge("C3:D4"), Ra nge("E5:F6")),表示单元格区域C3:D4和E5:F6所组成的区域。
Union方法可以将多个非连续区域连接起来成为一个区域,从而可以实现对多个非连续区域一起进行操作。
(2) 也可以使用下面的代码:
Rang e("C3:D4,E5:F6")或[C3:D4, E5:F6]
注意:Rang e("C3:D4", "F5:G6"),表示单元格区域C3:G6,即将两个区域以第一个区域左上角单元格
为起点,以第二个区域右下角单元格为终点连接成一个新区域。同时,在引用区域后使用Rows属性和Co lumns属性时,注意下面代码的区别:
①Rang e("C3:D4", "F8:G10").Rows.Coun t,返回的值为8;
②Rang e("C3:D4,F8:G10").Ro ws.Co unt,返回的值为2,即只计算第一个单元格区域。
--------------------------------------------------------------------------------
问题八:在VBA代码中,如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)?
回答:可以使用Curre ntReg ion属性,例如:
(1) A ctive Cell.Curre ntReg ion,表示活动单元格所在的当前区域。
(2) R ange("D5").Curr entRe gion,表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见
《Cu rrent Regio n属性示例》一文。
[Next Page]
--------------------------------------------------------------------------------
问题九:在VB A代码中,如何引用当前工作表中已使用的区域?
回答:可以使用UsedR ange属性,例如:
(1)Activ eshee t.Use dRang e,表示当前工作表中已使用的区域。
(2) Wor kshee ts("s heet1").Us edRan ge,表示工作表sh eet1中已使用的区域。
与C urren tRegi on属性不同的是,该属性代表工作表中已使用的单元格区域,包括显示为空行,但已进行过格式的单元格区域。该属性的详细使用参见《解析
Us edRan ge属性》一文。
山东省社会主义学院
--------------------------------------------------------------------------------
问题十:如何在单元格区域内指定特定的单元格?
回答:可以使用Item属性,例如:
(1) Rang e("A1:B10").Ite m(5,3)指定单元格C5,这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Ite m属性为默认属性,因此也可以简写为:Ra nge("A1:B10")(5,3)。
如果将A1:B10区域命名为”MyRan ge”,那么Rang e("My Range")(5,3)也指定单元格C5。
(2) Rang e("A1:B10")(12,13)指定单元格M12,即用这种方式引用单元格,该单元格不必一定要包含在区域内。
同时,也不需要索引数值是正值,例如:
① Ran ge("D4:F6")(0,0)代表单元格C3;
② Ran ge("D4:F6")(-1,-2)代表单元格A2。
而Ra nge("D4:F6")(1,1)代表单元格D4。
(3)也可以在单元格区域中循环,例如:
Ran ge("D4:F6")(2,2)(3,4)代表单元格H7,即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4) 也能使用一个单个的索引数值进行引用。计数方式为从左向右,即在区域中的第一行开始从左向右计数,第一行结束后,然后从第二行开始从左到右接着计数,依次类推。(注:从区域中第一行第一个单元格开始计数,当第一行结束时,转入第二行最左边的单元格,这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始,按上述规则依次为第2个单元格、第3个单元格….等等),例如:Ra nge("A1:B2")(1)代表单元格A1;
Range("A1:B2")(2) 代表单元格B1;
Ran ge("A1:B2")(3)代表单元格A2;
R ange("A1:B2")(4) 代表单元格B2。李定国纪年
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内,但在遵循相同的规律),例如:
R ange("A1:B2")(5)代表单元格A3;
泌尿外科学Range("A1:B2")(14)代表单元格B7,等等。
也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的,例如,R ange("D4")(1)代表单元格D4,Rang e("D4")(2)代表单元格D5,Ra nge ("D4")(11)代表单元格D14,等等。
同理,稍作调整后也可遍历行,例如:
Range("D4").Col umns(2)代表单元格E4,Range("D4").Col umns(5)指定单元格H4,等等。
(5)当与对象变量配合使用时,I tem属性能提供简洁并有效的代码,例如:
Setrng = Work sheet s(1).[a1]
定义了对象变量后,像单元格方法一样,It em属性允许使用两个索引数值引用工作表中的任一单元格,例如,rng(3,4)指定单元格D3。(ByChipPears on)
--------------------------------------------------------------------------------
问题十一:在VBA代码中,如何引用当前工作表中的整行或整列?
回答:见下面的示例代码:
(1) R ange("C:C").Sel ect,表示选择C列。
Range("C:E").Se lect,表示选择C列至E列。
(2)Range("1:1").Se lect,表示选择第一行。
Ran ge("1:3").Selec t,表示选择第1行至第3行。
(3) R ange("C:C").Ent ireCo lumn,表示C列;
R ange("D1").Enti reCol umn,表示D列。
同样的方式,也可以选择整行,然后可以使用如Auto Fit方法对整列或整行进行调整。
--------------------------------------------------------------------------------
问题十二:在VBA代码中,如何引用当前工作表中的所有单元格?
回答:可以使用下面的代码:
(1) Ce lls,表示当前工作表中的所有单元格。
(2) R ange(Cells(1, 1), Ce lls(C ells.Rows.Count, Cel ls. C olumn s.Cou nt)),其中
Cel ls.Ro ws表示工作表所有行,Cell s. Co lumns表示工作表所有列。
--------------------------------------------------------------------------------
问题十三:在VB A代码中,如何引用工作表中的特定单元格区域?
回答:在工作表中,您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”,单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如:
(1) W orksh eets("shee t1").Cells.Spec ialCe lls(x lCell TypeA llFor matCo nditi ons),表示工作表sheet1中由带有条件格式的单元格所组成的区域。
(2)Activ eCell.Curr entRe gion.Speci alCel ls(xl CellT ypeBl anks),表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然,还有很多常量和值的组合,可以让您实现特定单元格的查并引用。参见《探讨在工作表中到最后一行》一文。
--------------------------------------------------------------------------------
问题十四:在VBA代码中,如何引用其它工作表或其它工作簿中的单元格区域?回答:要引用其它工作表或其它工作簿中的单元格区域,只需在单元格对象前加上相应的引用对象即可,例如:
(1) Work sheet s(“Sh eet3”).Ran ge(“C3:D5”),表示引用工作表s heet3中的单元格区域C3:D5。
(2) Wo rkboo ks(“M yBook.xls”).Wor kshee ts(“s heet1”).Ra nge(“B2”),表示引用M yBook 工作簿中工作表She et1上的单元格B2。
--------------------------------------------------------------------------------
问题十五:还有其它的一些情形吗?
回答:列举如下:
(1) C ells(15),表示单元格O1,即可在Cells属性中指定单元格数字来选择单元格,其计数顺序为自左至右、从上到下,又如Cells(257),表示单元格B1。
(2) C ells(, 256),表示单元格IV1,但是如果Cells(, 257),则会返回错误。
--------------------------------------------------------------------------------
结语