如何将工作表名称自动更改为下个月

Question

Sub Test
    Sheets(“August”).Name=“=Text(Eomonth(Today(),1),””mmmm””)”
End sub

当我在月底运行宏时，我试图将工作表2的名称更改为下个月。我该如何做到这一点，而不必手动进行？

Answer 1

使用Format function和{{3}}：

ThisWorkbook.Worksheets("August").Name = Format$(Application.WorksheetFunction.EoMonth(Date, 1), "mmmm")

Answer 2

在VBE中，双击VBAProject窗格中的“ ThisWorkbook”（在下图中突出显示）。

还要在VBAProject窗口中记下要命名的选项卡的图纸编号。括号外的名称将是Sheet1，Sheet2，Sheet3。然后，您可以粘贴此代码，该代码将在每次打开工作簿时执行。

在这里，我将此设置为Sheet1，但请更改为要更改的工作表/标签。

Private Sub Workbook_Open()
    Sheet1.Name = Format(Now(), "mmmm")
End Sub