小编use*_*758的帖子

我按照本指南创建了以下自定义函数，用于计算电子表格中某种颜色的单元格数量：

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
    If SUM = True Then
       For Each rCell In rRange
        If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell) + vResult
        End If
       Next rCell
    Else
        For Each rCell In rRange
        If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
        End If
       Next rCell
End If
ColorFunction = vResult
End Function

如果我单击公式栏中的绿色勾号，它工作正常并给我预期的结果，但在我为另一个单元格着色后不会自动更新。每次手动为电子表格上其他位置的单元格着色时，如何将其设置为自动更新计数？

额外信息：我在 …