我有一个包含不同内容和不同颜色的区域。我想计算其中具有相同字体颜色的单元格。我该怎么做?问候
答案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 是要在给定范围内计数其颜色的单元格。