尝试根据另一个工作表中的单元格值命名工作表

Question

尝试根据另一个工作表中的单元格值命名工作表。但不起作用...

Private Sub Worksheet_NameChange()

        ActiveSheet.Name = Worksheets("Input").Range("P5").Value

End Sub

我想从工作表“输入”单元格“P5”中命名包含此私有子的工作表。我应该做什么？

Answer 1

工作表激活：重命名工作表

• 每次激活（选择）包含以下代码的工作表时，代码将尝试使用单元格

  Input!P5

  中的值重命名工作表。

Private Sub Worksheet_Activate()
    On Error GoTo ClearError
    
    With Me.Parent.Sheets("Input").Range("P5")
        If IsError(.Value) Then Exit Sub
        Dim NewName As String: NewName = .Value
        If NewName <> Me.Name Then Me.Name = NewName
    End With

ProcExit:
    Exit Sub
ClearError:
    MsgBox "Run-time error '" & Err.Number & "':" & vbLf & vbLf _
        & Err.Description, vbCritical
    Resume ProcExit
End Sub