Worksheet(工作表)对象.ppt

1、第3课 Worksheet（工作表）对象,知识点,认识工作表对象 引用工作表对象 对工作表对象进行处理 限制工作表滚动区域 保护工作表,一、Worksheet对象和 Worksheets集合,Worksheet 对象：代表一个工作表 Worksheets 对象：指定的或活动工作簿中所有 Worksheet 对象的集合 Worksheet.Cells 属性 ：返回一个 Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。 Worksheet.Columns 属性：返回一个 Range 对象，它代表活动工作表中的所有列 Worksheet.Name 属性：返回或设置一个 St

2、ring 值，它代表对象的名称,二、引用工作表的方式,VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法： 使用工作表的名称 使用工作表的索引号 使用工作表的代码名称 使用ActiveSheet属性引用活动工作表,2.1、使用工作表的名称,作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合（可简写为Sheets）来引用，如下面的代码所示： Worksheets(工作表名).Activate WorkSheets集合包含所有的工作表 任何时刻工作簿中只有一个工作表是活动工作表,例,Sub 使用工作表名激

3、活工作表() Worksheets(sheet2).Activate End Sub,2.2使用工作表的编号,工作表编号（索引号）是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。 Worksheets(1).Select 该代码选中并激活当前工作簿中第1个工作表,使用Worksheet对象的Index属性可以返回工作表的编号： MsgBox Worksheets(工作表名).Index (即在工作薄中的编号,例,Sub 使用工作表编号激活工作表() Worksheets(3).select MsgBox Worksheets(工作表名).Index

4、 End Sub,2.3、使用工作表的代码名称,工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。 sheet6.Activate,例,Sub使用代码名称激活工作表() Sheet3.Activate End Sub,3、使用ActiveSheet属性引用活动工作表,使用ActiveSheet属性可以返回当前活动工作表 MsgBox ActiveSheet.Name,工作表的添加与删除,在工作簿中添加工作表使用Add方法，语法如下 expression.Add(B

5、efore, After, Count, Type) 参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。 参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。 如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。 参数Count可选，要新建的工作表的数目。默认值为 1 参数Type可选，指定新建的工作表类型,工作表的添加与删除,Addsh过程使用Add方法在工作簿中新建“数据”工作表,Sub Addsh() Dim Sh As Worksheet With Worksheets Set Sh = .Add(after:=W

6、orksheets(.Count) S = 数据 End With End Sub,三、工作表的添加与删除,3.1、工作表对象的Delete方法删除指定的对象，语法如下： expression.Delete 参数expression是必需的，该表达式返回“应用于”列表中的对象之一 例如：Sheet7.Delete,3.2、工作表中插入行,在工作表的中插入空行，需要使用Insert方法 Sheet1.Rows(3).Insert 在sheet1的第2行和第3行之间插入一行空行 Insert方法应用于Range对象时在工作表中插入一个单元格或单元格区域，其他单元格作相应移位以腾出空间,

7、3.3、限制工作表的滚动区域,限制工作表中滚动的区域，可以通过设置WorkSheet对象的ScrollArea属性来实现。ScrollArea属性使用以A1样式的区域引用形式（字符串类型）返回或设置工作表允许滚动的区域。当设置了工作表滚动区域之后，用户不能选定滚动区域之外的单元格，但仍然可以选定区域之外的其他对象（例如图形、按钮等），同时工作表的一些相应功能可能被禁止（例如工作表全选、选中整行或整列等,限制工作表的滚动区域,在VBE中的工程管理窗口选择相应工作表对象，然后在其属性窗口中设置ScrollArea属性，即可限制工作表中滚动的区域，如图 所示。 但是Excel不会记忆该项设置，当再次

8、打开该工作簿时，ScrollArea属性将被重置，用户必须重新设置ScrollArea属性才能限制工作表中的滚动区域,限制工作表的滚动区域,解决方法是：在thisworkbook中选择事件“workbook_open” 并对ScrollArea属性进行设置，如下： 工作簿的Open事件，在打开该工作簿时设置Sheet3工作表的滚动区域为“a1:g5”单元格区域。 如果需要取消滚动区域的限制，可以将ScrollArea属性值设置为空 Sheet1.ScrollArea =,Private Sub workbook_open() Sheet3.ScrollArea a1:g5 End Sub,四、

9、工作表的保护与解除保护,在实际应用中，为了防止在使用过程中修改或无意中修改这些设置。 方法：一般使用Excel的工作表保护功能来保护这些设置,Sub Prot () Sheet5.Cells(1, 4) = 100 Sheet5.Protect Password:=12345 End Sub,工作表的解除保护,Sub jcProt () Sheet5.UnProtect Password:=12345 Sheet5.Cells(1, 4) = 200 End Sub,解除保护，并对相应单元格重新填入新值,对其中一张工作表进行保护方法： ，选择其中一张工作表； ，在事件中选择“active” ，

10、假设对sheet1进行保护，则可以在事件中，输入以入代码,Private Sub Worksheet_Activate() sheet2.Select End Sub 注意：实际上是在打开sheet1时将活动工作表转移到sheet2上面,对指定区域保护,对其中一张工作表的指定区域进行保护方法： ，选择其中一张工作表； ，在事件中选择“SelectionChange” ，输入以入代码,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.EnableEven