Question

我创建了一个excel宏，允许用户插入新客户端，并根据客户端名称创建工作表。我是如何使用以下代码创建的：Sheets("Template").Copy After:=Sheets("Template") Sheets("Template (2)").Visible = True Sheets("Template (2)").Name = ClientAbbrev

所以这样做是创建一个隐藏的模板表的副本，并创建一个以客户端缩写命名的新选项卡。这个新的条目＆＃39;通常插在两个书的两端之间。 - 模板和模板结束。所以新插入的标签会在这里：模板，新标签在这里，模板结束。

现在我已经隐藏了模板和模板结束，当我插入新客户端而不是像上面那样，它看起来像这样：模板，模板结束，NEW TAB HERE。

这是一个问题，因为我有一个求和数组，它接收开始和结束选项卡之间的所有数据，现在它似乎不起作用，除非书本结尾选项卡不被隐藏。任何人都可以对此有所了解，或者告诉我如何编写一个宏来专门在这两个标签之间插入标签？

谢谢！

Answer 1

试试这个：

Option Explicit

Public Sub addNewSheet()
    Dim t As Worksheet, ws As Worksheet
    Set t = ThisWorkbook.Worksheets("Template")
    t.Copy After:=t
    Set ws = ThisWorkbook.Worksheets(t.Index + 1)
    With ws
        .Visible = True
        .Name = "New client"
    End With
End Sub

在两个特定工作表

1 个答案: