根据背景/字体颜色计算/求和单元格值

根据背景/字体颜色计算/求和单元格值

我有一个包含不同内容和不同颜色的区域。我想计算其中具有相同字体颜色的单元格。我该怎么做?问候

答案1

以下是完成此任务的一些 Visual Basic 代码。这个网站。

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

要创建 CountColour 函数,请按ALT-F11, 然后插入->模块,然后在该窗口中编写上述函数并保存。要使用该函数,请在要显示数据的单元格上使用此语法:=CountColour(XX:YY,ZZ),其中 XX:YY 代表要计数的单元格范围,ZZ 是要在给定范围内计数其颜色的单元格。

相关内容