excel怎么根据模板建一个新的表格，完了以后原模板还在，新excel出来

发布网友 发布时间：2022-04-24 02:39

我来回答

共1个回答

热心网友 时间：2023-10-22 12:24

模版的工作表名为“新建”，然后设置新建按钮并使用下面的新建代码：
Sub 新建()
Dim x As Integer, sh As Worksheet, y As String
Sheets("新建").Visible = True
x = Sheets.Count
Sheets("新建").Copy after:=Sheets(2)
Set sh = ActiveSheet
y = InputBox("请输入工作表名称：", "表名输入", "练习" & x - 1, 5000, 6000)
If y = "" Then
ActiveSheet.Delete
Sheets("目录").Select
Else
sh.Name = y
End If
Sheets("新建").Visible = False
End Sub

热心网友 时间：2023-10-22 12:24

模版的工作表名为“新建”，然后设置新建按钮并使用下面的新建代码：
Sub 新建()
Dim x As Integer, sh As Worksheet, y As String
Sheets("新建").Visible = True
x = Sheets.Count
Sheets("新建").Copy after:=Sheets(2)
Set sh = ActiveSheet
y = InputBox("请输入工作表名称：", "表名输入", "练习" & x - 1, 5000, 6000)
If y = "" Then
ActiveSheet.Delete
Sheets("目录").Select
Else
sh.Name = y
End If
Sheets("新建").Visible = False
End Sub

热心网友 时间：2023-10-22 12:24

模版的工作表名为“新建”，然后设置新建按钮并使用下面的新建代码：
Sub 新建()
Dim x As Integer, sh As Worksheet, y As String
Sheets("新建").Visible = True
x = Sheets.Count
Sheets("新建").Copy after:=Sheets(2)
Set sh = ActiveSheet
y = InputBox("请输入工作表名称：", "表名输入", "练习" & x - 1, 5000, 6000)
If y = "" Then
ActiveSheet.Delete
Sheets("目录").Select
Else
sh.Name = y
End If
Sheets("新建").Visible = False
End Sub