Ecel VBA编程 新建和删除工作表.docxVIP

Excel VBA 编程 新建和删除工作表 当用户制作的报表中工作表的数量超过3 个，可以为工作簿新建工作表。另外，对于工作簿中不需要的工作表，可以将其删除，以方便用户查看其他工作表中的数据。 1．新建工作表 无论工作簿中工作表的数量有多少个，为了在这些工作表的最后添加一个工作表，可以使用 Add 方法来实现，其代码如下： Sub Sub 新建工作表() Sheets.Add After:=Sheets(Sheets.Count) End Sub 在上面的代码中使用 Sheets.Count 属性进行返回一个 Long 值，它代表集合中对象的数量。语法：表达式.Count Sub 新建 Sub 新建() Sheets.Add End Sub 2．删除工作表 用户可以对不需要的工作表，进行删除。在 VBA 中，用户可以使用 Sheets.Delete 方法删除工作表。 语法：表达式.Delete 其中，表达式为一个代表 Sheets 对象的变量。 例如，输入以下代码，即可删除被选择的工作表。 Sub Sub 删 除 () Application.DisplayAlerts = False ActiveWindow.SelectedSheets.delete Application.DisplayAlerts = True End Sub 在上面的代码中，使用了 Application.DisplayAlerts 属性，该属性表示如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该属性值为True。 语法：表达式.DisplayAlerts 在该属性的使用过程中，应注意以下几点内容： 该属性的默认值为 True。但如果用户不想在宏运行时被无穷无尽的提示和警告消息所困扰，可以将本属性设置为 False；这样每次出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。 如果将该属性设置为 False，则在代码运行结束后，Micorosoft Excel 将该属性设置为 True。 Sub 删除工作表()Dim Sub 删除工作表() Dim sh As Worksheet, s As New Collection, t, has As Boolean 将选定工作表的名称添加到集合s For Each sh In ActiveWindow.SelectedSheets s.Add sh.Name Next Next Application.DisplayAlerts = False For Each sh In Sheets has = True For Each t In s If sh.Name = t Then has = False: Exit For Next If has = True Then sh.delete Next Application.DisplayAlerts = True End Sub