第5章 Worksheet(工作表)对象

工作表的添加与删除
Addsh过程使用Add方法在工作簿中新建“数据 ”工作表
Sub Addsh() Dim Sh As Worksheet With Worksheets Set Sh = .Add(after:=Worksheets(.Count)) Sh.name = "数据" End With End Sub
限制工作表的滚动区域
在VBE中的工程管理窗口选择相 应工作表对象，然后在其属性窗 口中设置ScrollArea属性，即可 限制工作表中滚动的区域，如图 所示。 但是Excel不会记忆该项设置， 当再次打开该工作簿时， ScrollArea属性将被重置，用户 必须重新设置ScrollArea属性才 能限制工作表中的滚动区域
使用Worksheet对象的Index属性可以返回 工作表的编号： MsgBox Worksheets("工作表名").Index (即在工作薄中的编号)
Fra Baidu bibliotek
例：
Sub 使用工作表编号激活工作表()
Worksheets(3).select MsgBox Worksheets("工作表名").Index
三、工作表的添加与删除
3.1、工作表对象的Delete方法删除指定的对象， 语法如下：
expression.Delete
参数expression是必需的，该表达式返回“应用于”列表 中的对象之一 例如：Sheet7.Delete
3.2、工作表中插入行
在工作表的中插入空行，需要使用Insert方法
第3课 Worksheet（工作表）对象
知识点
认识工作表对象 引用工作表对象 对工作表对象进行处理 限制工作表滚动区域 保护工作表
一、Worksheet对象和 Worksheets集合
Worksheet 对象：代表一个工作表 Worksheets 对象：指定的或活动工作簿中所有 Worksheet 对象的集合
Sheet3.Activate End Sub
3、使用ActiveSheet属性引用活动工作表
使用ActiveSheet属性可以返回当前活动工 作表
MsgBox ActiveSheet.Name
工作表的添加与删除
在工作簿中添加工作表使用Add方法，语法如下 expression.Add(Before, After, Count, Type)
Private Sub Worksheet_Activate()
sheet2.Select End Sub 注意：实际上是在打开sheet1时将活动工 作表转移到sheet2上面。
对指定区域保护
对其中一张工作表的指定区域进行保护方 法： １，选择其中一张工作表； ２，在事件中选择“SelectionChange” ３，输入以入代码：
Sheet1.Rows(3).Insert 在sheet1的第2行和第3行之间插入一行空行
Insert方法应用于Range对象时在工作表中插入一 个单元格或单元格区域，其他单元格作相应移位以 腾出空间
3.3、限制工作表的滚动区域
限制工作表中滚动的区域，可以通过设置 WorkSheet对象的ScrollArea属性来实现。 ScrollArea属性使用以A1样式的区域引用形式（ 字符串类型）返回或设置工作表允许滚动的区域 。当设置了工作表滚动区域之后，用户不能选定 滚动区域之外的单元格，但仍然可以选定区域之 外的其他对象（例如图形、按钮等），同时工作 表的一些相应功能可能被禁止（例如工作表全选 、选中整行或整列等）。
End Sub
2.3、使用工作表的代码名称
工作表的代码名称显示在VBE工 程资源管理器窗口中，在属性窗 口中能够修改工作表代码名称， 在VBA中能够直接使用工作表的 代码名称引用工作表，即使工作 表的名称被修改，代码仍然能够 正常运行。 sheet6.Activate
例：
Sub 使用代码名称激活工作表()
二、引用工作表的方式
VBA中，在不同的工作表之间转换或者对不同工作 表中的单元格区域进行操作时，需要指定引用的工 作表，通常有下面几种方法：
使用工作表的名称 使用工作表的索引号 使用工作表的代码名称 使用ActiveSheet属性引用活动工作表
2.1、使用工作表的名称
作表名称是指显示在工作表标签中的文本，工作 表名称可以使用WorkSheets集合（可简写为 Sheets）来引用，如下面的代码所示： Worksheets("工作表名").Activate
四、工作表的保护与解除保护
在实际应用中，为了防止在使用过程中修改或无 意中修改这些设置。 方法１：一般使用Excel的工作表保护功能来保护 这些设置。
Sub Prot () Sheet5.Cells(1, 4) = 100 Sheet5.Protect Password:="12345" End Sub
WorkSheets集合包含所有的工作表 任何时刻工作簿中只有一个工作表是活动工作表
例：
Sub 使用工作表名激活工作表()
Worksheets("sheet2").Activate End Sub
2.2
使用工作表的编号
工作表编号（索引号）是指工作表在工作簿中的位 置，Excel根据工作表在工作表标签中的位置以1开 始从左向右进行编号。 Worksheets(1).Select 该代码选中并激活当前工作簿中第1个工作表
工作表的解除保护
Sub jcProt () Sheet5.UnProtect Password:="12345" Sheet5.Cells(1, 4) = 200 End Sub
解除保护，并对相应单元格重新填入新值
对其中一张工作表进行保护方法２： １，选择其中一张工作表； ２，在事件中选择“active” ３，假设对sheet1进行保护，则可以在事 件中，输入以入代码：
限制工作表的滚动区域
解决方法是：在thisworkbook中选择事件 “workbook_open” 并对ScrollArea属性进行设置，如 下： Private Sub workbook_open() Sheet3.ScrollArea ＝"a1:g5" End Sub 工作簿的Open事件，在打开该工作簿时设置Sheet3工作 表的滚动区域为“a1:g5”单元格区域。 如果需要取消滚动区域的限制，可以将ScrollArea属性值 设置为空 Sheet1.ScrollArea = ""
Worksheet.Cells 属性 ：返回一个 Range 对象，它代表工作表中的所有单 元格（不仅仅是当前使用的单元格）。 Worksheet.Columns 属性：返回一个 Range 对象，它代表活动工作表中 的所有列 Worksheet.Name 属性：返回或设置一个 String 值，它代表对象的名称
参数Before是可选的，指定工作表对象，新建的工作表 将置于此工作表之前。 参数After是可选的，指定工作表对象，新建的工作表 将置于此工作表之后。 如果Before和 After两者均省略，则新建的工作表将插 入到活动工作表之前。 参数Count可选，要新建的工作表的数目。默认值为 1 参数Type可选，指定新建的工作表类型。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String If Target.Column = 1 Then str = Application.InputBox("请输入修改密码") If str = 123 Then Application.EnableEvents = False End If Else Application.EnableEvents = True End If End Sub
单元项目实训：
1、编写事件代码，实现对sheet1工作表A1 至F8之间区域的保护，即禁止选择此区域 。 2、编写程序代码，实现对sheet2的保护， 要求用密码进行保护，禁止更改任何内容 。