vba - Excel VBA 重命名错误的工作表

Question

我有一个 excel 启用宏的工作簿，它有 5 张纸。其中一张名为“NC”，另一张名为“SC”。我有部分代码将日期添加到这些工作表的名称中。

Sheets("NC").Name = "NC"& Replace(Date, "/", "-")
Sheets("SC").Name = "SC"& Replace(Date, "/", "-")

然后稍后如果单击重置按钮，我编写了一个代码将它们切换回以前的“NC”和“SC”名称，但这就是我遇到问题的地方。

Sheets(2).Name = "NC"
Sheets(3).Name = "SC"

Sheets(2).Name = "NC"工作正常
Sheets(3).Name = "SC"但是，重命名 Sheet(4)

我认为无论您如何重新排列或重新排列工作表标签，这些工作表代码或工作表编号都不会改变。我不明白为什么它准确地重命名了 Sheets(2) 而不是 Sheets(3)。看看下面我的项目浏览器，它将 Sheets(4) 从“NCToday”重命名为“SC”。 Sheets(3) 在图片中显示“SC”，但因为这是手动重置但您可以看到排列，代码 Sheets(3).Name = "SC"不应该将 Sheets(4) 从 "NCToday"重命名为“SC”。

Answer 1

Sheet(3) 不一定表示 sheet3

例子:


如果我在即时窗口中输入，?worksheets(1).name ，我得到这个结果:

Sheet2

请注意，系统会查看 excel 电子表格(Sheet2、Sheet1、Sheet3)上的工作表顺序，而不是 VBA 项目中的顺序(Sheet1、Sheet2、Sheet3)

要重命名工作表，您可能需要颠倒最初用于重命名它们的方法:

Sheets("SC" & Replace(Date, "/", "-")).Name = "SC"