Excel工作表操作.docx

Excel Excel VBA 语法词典 第 第 4 章 工作表操作 第 4 章 工作表操作 在前面章节中，已经详细介绍了单元格对象的操作和内容。在 Excel VBA 中，Worksheet 对象表示 Excel 工作表，是 Worksheets 集合的成员。Worksheets 集合表示某个工作簿中所 有的 Worksheet 对象。 用户可以通过在 VBA 代码中使用 Worksheets 集合对象增加、删除工作表等常见操作。 同时，用户可以使用 Worksheet 对象的事件控制工作表的行为。在本章中，将详细讲解如 何在 VBA 中使用工作表对象 4.1 操作工作表 工作表是用户十分熟悉的对象，许多关于 Excel 的操作都是基于工作表的。例如，插 入、删除、选择和保护工作表等。在 Excel VBA 中，用户可以通过代码对工作表进行各种 常见操作。 案例 57 插入工作表 1．功能说明 在 Excel 中，用户经常需要添加新的工作表，来添加新的数据。默认情况下，工作薄 中包含三个工作表。当用户需要新的工作表时，则需要插入工作表。在 Excel VBA 中，用 户可以使用 Add 方法来插入工作表。 2．语法说明 在 Excel VBA 中，使用 Worksheets 集合对象的 Add 方法，可向指定工作簿中增加工 作表，该方法的语法格式如下： 表达式.Add(Before, After, Count, Type) 该方法共有 4 个参数，这些参数都可省略。各参数的含义如下： ? Before：指定工作表的对象，新建的工作表将置于此工作表之前。 ? After：指定工作表的对象，新建的工作表将置于此工作表之后。 ? Count：要添加的工作表数。默认值为 1。 ? Type ：指 定 工 作表类 型 。可以 为 xlWorksheet （ 工 作表 ）、 xlChart （图表 ）、 xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。 提示：如果省略参数 提示：如果省略参数 Before 和 After，则新工作表插入到活动工作表之前。新建的工作表将成为活动工 作表。 116 3．案例说明 某公司统计了部分员工的上下半年销量，现在需要对该数据进行处理，因此，希望在 原始数据的基础上添加新工作表，原始数据如图 4.1 所示。 图 4.1 原始数据 4．编写代码 插入工作表的 VBA 代码如下： Sub Sub InsertNewSheets() Dim Str As String On Error Resume Next Str = Application.InputBox(prompt:=选择插入的工作表：, Title:=确定插入位置, Type:=2) Worksheets.Add before:=Worksheets(Str) End Sub 5．运行结果 运行程序代码，输入插入工作表的位置，如图 4.2 所示。 图 4.2 选择插入工作表的位置  117 单击对话框中的“确定”按钮，查看添加的结果，如图 4.3 所示。 图 4.3 查看添加的工作表 6．程序分析 在上面的程序代码中，提示用户输入工作表名称，再使用 Add 方法的 Before 参数指 定将新增加的工作表放在该工作表之前。在程序中使用了 On Error 错误捕获语句，用来捕 获用户输入的工作表名称不存在时的错误提示。用户可以直接增加工作表，代码很简单， 使用无参数的 Add 方法即可，具体代码如下： Worksheets.Add 案例 58 复制工作表 1．功能说明 复制工作表同样是十分常见的操作，当各个工作表的结构或者数据运算结构十分相似 的时候，复制工作表以节省大量的工作。在 Excel VBA 中，用户同样可以代码实现复制工 作表的功能。 2．语法说明 在 Excel VBA 中，用户可以使用 Worksheet 对象的 Copy 方法复制工作表。其语法格 式如下： 表达式.Copy(Before, After) Copy 方法的两个参数都可省略，各参数的含义如下： ? Before：将要在其之前放置所复制工作表的工作表。如果指定了 After，则不能指定 Before。 ? After：将要在其之后放置所复制工作表的工作表。如果指定了 Before，则不能指定 After。 118 3．案例说明 某公司统计了各分公司员工的上下半年销量，现在需要对该数据进行处理，因此，用 户需要根据分公司数，复制不同数目的工作表，原始数据如图 4.4 所示。 图 4.4 原始数据 4．编写代码 复制工作表的 VBA 代码如