神马文学网第8讲 操作工作表
来源：百度文库 编辑：神马文学网 时间：2024/06/13 00:08:30
作者：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个空白工作表：
这里利用自变量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
选取工作表
选取指定工作表：
Sheets(工作表名称或工作表序号).Select
举例：
Sheets(“Sheet2”).Select
Sheets(2).Select
设置活动工作表：
Sheets(工作表名称或工作表序号).Activate
举例：
Sheets("Sheet2").Activate
Sheets(2). Select
隐藏工作表
隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=0
举例：
Sheets(“Sheet2”).Visible=0
Sheets(2) .Visible=0
取消隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=-1
举例：
Sheets(“Sheet2”).Visible=-1
Sheets(2) .Visible=-1
复制和移动工作表
1.复制
复制到指定工作表之前：
Sheets（工作表名称或工作表序号）.Copy Befor:=Sheets(工作表名称或工作表序号)
复制到指定工作表之后：
Sheets（工作表名称或工作表序号）.Copy After:=Sheets(工作表名称或工作表序号)
2.移动
移动到指定工作表之前：
Sheets（工作表名称或工作表序号）.Move Befor:=Sheets(工作表名称或工作表序号)
移动到指定工作表之后：
Sheets（工作表名称或工作表序号）.Move After:=Sheets(工作表名称或工作表序号)
删除工作表
删除指定工作表：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
工作表命名
修改指定工作表名称：Sheets（工作表名称或工作表序号）.Name=工作表名称
把工作表Sheet2命名为GZSheet
Sheets（”Sheet2”）.Name=”GZSheet”
Sheets（2）.Name=”GZSheet”
注意：工作表的名称在一个工作中必须是唯一的，且不区分大小写和全半角的。也就是说在工作簿中把名称“SHEET2” ,”sheet2”看成是相同的名称。
8.7 工作表的保护
1.工作表的保护
Sheets（工作表名称或工作表序号）.Protect password:=密码
2.解除工作表的保护
Sheets（工作表名称或工作表序号）.Unprotect password:=密码
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个空白工作表：
这里利用自变量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
选取工作表
选取指定工作表：
Sheets(工作表名称或工作表序号).Select
举例：
Sheets(“Sheet2”).Select
Sheets(2).Select
设置活动工作表：
Sheets(工作表名称或工作表序号).Activate
举例：
Sheets("Sheet2").Activate
Sheets(2). Select
隐藏工作表
隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=0
举例：
Sheets(“Sheet2”).Visible=0
Sheets(2) .Visible=0
取消隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=-1
举例：
Sheets(“Sheet2”).Visible=-1
Sheets(2) .Visible=-1
复制和移动工作表
1.复制
复制到指定工作表之前：
Sheets（工作表名称或工作表序号）.Copy Befor:=Sheets(工作表名称或工作表序号)
复制到指定工作表之后：
Sheets（工作表名称或工作表序号）.Copy After:=Sheets(工作表名称或工作表序号)
2.移动
移动到指定工作表之前：
Sheets（工作表名称或工作表序号）.Move Befor:=Sheets(工作表名称或工作表序号)
移动到指定工作表之后：
Sheets（工作表名称或工作表序号）.Move After:=Sheets(工作表名称或工作表序号)
删除工作表
删除指定工作表：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
工作表命名
修改指定工作表名称：Sheets（工作表名称或工作表序号）.Name=工作表名称
把工作表Sheet2命名为GZSheet
Sheets（”Sheet2”）.Name=”GZSheet”
Sheets（2）.Name=”GZSheet”
注意：工作表的名称在一个工作中必须是唯一的，且不区分大小写和全半角的。也就是说在工作簿中把名称“SHEET2” ,”sheet2”看成是相同的名称。
8.7 工作表的保护
1.工作表的保护
Sheets（工作表名称或工作表序号）.Protect password:=密码
2.解除工作表的保护
Sheets（工作表名称或工作表序号）.Unprotect password:=密码