Excel中,使用VBA以某一单元格内容命名工作表

Question

我自己写的一部分代码如下,但执行有问题,不知道应该如何写:
需要实现的功能是:
1. 使用每个表中的"G4"单元格内容命名工作表;
2. 错误处理:工作表名重复时命名为"工作表名(1)",工作表名为空格时自动命名为"工作表(i)"
请VBA高手指正,谢谢.

Sub change()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("G4").Value
if n="" then
xxxxxxx(不知道如何写了)
end if
Worksheets(i).Name = n
Next
End Sub

Answer 1

工具/材料：Microsoft Office Excel2007版，Excel表格。 

1、首先选中Excel表格，双击打开。 

2、然后在该界面中，选中要以某一单元格内容命名的工作表，右键点击“查看代码”。

3、再者在该界面中，输入VBA代码“Sub 更改名称度() Dim mYn As String mYn = Cells(1, 1) ActiveSheet.Name = mYn End Sub”。 

4、其次在该界面中，点击“执行”按钮。 

5、、最后在该界面中，成功以某一单元格内容命名工作表。

Answer 2

用万能的VBA可以实现。

例如在A1单元格输入“我的工作表",然后将当前工作表名替换为”我的工作表"。代码如下：

Sub 更改名称()

Dim mYn As String

mYn = Cells(1, 1)

ActiveSheet.Name = mYn

End Sub

程序执行前如图：

点击宏，选择更改名称宏-执行。如图：

执行后结果如图。

Answer 3

Sub change()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("G4").Value
if n="" then
Msgbox “单元格空" '提示一下但不作操作，或者按照你的需要再修改
Else
ActiveWorkbook.Worksheets(i).Name = n
End if
Next
End Sub

'注意单元格内不能有非法字符，如“/”，否则会出错

Answer 4

sub change
dim i as integer, j as integer
dim nam as string
for i=1 to thisworkbook.sheets.count
nam=worksheets(i).range("G4")
for j=1 to worksheets(j)
if worksheets(j).name=nam then
worksheets(i).name="工作表("& i & ")
else
worsheets(i)=nam
end if
next
next
end sub

Answer 5

Sub change()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("G4").Value
if n<>"" then
Worksheets(i).Name = n
end if
Next
End Sub