如何用Input工作表P5单元格值重命名含指定VBA代码的工作表？

原代码的问题 #

• 事件使用错误：Worksheet_NameChange是工作表名称被修改后才触发的事件，此时在事件里再次修改名称会无限循环触发该事件，直接导致代码报错卡死。
• 工作表引用不当：ActiveSheet会指向当前激活的工作表，而非包含该代码的目标工作表，逻辑不可靠。
• 无错误处理：未考虑Input工作表不存在、P5单元格为空/包含工作表名称非法字符（如/ \ : * ? " < > |）的情况，容易触发运行时错误。

方案1：手动触发重命名（简单直接） #

在需要重命名的工作表模块中添加以下代码，可通过开发工具的「宏」执行，或插入表单按钮绑定该宏：

Sub RenameSheetFromInput()
    Dim targetSheet As Worksheet
    Dim newName As String
    
    ' 定义目标工作表（即当前包含此代码的工作表）
    Set targetSheet = Me
    ' 获取Input表P5的值
    newName = Trim(Worksheets("Input").Range("P5").Value)
    
    ' 错误处理：检查名称有效性
    On Error Resume Next
    If newName <> "" Then
        targetSheet.Name = newName
        ' 若重命名失败，提示错误
        If Err.Number <> 0 Then
            MsgBox "重命名失败：名称包含非法字符或已存在同名工作表"
        End If
    Else
        MsgBox "Input表P5单元格不能为空"
    End If
    On Error GoTo 0
End Sub

方案2：自动触发重命名（当Input!P5变化时自动执行） #

如果需要在Input工作表的P5单元格值修改时，自动重命名目标工作表，需要在Input工作表的模块中添加以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetSheet As Worksheet
    Dim newName As String
    
    ' 仅当修改的是P5单元格时执行
    If Not Intersect(Target, Me.Range("P5")) Is Nothing Then
        ' 指定需要重命名的工作表（替换成你的目标工作表名称，比如"Sheet1"）
        Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
        newName = Trim(Me.Range("P5").Value)
        
        ' 错误处理
        On Error Resume Next
        If newName <> "" Then
            targetSheet.Name = newName
            If Err.Number <> 0 Then
                MsgBox "重命名失败：名称无效或已存在"
            End If
        Else
            MsgBox "P5单元格不能为空"
        End If
        On Error GoTo 0
    End If
End Sub

注意：将代码中的"目标工作表名称"替换为实际需要重命名的工作表名称（比如原代码所在的工作表名称）。

关键注意事项 #

• 工作表名称不能包含以下非法字符：/ \ : * ? " < > |
• 确保Input工作表存在，否则会触发「下标越界」错误
• 避免同名工作表存在，否则重命名会失败

内容的提问来源于stack exchange，提问作者punchika munrangsee