excel - 在 excel 2007 中使用宏创建新工作表

Question

我只是一个新手，想使用宏创建一个新的电子表格。我有这样的代码。我的代码确实复制了空白，但新工作表的宽度和高度与原来的（空白表格）不同，我想要

1. 锁定 B6 列向下和 I6 列向下。

2. 是否有可能我可以创建一个弹出窗口并询问新工作表的名称并命名新电子表格。

对于这里的大多数人来说，这应该很简单，但对我来说，我真的很难。所以请帮忙。

谢谢

Sub CreateNewSheet()

Sheets("Blank form").Select
ActiveWorkbook.Sheets.Add after:=ActiveSheet
Sheets("Blank form").Range("a1:f281").Copy
Range("a1").Select
ActiveSheet.Paste
Range("a1").Select
Application.CutCopyMode = False
Sheets("Blank form").Select
Range("a1").Select
End Sub

Answer 1

尝试这个

Sub CreateNewSheet()
dim sName as string
Sheets("Blank form").copy after:=activesheet

sname=inputbox("Enter new sheet name")
on error resume next
activesheet.name=sname
if err<>0 then msgbox "Name not valid"
err.clear
on error goto 0

End Sub