运用VBA触发功能，在目录表中A5单元格输入表4，自动添加表4工作表

xiawangying

现上传的工作簿是添加工作表表4，会在目录表A5单元格上显示表4

而我要求：运用VBA触发功能，在目录表中A5单元格中输入表4，会自动添加表4工作表
           上传的工作簿是根据工作表建立目录簿，我所要求的是根据目录簿添加工作表，
           哪位高手帮帮我！ 目录表.rar (13.48 KB, 下载次数: 25)

2016-3-26 12:36 上传

点击文件名下载附件

xgyzp

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim sht As Worksheet
If Target.Count = 1 And Target.Row = 5 And Target.Column = 1 Then
    Set sht = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    sht.Name = Range("A5").Value
End If
End Sub
貌似和你的WORKSHEET activate 事件有冲突。。。

xiawangying

xgyzp 发表于 2016-3-26 13:04
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim sht As Worksheet

谢谢，要求A列的某个单元格输入名称，自动添加相对应的工作表

胖哥李

也正想学习一下