在Excel 2007中使用macros创build一个新工作表

我只是一个新的开始，并希望通过使用macros创build一个新的spreatsheet。 我有这样的代码。我的代码没有复制空白，但新的工作表的宽度和高度不同于原始的（Blankform），我想

1. locking列B6 – 向下和列I6 – 向下。

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

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

谢谢

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