VBA操作Excel中常用对象Worksheet的方法笔记，所有内容均来源于别怕，Excel VBA其实很简单。
WorkSheet操作
属性汇总
| 属性名称 | 属性内容 | 例子 |
|---|---|---|
| CodeName | 代码名称 | ActiveSheet.CodeName |
| Count | 工作表总数量 | Worksheets.Count |
| Name | 标签名称 | ActiveSheet.Name |
| Visible | 显示 | Worksheets.Visible = xlSheetHidden |
| Index | 索引号 | |
| UsedRange | 所用单元格（无视空行、空列） | ActiveSheet.UsedRange.Select |
方法汇总
| 方法名称 | 方法内容 | 例子 |
|---|---|---|
| Item | 索引工作表 | Worksheets.Item(1) |
| Add | 新建工作表 | Worksheets.Add |
| Delete | 删除工作表 | Worksheets("Sheet1").Delete |
| Activate | 激活工作表 | Worksheets(1).Activate |
| Select | 选中工作表 | Worksheets(1).Select |
| Copy | 复制工作表 | Worksheets("工资表").Copy |
| Move | 移动工作表 | Worksheets("工资表").Move |
| Paste | 黏贴剪切板内容 | ActiveSheet.Paste |
引用工作表
Worksheets.Item(1) '引用工作簿中的第1张工作表
Worksheets(1) '引用工作簿中的第1张工作表
Worksheets("Sheet1") '引用工作簿中标签名称为"Sheet1"的工作表
Sheet1 '用代码名称直接引用工作表
ActiveSheet.CodeName '查看活动工作表的代码名称
新建工作表Add
Worksheets.Add before:= Worksheets(1) '在第一张工作表前插入1张新工作表
Worksheets.Add after:= Worksheets(Worksheets.Count) '在最后一张工作表后插入1张新工作表
Worksheets.Add before:= Worksheets(1), Count:=3 '在第一张工作表前插入3张新工作表
Worksheets.Add(after:= Worksheets(1)).Name) = "工资表" '在新建工作表时指定标签名称
删除工作表Delete
Worksheets("Sheet1").Delete '删除标签名为Sheet1的工作表
Application.DisplayAlerts = False '删除工作表时不显示警告对话框
激活工作表Select/Activate
Worksheets(1).Activate '激活第一张工作表
Worksheets(1).Select '选中表
Worksheets.Select '选中所有的工作表
当工作表隐藏时，Select会出错；Activate不能同时选中多张工作表。
复制工作表Copy
带参数的Copy将复制到同一工作簿，不带参数的Copy将复制到新工作簿。
Worksheets("工资表").Copy after:=Worksheets("职工档案") '将工资表复制到职工档案后
Worksheets("工资表").Copy '将工资表复制到新工作簿中
Sub ShtCopy() '将工资表复制到新建工作簿中，并且另存为。
Worksheets("工资表").Copy
ActiveSheet.Name = "工资表备份"
ActiveWorkbook.SaveCopyAs "D:\工资表备份.xls"
ActiveWorkbook.Close False
END Sub
移动工作表Move
Worksheets("工资表").Move before := Worksheets("出勤表")
Worksheets("工资表").Move '不指定参数将移动到新工作簿中
隐藏或显示工作表
'以上三句代码等同于从【格式】菜单隐藏工作表
Worksheets('工资表').Visible = False
Worksheets('工资表').Visible = xlSheetHidden
Worksheets('工资表').Visible = 0
'超级隐藏工作表
Worksheets('工资表').Visible = xlSheetVeryHidden
Worksheets('工资表').Visible = 2
'显示工作表
Worksheets('工资表').Visible = xlSheetVisible
Worksheets('工资表').Visible = 1
Worksheets('工资表').Visible = True
Worksheets('工资表').Visible = -1
Sheets分类
Worksheets是Sheets的一个子类。
- 工作表Worksheet
- 图表
- MS Excel 4.0宏表
- MS Excel 5.0对话框
