Excel：使用颜色和文本计数单元格：连接Countif和Countcolour VBA

Question

我有一个带有彩色事件类型的Excel，并组织它们。 enter image description here

我为Countcolour创建了一个效果很好的宏：

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

然后我用countif覆盖了每个组织者组织的活动。

如何按团队和每种颜色组织活动？

我已经尝试过countifs，sum，contatenated ifs和sumproducts但似乎没有得到好结果。

谢谢，

拉​​奎尔

Answer 1

您可以使用范围：

rng = Range("e10:e104").SpecialCells(xlCellTypeConstants).Offset(0, -3)

作为CountCcolor函数中的参数，您将获得团队ORG1的计数。其他类比。