如何实现Excel工作表标签名随C4单元格公式结果自动更新？

问题根源 #

你当前使用的Worksheet_Change事件仅响应手动编辑单元格的操作，而C4的值是通过公式依赖Schedule!C5计算得出的——当Schedule!C5变化导致C4值更新时，属于公式计算结果变动，不会触发Change事件，因此标签名无法自动同步。

修改后的VBA代码 #

' 模块级变量，存储C4上一次的取值，避免重复触发改名
Private previousC4Value As Variant

Private Sub Worksheet_Activate()
    ' 激活工作表时初始化记录值
    previousC4Value = Me.Range("C4").Value
End Sub

Private Sub Worksheet_Calculate()
    Dim currentC4Value As Variant
    currentC4Value = Me.Range("C4").Value
    
    ' 仅当C4值确实变化时更新标签
    If currentC4Value <> previousC4Value Then
        Me.Name = "Daily - " & currentC4Value
        previousC4Value = currentC4Value ' 更新记录值
    End If
End Sub

代码说明 #

• previousC4Value作为模块级变量，用于记录C4的历史值，防止工作表中其他公式计算时频繁触发改名操作。
• Worksheet_Activate在工作表被选中时初始化变量，确保初始值与当前C4值一致。
• Worksheet_Calculate会在工作表所有公式计算完成后触发，此时对比C4的当前值与历史值，若不一致则更新工作表标签名。

操作步骤 #

1. 右键目标工作表标签（即要修改名称的工作表），选择「查看代码」。
2. 将上述代码粘贴到弹出的代码窗口中，保存文件即可。

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