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