[已解决]求新建工作表并重命名代码

cb_clx

新增加一个工作表和给一个工作表命名，这个我会写，但是如果要新增加一个工作表同时又要命好名，这个代码如何写呢？请老们帮忙解答一下，谢谢！

最佳答案

月排行榜 / 总排行榜

skyline_zwl

2011-12-9 09:26

1.直接命名新生成的工作表名为B
Sub addsheet()
Dim wk As Worksheet
Set wk = Worksheets.Add
wk.Name = "B"
End Sub

2.用INPUTBOX对话框
Sub addsheet2()
Dim wk As Worksheet
Dim i As Variant
i = InputBox("Please input name")
Set wk = Worksheets.Add
wk.Name = i
End Sub

跳转到最佳答案楼层

skyline_zwl

1.直接命名新生成的工作表名为B
Sub addsheet()
Dim wk As Worksheet
Set wk = Worksheets.Add
wk.Name = "B"
End Sub

2.用INPUTBOX对话框
Sub addsheet2()
Dim wk As Worksheet
Dim i As Variant
i = InputBox("Please input name")
Set wk = Worksheets.Add
wk.Name = i
End Sub

cb_clx

唉，没学通，短道这样设，但没有写成功。

斗笠渔翁

学习了