通過在Excel 2007中使用宏創建新表

Question

我只是一個新手，想通過使用Macro創建一個新的spreatsheet。 我有這樣的代碼。我的代碼確實復制了Blank From，但是新工作表的寬度和高度與origianl一個（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