复制隐藏的模板并放在模板表之后

Question

我使用模板表创建了我的工作表。我还创建了一个按钮来复制模板表并将任何新创建的表放在模板表之后。

如果“模板”可见，一切正常。当我隐藏“模板”时，只有最新创建的工作表可见，其他工作表自动隐藏。

能否请您看一下我的脚本并建议我如何解决这个问题？我希望任何新创建的工作表都可见并放在隐藏的模板工作表之后。

这是我的脚本

Sub NewSheet()
    Dim newWS As Worksheet
    Dim TemplateWS As Worksheet
    Dim newWSName As String
      
Retry:
    newWSName = InputBox("Enter Activity name.", "New Sheet Name")
    If newWSName = "" Then Exit Sub

    For Each ws In Worksheets
        If ws.Name = newWSName Then
            MsgBox newWSName & " exist already. Pick another name.", vbExclamation, "Sheet Name Exists"
            GoTo Retry
        End If

    Next ws
    
    Set TemplateWS = Sheet7
    TemplateWS.Activate
    TemplateWS.Copy After:=ActiveWorkbook.Sheets("template 1")
    ActiveSheet.Name = newWSName
    Range("A1").Select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Summary'!A1", TextToDisplay:="Click to Summary"
    ActiveSheet.Tab.ColorIndex = 19
    
End Sub

一如既往地感谢你。

Answer 1

通常复制的工作表会成为活动工作表，但如果复制的工作表被隐藏，则不会发生这种情况。解决方案是让模板可见，复制然后隐藏。

Option Explicit

Sub NewSheet()

    Dim wsTemplate As Worksheet, ws As Worksheet
    Dim newWSName As String
      
Retry:
    newWSName = InputBox("Enter Activity name.", "New Sheet Name")
    If newWSName = "" Then Exit Sub

    For Each ws In ThisWorkbook.Sheets
        If ws.Name = newWSName Then
            MsgBox newWSName & " exist already. Pick another name.", vbExclamation, "Sheet Name Exists"
            GoTo Retry
        End If
    Next ws
    
    Set wsTemplate = Sheets("Template 1")
    wsTemplate.Visible = True
    wsTemplate.Copy After:=wsTemplate
    With ActiveSheet
        .Name = newWSName
        .Range("A1").Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
         SubAddress:="'Summary'!A1", _
         TextToDisplay:="Click to Summary"
        .Tab.ColorIndex = 19
    End With
    wsTemplate.Visible = False
    
End Sub