如何根據單元格值重命名工作表

Question

如何根據工作表 2 中的單元格 A1 值重命名工作表。
我嘗試了以下代碼：

    Private Sub CommandButton1_Click()
        Sheet1.Name = Sheet2.Range("A1").Value
    End Sub

但如果我使用

Sheets(1).Name = Sheets(2).Range("A1").Value

或者

Sheets("Sheet1") = Sheets("Sheet2").Range("A1").Value

它有效，但我需要使用工作表的代碼名稱，因此當我重命名工作表 2 時，代碼仍然有效。

Answer 1

總的來說，我發現你的問題很不清楚，但這里有 3 種可能的解釋：

1. 組第一Sheet為[A1]的第二的Sheet 。

    Private Sub CommandButton1_Click() If Not IsEmpty(Sheets(2).Range("A1")) ThisWorkbook.Sheets(1).Name = ThisWorkbook.Sheets(2).Range("A1") End If End Sub

2. 將第一個Sheet設置為最后一個Sheet的[A1]

    Private Sub CommandButton1_Click() If Not IsEmpty(Sheets(Sheets.Count).Range("A1")) ThisWorkbook.Sheets(1).Name = ThisWorkbook.Sheets(Sheets.Count).Range("A1") End If End Sub

3. 將第一個Sheet設置為名為"Sheet2"的 Sheet 的[A1]

    Private Sub CommandButton1_Click() If Not IsEmpty(Sheets("Sheet2").Range("A1")) ThisWorkbook.Sheets(1).Name = ThisWorkbook.Sheets("Sheet2").Range("A1") End If End Sub