用于添加和命名新工作表的Excel宏 - 虚拟变量

其中一个最简单的工作表相关的自动化可以在Excel中应用一个宏是添加和命名一个新的工作表。以下是宏如何工作以及如何使用它。

宏的工作方式

当您通读代码行时，您会发现该宏相对直观：

Sub Macro1（）'步骤1：告诉Excel如果错误On错误转到MyError“步骤2：添加一个工作表并将其命名为工作表。添加ActiveSheet。名称= _ WorksheetFunction。 Text（Now（），“m-d-yyyy h_mm_ss 

am / pm”）Exit Sub'步骤3：如果这里发生错误，告诉用户MyError：MsgBox“已经有一张表单叫做”。 End Sub

您必须预料，如果您给新的工作表一个已经存在的名字，就会发生错误。因此，在步骤1中，宏会告诉Excel立即跳到MyError（在步骤3）如果有错误的行。

<！ - 1 - >

步骤2使用Add方法添加一个新工作表。默认情况下，图纸称为图纸 xx， 其中 xx 表示图纸的编号。通过更改ActiveSheet对象的Name属性，为表单指定一个新名称。在这种情况下，您使用当前日期和时间命名工作表。

与工作簿一样，每次使用VBA添加新工作表时，新添加的工作表自动成为活动工作表。最后，在步骤2中，请注意该宏退出该过程。它必须这样做，以便它不会意外进入步骤3（只有在发生错误时才起作用）。

<！ - 2 - >

步骤3通知用户表单名称已经存在。同样，只有在发生错误时才应激活此步骤。

如何使用宏

要实现此宏，可以将其复制并粘贴到标准模块中：

1. 按Alt + F11激活Visual Basic编辑器。

2. 在项目窗口中右键单击项目/工作簿名称。

3. 选择插入→模块。

4. 在新创建的模块中键入或粘贴代码。