Question

用vba新建sheet，并自动命名，点击单元格可以连接

有一个模板sheet，还有一个sheet1，单击sheet1中的单元格，可以复制出一个新的模板sheet，并且以点击的单元格的内容命名。如何用vba实现。多谢高手解决，分数不多～～

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Target.Text <> "" Then

    Sheets.Add After:=Sheets(Sheets.Count)

    Sheets(Sheets.Count).Name = Target.Text

    Sheet2.Select           '假设你的模板为sheet2

    Sheet2.Cells.Select

    Selection.Copy

    Sheets(Sheets.Count).Select

    ActiveSheet.Paste

    End If

End Sub

代码如上，不过，如果你单元格中的内容不符合命名规则那就无法按你的单元格内容命名了。

Answer 2

你即然是有一个模板，那么，直接复制模板的工作表，并命名，写起代码来会更简单。我给你做样子

此附件实现功能如下：

1. 点击sheet1工作表的A列姓名时发生事件；

2. 如果此姓名工作表已经存在，提示工作表存在并打开该工作表；

3. 如果此姓名工作表不存在，则按模板建立新的工作表，并以该姓名命名工作表。

4. 此例中的姓名和模板直接改你要的就行了，姓名只是单元格的内容，就是按单元格的内容来判断工作表的。