Excel UDF 对具有特定背景颜色的单元格求和

Question

关闭。这个问题是not reproducible or was caused by typos .它目前不接受答案。












此问题是由拼写错误或无法再重现的问题引起的。虽然类似的问题可能是 on-topic在这里，这个问题的解决方式不太可能帮助 future 的读者。


去年关闭。







Improve this question




试图总结具有特定背景颜色的单元格总数。
在此处遵循本教程:https://www.exceltrick.com/how_to/sum-cells-based-on-background-color/
尝试实现以下 UDF 时，我在第 3 行(从 Dim ColIndex 开始)收到语法错误:

Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.SUM(cl, cSum)
End If
Next cl SumByColor = cSum
End Function

有谁知道 UDF 出了什么问题？
MS Office 版本:MS Office Professional Plus 2016。
谢谢!

Answer 1

你错过了一些线端

Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer 
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
    If cl.Interior.ColorIndex = ColIndex Then 
        cSum = WorksheetFunction.SUM(cl, cSum)
    End If
Next cl 
SumByColor = cSum
End Function