计算颜色为

Question

我想计算用特定颜色填充的细胞数量。

对于前。很少有细胞是红色的，很少有绿色的细胞是黄色的。

现在我要计算总红/绿/黄。

有什么想法我也可以在合并的单元格上应用它。

欢迎迅速回复。

问候。

Answer 1

按照以下链接上的说明，在链接下方提及更改。

https://support.microsoft.com/en-us/kb/2815384

更改：将链接中指定的脚本更改为以下内容，因为microsoft中的脚本使用的颜色索引可能会计算其他颜色的颜色。

Function CountColor(range_data As range, criteria As range) As Long
    Dim datax As range
    Dim xcolor As Long
    xcolor = criteria.Interior.color
    For Each datax In range_data
        If datax.Interior.color = xcolor Then
           CountColor = CountColor + 1
        End If
    Next datax
End Function