怎样写才能将新增工作表动作变为复制样表副本？

lk710618

各位老师好，又来求指导


如果我希望在表格中点击“新增工作表”时，新增出来的表格不是一个全新的裸表，而是跟样表一模一一样，也就是相当于：
右键点击样表→移动或复制→建立副本→移到最后
这样一整套动作得到一个新表

我用录制宏得到的记录是：

Sub 宏1()
'
' 宏1 宏
'
    Sheets.Add After:=ActiveSheet
    Sheets("样表").Select
    Sheets("样表").Copy After:=Sheets(10)
End Sub

请问老师，我怎样调整VBA，才能让“复制样表副本”这个动作在点击“+”号的“新增工作表”中一次性完成？

lk710618

Qs18 发表于 2024-9-14 12:41
我暂时收到信息是复制杨表。其他的需要没有收到，可以详细的写。最好做一个示范的步骤。

谢谢老师
可能是我描述的不完整，需求没讲清楚。
现在我想要的功能已经都做上了，我把完成好的附件也放上来，如对自动目录功能有需求的朋友，可以下载参考使用

目标表的主要功能有：
1、目录自动生成；
2、直达指定页面（工作表很多时非常方便）；
3、点击新增工作表，自动增加设计好的模版页面；
4、每个页面都有左右页面切换和返回目录的快捷按钮。

MOY838840554

代码放到thisworkbook里

1. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
2.     Application.DisplayAlerts = False
   
3.     Sh.Delete '删除新增的空白表
   
4.      Sheets("样表").Copy After:=Sheets(Sheets.Count)
   
5.      Application.DisplayAlerts = True
   
6. End Sub

复制代码

MOY838840554

代码审核,看截图

lk710618

MOY838840554 发表于 2024-9-14 10:22
代码审核,看截图

太强大了，基本看明白，试了一下，完全满足我的需求，感谢感谢

Qs18

1. Sub qs()
   
2.     Sheets("样表").Copy , Sheets(Sheets.Count)
   
3.     Sheets("样表").Select
   
4. End Sub

复制代码

Qs18

试试看。。。。。。。。。

Qs18

试试。。。。。。

lk710618

MOY838840554 发表于 2024-9-14 10:22
代码审核,看截图

大神，再请教一下

我平时会将“样表”隐藏起来发给别人使用，这时点击“+”号新增样表时，复制出来的工作表也是跟样表一样隐藏的，如何才能能加一句话，怎样让新增的表自动变成非隐藏状态呢？

我加上这一句：Sheets("样表 (2)").Visible = True
点击第一次增加是可以的，但继续增加时，由于新增的表名在变化，后面的就不好解决了，大神一定有办法，麻烦再指点一下

lk710618

Qs18 发表于 2024-9-14 10:37
试试。。。。。。

感谢帮助
从纯功能的角度，老师的方案完全能满足需求。

不过我这个需求，本身就是解决懒人的需求，其实自己右键样表选复制，本身也是可以解决问题的，就是多几个步骤而已，按老师的方案，每次新建还是要回到样表去点击控件，还是不如点“+”来的方便，所以我还是希望在新增工作表上做优化

再次感谢相助

lk710618

MOY838840554 发表于 2024-9-14 10:22
代码审核,看截图

哦哦，我想到一个方案了，先VBA将样表取消隐藏，等复制样本副本后，再隐藏样表，一气呵成，哈哈
看看老师还有没有什么更优方案了