使用切换按钮隐藏行后VBA求和函数出现#VALUE!错误求助

问题原因 #

用Toggle Button的VBA代码隐藏/显示行时，Excel的自动计算机制未正确触发自定义函数的重新计算，或是操作瞬间自定义函数遍历单元格时出现属性读取错误，导致SumBold返回#VALUE!；而手动隐藏行时Excel内部处理逻辑不同，因此不会出现该问题。

解决方案 #

方案1：修改按钮代码，强制全表重新计算 #

在按钮点击事件完成行隐藏/显示操作后，强制触发Excel完整重新计算，确保自定义函数同步更新：

Private Sub Hide1_Click()
    Dim xAddress As String
    xAddress = "7:14"
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，优化操作体验
    If Hide1.Value Then
        ActiveSheet.Rows(xAddress).Hidden = False
    Else
        ActiveSheet.Rows(xAddress).Hidden = True
    End If
    Application.CalculateFull ' 强制全表重新计算，包括自定义函数
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

方案2：优化自定义函数，增加错误处理和有效性判断 #

从SumBold函数本身入手，增加错误捕获、单元格可见性判断和数值类型校验，避免遍历过程中触发错误：

Function SumBold(WorkRng As Range) As Double
    'Update 20220516
    Dim Rng As Range
    Dim xSum As Double
    
    On Error Resume Next ' 临时捕获错误，避免中断计算
    For Each Rng In WorkRng
        ' 跳过隐藏单元格，避免属性访问异常
        If Not Rng.Hidden Then
            If Rng.Font.Bold Then
                ' 仅累加数值类型的单元格值
                If IsNumeric(Rng.Value) Then
                    xSum = xSum + CDbl(Rng.Value)
                End If
            End If
        End If
    Next
    On Error GoTo 0 ' 恢复默认错误处理机制
    
    SumBold = xSum
End Function

说明 #

• 方案1操作简单，直接解决计算触发问题，适合大部分场景；
• 方案2更稳健，从函数层面避免潜在错误，适合处理复杂单元格场景。

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