excel - 从模板创建新电子表格

Question

我正在开发代码，每当文本输入到 A 列中的任何行时，它都会创建模板电子表格的副本。电子表格需要以输入的文本命名。

目前我有以下代码，问题是它没有在我输入的文本之后命名新的电子表格。

代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsNew As Worksheet
    If Target.Cells.Count > 1 Then Exit Sub

    On Error Resume Next
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Set wsNew = Sheets(Target.Text)
        If wsNew Is Nothing Then 
            Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
        End If
        'name new sheet code here

    End If
End Sub

Answer 1

像这样:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsNew As Worksheet
    If Target.Cells.Count > 1 Then Exit Sub

    On Error Resume Next
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Set wsNew = Sheets(Target.Text)
        If wsNew Is Nothing Then 
            Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
        End If
        'name new sheet
        Worksheets(Worksheets.Count).Name = Target.Text
    End If
End Sub

编辑:

用户可以清空 A1:A10 中的单元格这将创建名为“ 模板 (2) ”的新选项卡。您还应该检查:

If Len(Target.Cells.Text) = 0 Then Exit Sub