如何基于Control工作表单元格修改当前工作表名称？VBA代码报错求助

核心问题出在事件触发的范围错误：你把Worksheet_Change事件代码写在了要重命名的目标工作表模块里，这个事件只有当前工作表的单元格被修改时才会触发。修改Control表的C38/C40时，目标工作表的Change事件根本不会运行，自然卡在判断行；移除判断后也只有修改目标工作表才会触发，完全不符合需求。

正确解决方案 #

1. 转移代码位置 #

打开VBA编辑器（按Alt+F11），在左侧工程窗口双击Control工作表，将代码粘贴到该工作表的代码模块中——这样修改Control表的单元格时才会触发Change事件。

2. 修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsTarget As Worksheet
    Dim newName As String
    Dim yearValue As String
    Dim monthValue As String
    
    ' 禁用事件防止循环触发（改名时可能触发其他事件）
    Application.EnableEvents = False
    
    ' 指定要重命名的目标工作表，替换成你实际的工作表名称，比如"销售数据"
    Set wsTarget = ThisWorkbook.Sheets("要改名的工作表")
    
    ' 检查修改的是否是C38或C40单元格
    If Not Intersect(Target, Me.Range("C38, C40")) Is Nothing Then
        yearValue = Me.Range("C40").Value
        monthValue = Me.Range("C38").Value
        
        ' 确保年份和月份都不为空
        If yearValue <> "" And monthValue <> "" Then
            ' 构造「年份 三字母月份缩写」格式的名称
            newName = yearValue & " " & Left(monthValue, 3)
            
            ' 执行重命名
            wsTarget.Name = newName
        End If
    End If
    
    ' 重新启用事件
    Application.EnableEvents = True
End Sub

关键调整说明 #

• 用Me.Range指代Control表的单元格：因为代码现在在Control工作表模块中，Me就代表Control表，避免跨表引用的歧义。
• 明确指定目标工作表：原代码的Me.Name会修改Control表的名称，必须替换成你要改名的工作表名称。
• 加入事件禁用/启用：防止工作表改名时触发额外的Change事件，导致代码循环执行或报错。

额外注意事项 #

• 确保目标工作表名称不与现有表重复，否则会报错。可添加简单错误处理：在wsTarget.Name = newName前加On Error Resume Next。
• 如果C38的下拉选项本身就是三字母缩写（如Jan/Feb），可直接用monthValue代替Left(monthValue,3)。

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