Excel - 工作表名称等于单元格（但名称为工作表的单元格全部在同一工作表中）

Question

我想知道是否可以将工作表名称与特定单元格的工作表相同。

例如：

我称之为一个工作表名称

A1 = Name1 

A2 = Name2 

A3 = Name3 

A4 = Name4 

A5 = Name5 

因此工作表名称应根据这5个值

Sheet2 = Name1 

Sheet3 = Name2 

Sheet4 = Name3 

Sheet5 = Name4 

Sheet6 = Name5 

这是可能的VBA？

非常感谢您的帮助。

Answer 1

您可以使其触发事件。

1）将下面的代码放在“名称”选项卡的工作表对象中。

2）将所有表code names放在第一列（无标题）的“名称”表中。

3）将您选择的标签名称放在第二列中的相应工作表中。

当您更改第二列中的值时，图纸名称应该会自动更改。

CODE

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim sheetName As String 
    Dim sheetCodeName As String 

    If Target.Column = "2" Then 
     sheetName = Target.value 
     sheetCodeName = Target.Offset(0, -1).value 

     For Each Sheet In ActiveWorkbook.Worksheets 
      If Sheet.CodeName = sheetCodeName Then 

       On Error GoTo INVALIDCOLUMNNAME: 
       Sheet.name = sheetName 
       On Error GoTo 0 

      End If 

     Next Sheet 

    End If 

Exit Sub 

INVALIDCOLUMNNAME: 
msgbox "Invalid Column Name" 

End Sub 

Answer 2

Sheets(#).Name = Range("cell location").Value 

的#指的是纸张的索引号和cell location是小区的地址（例如A2或E17）

你会想然而，因为它会放一些错误周围的处理如果您已经有一个同名的工作表，则出错：

On Error Resume Next 
Sheets(#).Name = Range("cell location").Value 
If Err.Number > 0 Then 
    Err.Clear 
    Msgbox Range("cell location").Value & " name already exists!" 
End If