我使用了你非常有用的模块来计算填充颜色的单元格的数量，效果很好。
但是，我想通过有条件地格式化单元格来为单元格着色，而 VBA 模块在这种情况下不起作用。
我正在处理的电子表格分析了商品每月的支出。 该单元格链接到另一个工作表以显示月份的值。
我猜你也许可以改变 VBA 模块，但我对 VBA 不是很熟悉。
任何人都可以帮助更改脚本以适应我的需要吗？
这是VBA代码：

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