第5章 Worksheet(工作表)对象.pptxVIP

第3课 Worksheet（工作表）对象知识点认识工作表对象引用工作表对象对工作表对象进行处理限制工作表滚动区域保护工作表一、Worksheet对象和 Worksheets集合Worksheet 对象：代表一个工作表Worksheets 对象：指定的或活动工作簿中所有 ms-help://MS.EXCEL.DEV.12.2052/EXCEL.DEV/content/HhtmWorksheet 对象的集合Worksheet.Cells 属性 ：返回一个 ms-help://MS.EXCEL.DEV.12.2052/EXCEL.DEV/content/HhtmRange 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。Worksheet.Columns 属性：返回一个 ms-help://MS.EXCEL.DEV.12.2052/EXCEL.DEV/content/HhtmRange 对象，它代表活动工作表中的所有列Worksheet.Name 属性：返回或设置一个 String 值，它代表对象的名称二、引用工作表的方式VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法：使用工作表的名称使用工作表的索引号使用工作表的代码名称使用ActiveSheet属性引用活动工作表2.1、使用工作表的名称作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合（可简写为Sheets）来引用，如下面的代码所示： Worksheets(工作表名).ActivateWorkSheets集合包含所有的工作表任何时刻工作簿中只有一个工作表是活动工作表例：Sub 使用工作表名激活工作表()Worksheets(sheet2).ActivateEnd Sub2.2　使用工作表的编号工作表编号（索引号）是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。 Worksheets(1).Select该代码选中并激活当前工作簿中第1个工作表使用Worksheet对象的Index属性可以返回工作表的编号：MsgBox Worksheets(工作表名).Index (即在工作薄中的编号)例：Sub 使用工作表编号激活工作表()Worksheets(3).selectMsgBox Worksheets(工作表名).IndexEnd Sub2.3、使用工作表的代码名称工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。 sheet6.Activate例：Sub　使用代码名称激活工作表()Sheet3.ActivateEnd Sub3、使用ActiveSheet属性引用活动工作表使用ActiveSheet属性可以返回当前活动工作表 MsgBox ActiveSheet.Name工作表的添加与删除在工作簿中添加工作表使用Add方法，语法如下expression.Add(Before, After, Count, Type)参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。参数Count可选，要新建的工作表的数目。默认值为 1参数Type可选，指定新建的工作表类型。工作表的添加与删除Sub Addsh() Dim Sh As Worksheet With Worksheets Set Sh = .Add(after:=Worksheets(.Count)) Sh.name = 数据 End WithEnd SubAddsh过程使用Add方法在工作簿中新建“数据”工作表三、工作表的添加与删除3.1、工作表对象的Delete方法删除指定的对象，语法如下： expression.Delete参数expression是必需的，该表达式返回“应用于”列表中的对象之一例如：Sheet7.Delete 3.2、工作表中插入行在工作表的中插入空行，需要使用Insert方法Sheet1.Rows(3).Insert在sheet1的第2行和第3行之间插入一行空行Insert方法应用于Range对象时在工作表中插入一个单元格或单元格区域，其他单元格作相应移位以腾出空间3.3、限制工作表的滚动区域限制工作表中滚动的区域，可以通过设置WorkSheet对象的ScrollArea属性来实现。Scroll