Excel 2021隐藏/取消隐藏工作表时如何自动更新依赖隐藏工作表数量的公式？

Excel默认不会将工作表的隐藏/显示操作视为触发公式重算的事件，普通易失性函数（如NOW()、RAND()）也仅在打开文件、编辑单元格等场景触发重算，因此无法满足你的需求。以下是两种针对性的解决方法：

方法1：通过工作簿事件强制全局重算 #

利用工作表激活/取消激活事件（隐藏/显示操作会触发这些事件），强制Excel重新计算所有公式：

1. 按Alt + F11打开VBA编辑器
2. 在左侧工程资源管理器中双击ThisWorkbook
3. 在右侧代码窗口，从顶部下拉框选择Workbook，再分别选择SheetActivate和SheetDeactivate事件，输入以下代码：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 工作表取消隐藏并激活时触发全量重算
    Application.CalculateFullRebuild
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ' 工作表被隐藏（取消激活）时触发全量重算
    Application.CalculateFullRebuild
End Sub

• CalculateFullRebuild会彻底重建公式依赖关系并计算所有内容，比普通Calculate更适合依赖工作表数量的场景。

方法2：自定义函数+事件触发精准更新 #

如果仅需更新统计隐藏工作表数量的公式，可自定义易失性函数，再通过事件触发重算：

1. 在VBA编辑器中右键工程资源管理器，选择「插入」→「模块」
2. 输入自定义函数代码：

Function GetHiddenSheetCount() As Integer
    Dim ws As Worksheet
    Dim count As Integer
    count = 0
    For Each ws In ThisWorkbook.Worksheets
        ' 统计普通隐藏和深度隐藏的工作表
        If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
            count = count + 1
        End If
    Next ws
    GetHiddenSheetCount = count
    ' 标记为易失性，确保重算时重新执行
    Application.Volatile True
End Function

3. 回到ThisWorkbook代码窗口，添加事件触发重算：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.Calculate
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Application.Calculate
End Sub

4. 在Excel单元格中直接使用=GetHiddenSheetCount()，即可自动更新隐藏工作表数量。

注意事项 #

• 保存工作簿时需选择.xlsm或.xlsb格式，.xlsx会丢失VBA代码
• 若仅需更新特定公式范围，可将Application.Calculate替换为Range("你的公式范围").Calculate以提升性能

内容的提问来源于stack exchange，提问作者Mario Galindo Ballivián