在Excel 2007中使用宏创建一个新工作表

Question

我只是一个新生儿，想要使用Macro创建一个新的spreatsheet。我有像这样的代码。我的代码确实复制了空白，但新工作表的宽度和高度不同于原始的（Blankform），我想要

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