如何快速新建工作表

天边2021

如图，每日工作表的结构相同，行、列相同，如何用代码实现快速新建工作表，当选中任意一张工作表标签，按鼠标右建执行“”复制或移动”操作生成新的工作表后，新工作表呈现上图所示效果，即标题标题等固定字段保留、其他内容自动清空。

3190496160

Sub 新建工作表()
Application.DisplayAlerts = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim sh As Worksheet
For Each sh In Sheets
    d(sh.Name) = ""
Next sh
w = InputBox("请输入新建工作表名称", "名称", Date)
If w = "" Then End
If d.exists(Format(w, "m月d日")) Then MsgBox "名称已存在": End
ActiveSheet.Copy before:=Sheets(1)
With Sheets(1)
    .Name = Format(w, "m月d日")
    .[b1] = w
    .[d1] = "A产线产量明细"
    .Range("b4:n13") = Empty
End With
Application.DisplayAlerts = True
End Sub

3190496160

3190496160

快速新建工作表.rar (34.43 KB, 下载次数: 2)

2023-4-24 09:22 上传

点击文件名下载附件

天边2021

3190496160 发表于 2023-4-24 09:22

非常感谢！

天边2021

3190496160 发表于 2023-4-24 09:21

谢谢，想不用控件，只在执行复制工作表操作时，代码就运行  可以吗？

ykcbf1100

用一个模板表好了，每次新建表时复制模板表就可以了。

3190496160

天边2021 发表于 2023-4-24 09:57
谢谢，想不用控件，只在执行复制工作表操作时，代码就运行  可以吗？

vba好像没有提供修改工作表名称的事件吧？
当然，也许是我孤陋寡闻