怎样用VBA在excel中添加一个工作表并且对其命名

Question

是要输入一个新的名称

Answer 1

用VBA在excel中添加一个工作表并且对其命名的实现方法和操作步骤如下：

1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。

3、然后，在“模块”中输入如下代码：

Option Explicit

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)

End Sub

4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。

5、随后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。

6、最后，在弹出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。

Answer 2

1、首先，在Excel中按快捷键Alt+f11。

2、然后，在进入的VBA编辑器中依次点击插入——模块。

3、接着，在模块中输入下面的代码：

Option Explicit

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)

End Sub

4、之后，在VBA编辑器左侧输入模块的名称。

5、如图所示，关闭掉VBA编辑器，返回到Excel工作表中，再依次点击视图——宏——查看宏。

6、最后，在弹出的窗口中点选宏名，再点击执行按钮即可。

Answer 3

Sub AddSh()

Dim sh As Worksheet
Set sh = Sheets.Add
With sh
.Name = "mysh"
End With

End Sub

Answer 4

myName = "ssdtddf"
Sheets.Add after:=Sheets(Sheets.Count)
myIndex = Sheets.Count
Sheets(myIndex).Name = myName

Answer 5

Sub add()
t = InputBox("")
Application.Sheets.add.Name = t
End Sub