如何在 Excel 中添加带有当前日期的新工作表？

---

您的工作簿中不断添加新的工作表。有时手动完成所有操作可能显得非常繁琐（尤其是在需要添加多个工作表时）。

自动化这些单调的任务是解决问题的快速简便方法。

使用 VBA 添加带有当前日期的新工作表

我编写了应用程序 VBA (Visual Basic for Applications) 代码，用于在工作表的末尾添加新的工作表，并将其标签命名为“当前日期”。

步骤 1

首先保存文件，然后转到“开发工具”菜单并选择“Visual Basic”。

或者，

只需按 ALT + F11 即可打开 Visual Basic 编辑器。

步骤 2

要访问项目的“工作簿”，请在“项目”面板中右键单击其名称。

步骤 3

要访问 VBA 编辑器，请转到“插入”菜单并选择“模块”。

这是 VBA 编辑器。

步骤 4

将下面列出的代码之一输入编辑窗口（根据您的需求）。

Sub AddAndNameWithCurrentDate()
'Step 1: Tell Excel what to do in the event of an error.
 On Error GoTo Error
'Step 2: Create a new worksheet and give it a name that is
easily identifiable.
 Sheets.Add 'Create a new worksheet, and the name of the
sheet will be Sheet1 by default.
 ActiveSheet.Name = Format(Date, "dd-mm-yyyy") 'name with
the current date, this row may be deleted if all you want to
do is add another sheet.
 Exit Sub
'Step 3: If there was a problem here, the user should be informed.
Error:
 MsgBox "That is the name of an existing Worksheet in the
spreadsheet."
End Sub

在 VBA 环境中结束编辑。要响应新工作表，您应该创建一个按钮。

步骤 5

通过在“开发工具”选项卡中选择“插入”选项并单击它来创建按钮。

步骤 6

在此按钮内放置分配的宏脚本。然后按“确定”。

步骤 7

这是生成的按钮；您可以根据您的规格对其进行重命名。

现在，单击此新按钮以查看其功能。

如您所见，单击该按钮会打开一个带有当前日期的新工作表。

手动添加带有当前日期的新工作表

考虑您正在编译各种任务所花费的时间记录，并希望快速输入当前日期的场景。或者，您可能希望以在每次重新计算公式时自动触发的形式，在工作表中显示当前日期。在将今天的日期插入工作表时，可以使用几种不同的方法。

步骤 1

首次启动 Microsoft Excel 时，会显示一个菜单，其中提供多个工作表的选项，如下所示。

步骤 2

您可以选择一个与先决条件相对应的工作表。暂时创建一个空白工作表。空白工作表如下所示。

步骤 3

您可能会遇到需要将其他工作表附加到现有工作表侧面的情况。Excel 工作簿是保存在一个位置的一组 Excel 工作表。右键单击底部工作表跟踪托盘中的工作表名称，即可将新的工作表插入文档中。这在下面的图像中显示。

步骤 4

从现在可用的选项列表中选择“新建工作表”选项，创建如下所示的新工作表。

步骤 5

您将看到一个新的对话框出现在屏幕上，您可以在其中选择添加新工作表的选项。

步骤 6

您可以通过右键单击工作表名称并从对话框中选择“重命名”选项，为 Excel 工作表重命名，如下面的图像所示。

步骤 7

例如，您可以将此工作表从“Sheet1”重命名为“当前日期”。

结论

在本教程中，我们解释了如何在 Excel 中添加带有当前日期的新工作表。