Excel对象主要有4个:
- 工作薄 Workbook
- 工作表 Worksheet
- 单元格区域 Range
- 单元格 Cell
这里只讲后面3个,不讲工作薄。原因:
工作薄其实就是一个Excel文件。不建议直接操作Excel文件,因为文件属性被更改的机率高,比如修改了文件名,或者文件被移动到其它地方去,这样 写死的VBA代码就不管用了。
在多数情况下,如果需要操作多个工作薄中的数据,建议把这些工作薄里面的表复制到一个工作薄中进行操作。
1. 操作工作表 Worksheets
其实对工作表的操作,更多是对其引用。当一个工作薄中有多个工作表而需要用到不同表中的数据时,就需要分别引用不同的工作表。
2. 操作单元格区域 Range
单元格区域,即Range对象。应该是在Excel VBA中用得最多的对象。Range对象是Worksheet对象的一个子集。所以通常通过worksheet_object.Range()的方式来引用。
单个单元格区域的引用
set rng_sellingPrice = sht_productlist.Range("D2")
多个连续单元格区域的引用
set rng_sellingPrice = sht_productlist.Range("D2:D5")
3. 操作单元格对象
Cells,括号里面输入用数字表示的行号和列号,即可引用到单个单元格对象。Cells对象也是Worksheet对象的一个子集。通常通过worksheet_object.Cells()的方式来引用。
单个单元格的引用,使用Cells和使用Range好像没什么区别,但在进行数据处理时,我们经常需要动态地把数据读或写入一个单元格中,这时,用数字表示位置的Cells对象,再结合For循环,操作起来就很方便了。
如以下代码可以把A1到D5中所有单元格的内容分别输出:
Sub test2()
Dim sht_slea As Worksheet
Set sht_slea = Worksheets("SLEA")
For r = 1 To 5
For c = 1 To 4
Debug.Print sht_slea.Cells(r, c)
Next
Next
End Sub
PS
- Range对象便于把单元格区域作为一个整体来引用或操作,如格式设置。而Cells对象则方便于对每一个单元格分别进行操作
- 结合Cells对象的Range
例如Range("B2:D4")也可以用Range(Cells(2, 2), Cells(4, 4))来表示。如需要根据条件来判断区域的开始和结束位置时,它就派上用场了。
4. 父对象
Worksheet对象的父对象为Application对象。Range的父对象是Worksheet对象,Cells对象的父对象也是Worksheet对象。所以在给这些对象赋值时,标准的写法应当要把父对象给写上。
Set sht_slea = Application.Worksheets("SLEA")
Set title_rng = sht_slea.Range("A1:D1")
Set data_rng = sht_slea.Range(sht_slea.Cells(2, 1), sht_slea.Cells(4, 4))
如果VBA中的代码涉及到的对象都位于一个worksheet中,而这个worksheet当前是激活状态,则这些父对象是可以省略的。默认就是当前(激活的)worksheet。
建议在引用Range对象时,Worksheet对象不要省略
在单独引用Cells对象时,Worksheet对象也不要省略
网友评论