如何根据单元格值重命名工作表

时间:2019-04-09 17:04:25

标签: excel vba

如何基于工作表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时,代码仍然可以工作。

1 个答案:

答案 0 :(得分:-1)

总的来说,我发现您的问题不清楚,但这是3种可能的解释:

  1. 将第一个Sheet设置为第二个[A1]的{​​{1}}。

    Sheet
  2. 将第一个Private Sub CommandButton1_Click() If Not IsEmpty(Sheets(2).Range("A1")) ThisWorkbook.Sheets(1).Name = ThisWorkbook.Sheets(2).Range("A1") End If End Sub 设置为最后一个Sheet的{​​{1}}

    [A1]
  3. 将第一个Sheet设置为名为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 的工作表的Sheet

    [A1]