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