WorkSheet属性和方法

WorkSheet和workSheets的关系:workSheet是单个工作表,workSheets是指定工作簿中所有工作表的集合。

对象名称与工作表名称:每个工作表都有两个名,工作表名或者标签名称即看到的工作表的名称,如“sheet1”、“工资表”,对象名称或者代码名称,一般只为“sheet1”,“sheet2”这种形式,可以在工程资源管理器和属性窗口里面看到。

在使用多过程中,我们多使用的是代码名称,工作表名称的修改不会影响代码名称,在属性窗口里可以修改代码名称,但建议不要修改代码名称。

怎么引用工作表:

1.       利用工作表的索引号或者标签名称引用;

​如:

三张工作表.

索引号是指定工作簿里第几张工作表,如上图“第二张表”的索引号为2,标签名称为“第二张表”。引用格式如下:

Worksheets.Item(2)                    ‘引用工作簿中第二张工作表

Worksheets(2)                            ‘ 如上

Worksheets(“第二张表”)         ‘引用名为“第二张表”的工作表

2.      利用代码名称引用

直接使用代码名称引用,如操作表代码名称为sheet1表中的单元格:

Sheet1.Range(“D2”).Value=12           ‘在sheet1中D2单元格输入12

如要查看当前工作表的代码名称,则:

Msgbox  ActiveSheet.CodeName

方法:

Add方法:插入一张新的工作表,格式和参数如下:

当前活动工作表是“第二张表”,我在立即窗口里新建一张表,出现了名为sheet1的工作表,在活动工作表前面,同时它的代码名称为sheet4。

加入参数:before|after:指定放在某一工作表前或后

worksheets.Addafter:=worksheets(3),这一句在当前工作簿中效果一样。

使用count指定插入工作表的数量:

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

‘在索引号为3 的工作表后插入3张工作表,多个参数要用逗号隔开

另外补充,count可用于计数,代码“Worksheets.Count”返回值即为活动工作簿中的工作表数量。

Delete方法:删除工作表

直接删除:Worksheets(”sheet1”).delete

删除名为“sheet1”的工作表,这里是标签名称。

激活工作表:Activate和select方法

Worksheets(1).Activate          ‘激活第一张工作表

Wprksheets(1).Select            ‘选中第一张工作表

两者区别在于:select可以同时选中多个工作表,而Activate不能同时激活多个工作表;Select不能选中被隐藏的工作表,但Activate可以激活被隐藏的工作表。

Copy方法:

直接复制和使用方法的格式一致,不过需要注意,工作表复制后会直接展示出来,而不是让你还要粘贴,因此需要考虑存放的位置。

Eg:

 Worksheets(“去你的表”).Copy before:=Worksheets(”第二张表”)

效果如上。而且复制得到的表总是活动工作表,标签名称改变。

如果不使用before|after参数,则会复制到新的工作簿,Excel会打开一个新的工作簿,工作表名称不变。

Move方法:移动工作表

Worksheets(“第一张表”).Move After(Before) := Worksheets(“第二张表”)

‘将“第一张表”移动到“第二张表”后面

Worksheets(“第一张表”).Move

‘将“第一张表”移动到新的工作簿中

属性:

Name属性:

直接使用(Worksheets(2).Name=”新的工作表名”),来更改第二张表的标签名称。

如果是用代码新建的工作表,可以在新建后加上

(ActiveWorksheet.Name=”新的工作表名”)进行修改,因为新建的工作表总是活动工作表。

也可以在新建时命名:

用下面的形式新命名也可以:(第二句)

Visible隐藏属性:

Worksheets(“第一张表”).Visible = False(或者是xlSheetHidden/0)

三个值都是隐藏。此方法等同于“视图”选项卡中的“隐藏”功能(office365)。

下面两种则不能通过“隐藏”功能修改回来。

Worksheets.(“第一张表”).Visible = xlSheetVeryHidden(或者是“2”)

属性窗口里:

如果要通过代码显示工作表,等号后面的参数改为:True、xlSheetVisible、1、-1。

原文地址:https://www.cnblogs.com/rhongp/p/6383782.html