德标ppr管材好吗:第8讲 操作工作表

第8讲  操作工作表

作者：http://hi.baidu.com/landmao

8.1 建立工作表

   插入一个工作表：Sheets.Add

在指定工作表前插入工作表：

Sheets.Add Before:=Sheets(工作表名称或工作表序号)

举例：

Sheets.Add Before:=Sheets(“Sheet3”)  

Sheets.Add Before:=Sheets(3)

在指定工作表后插入工作表：

Sheets.Add Before:=Sheets(工作表名称或工作表序号)

举例：

Sheets.Add After:=Sheets(“Sheet3”)  

Sheets.Add After:=Sheets(3)

在最后插入工作表：

Sheets.Add After:=Sheets(Sheets.Count)

   在最前插入工作表：

Sheets.Add Before:=Sheets(1)

插入2个空白工作表：

Sheets.Add Count:=2

这里利用自变量Count来控制插入工作表的数量。

检查工作表”Sheet2”是否存在：

Private Sub检查工作表是否存在()

        Dim iCount As Integer

        For iCount = 1 To Sheets.Count

            If Sheets(iCount).Name = "Sheet2" Then

                  MsgBox "Sheet2已经存在"

                   Exit Sub

            End If

        Next iCount

End Sub

8.2    选取工作表

选取指定工作表：

Sheets(工作表名称或工作表序号).Select

举例：

Sheets(“Sheet2”).Select

Sheets(2).Select

设置活动工作表：

Sheets(工作表名称或工作表序号).Activate

举例：

Sheets("Sheet2").Activate

Sheets(2). Select

8.3    隐藏工作表

     隐藏一个工作表：

Sheets(工作表名称或工作表序号).Visible=0

举例：

Sheets(“Sheet2”).Visible=0

Sheets(2) .Visible=0

取消隐藏一个工作表：

Sheets(工作表名称或工作表序号).Visible=-1

举例：

Sheets(“Sheet2”).Visible=-1

Sheets(2) .Visible=-1

8.4    复制和移动工作表

   1.复制

复制到指定工作表之前：

Sheets（工作表名称或工作表序号）.Copy Befor:=Sheets(工作表名称或工作表序号)

复制到指定工作表之后：

Sheets（工作表名称或工作表序号）.Copy After:=Sheets(工作表名称或工作表序号)

2.移动

   移动到指定工作表之前：

Sheets（工作表名称或工作表序号）.Move Befor:=Sheets(工作表名称或工作表序号)

移动到指定工作表之后：

Sheets（工作表名称或工作表序号）.Move After:=Sheets(工作表名称或工作表序号)

8.5    删除工作表

    删除指定工作表：Sheets（工作表名称或工作表序号）.Delete

Sheets（”Sheet2”）.Delete

Sheets（2）.Delete

   根据条件删除工作表

删除工作表名左边两位字符等”gz”的工作表

Private Sub 删除满足条件工作表

        Dim I as integer

For i = .Sheets.Count To 1 Step -1

              With .Sheets(i)

              If Left(.NAME, 2)="gz" Then

                  .Delete

             End If

          End With

        Next i

       End Sub

8.6    工作表命名

修改指定工作表名称：Sheets（工作表名称或工作表序号）.Name=工作表名称

         把工作表Sheet2命名为GZSheet

Sheets（”Sheet2”）.Name=”GZSheet”

Sheets（2）.Name=”GZSheet”

      注意：工作表的名称在一个工作中必须是唯一的，且不区分大小写和全半角的。也就是说在工作簿中把名称“SHEET2” ,”sheet2”看成是相同的名称。

8.7 工作表的保护

    1.工作表的保护

Sheets（工作表名称或工作表序号）.Protect  password:=密码

2.解除工作表的保护

Sheets（工作表名称或工作表序号）.Unprotect  password:=密码