[转载]Excel中的VBA对象及其应用之二

hcghcg909 2015-09-11

展开全文

还记得上期我们给大家介绍过的Excel VBA的Application（Excel程序本身）对象和 Workbook（工作薄）对象吗？怎么样，挺有收获的吧。那这一期我们继续来学习Excel VBA中的另外两个非常重要的对象：WorkSheet（工作表）对象和Range对象。

三、WorkSheets、Worksheet对象及其应用

WorkSheets(工作表对象集)是Workbook的下一层对象集，它包含最多255个工作表（Worksheet）对象。引用工作对象的方法有两种：

MsgBox Worksheets("sheet2").Name

MsgBox Worksheets(3).Name

前一种方法是使用工作表名“sheet2”来引用的，后一种方法是使用工作表在工作薄中的位置（即索引号）来引用的。

常用的Worksheets对象和Worksheet对象的属性和方法有：ActiveSheet(活动工作表)属性、Name(名称)属性、Visible(隐藏)属性、Select(选定)方法、Copy（复制）和Move（移动）方法、Paste（粘贴）方法、Delete（删除）方法以及Add（添加）方法等等。

1、ActiveSheet属性可用于活动工作表的引用，下面的代码可激活工作表Sheet3并预览该工作表：

Worksheets("sheet3").Activate

ActiveSheet.PrintPreview

2、Name属性用于返回指定工作表对象的名字。如将工作表sheet1的标签名改为“工资表”：

Worksheets("sheet1").Name = "工资表"

3、Visible属性用来显示和隐藏指定工作表对象，值为true时（默认）工作表可见，False时不可见。如隐藏倒数第2张工作表对象：

Worksheets(Sheets.Count - 1).Visible = False

4、Select方法用于工作表对象的选定。VBA操作中经常会遇到在不同的工作表间传递数据的操作，此时可反复使用Select方法来选中不同的工作表对象。

5、Copy和Move方法用来复制和移动指定的单元格区域或工作表对象。如复制工作表sheet2到所有工作表的最后以及移动工作表Sheet3到所有工作表的最前面的代码分别如下：

Worksheets("sheet2").Copy after:=Worksheets(Sheets.Count)

Worksheets("sheet3").Move before:=Worksheets(1)

这里需要说明的是：用Worksheets(1)比用Worksheets("sheet1")要好一些，因为有时sheet1的位置可能不在所有工作表的最前面。

6、Paste方法用于将剪贴板中的数据粘贴到指定的工作表中。如复制工作表sheet1中的A列数据到sheet2的D列中。

Worksheets("sheet1").Range("A:A").Copy

ActiveSheet.Paste Destination:=Worksheets("sheet2").Range("D:D")

7、Delete方法用于删除指定的工作表对象。需要注意的是系统在删除工作表时会出现警告提示要求用户确认是否删除，如果不希望出现此提示框，可使用“Application.DisplayAlerts = False”语句屏蔽该提示框的显示。

8、Add方法用于向工作薄中添加工作表对象，最后一次添加的工作表将成为活动工作表。下面的语句可一次向工作薄中添加三张工作表并且放在所有工作表的最后。

Worksheets.Add Count:=3, after:=Worksheets(Sheets.Count)

四、Range对象及其应用

Range(单元格或单元格区域)是Worksheet的下一层对象，它可以是某个单元格（Cell）、某一行(Row)、某一列（Column）或多个连续或不连续的单元格区域对象，熟练地使用这些对象可以方便地操作工作表中的其它对象和数据。

Range对象的属性和方法主要有：Cells(单元格)属性、UsedRange（已使用的单元格区域）属性、Formula(公式)属性、Name(单元格区域名称)属性、Value(值)属性、Autofit(自动行高列宽)方法、Clear(清除所有内容)方法、ClearContents(清除内容)方法ClearFormats(清除格式)方法、Delete（删除）方法以及Copy(复制)、Cut(剪切)、Paste(粘贴)等方法。