VBA——Worksheet操作

VBA操作Excel中常用对象Worksheet的方法笔记，所有内容均来源于别怕，Excel VBA其实很简单。

WorkSheet操作

属性汇总

方法汇总

引用工作表

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对话框