excel - 颜色 - 带有条件格式的excel COUNTIF

打开开发人员选项卡(快捷键Alt +PF11 )

插入模块并在代码中插入以下代码。


 Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)


 Dim rCell As Range


 Dim lCol As Long


 Dim vResult


 lCol = rColor.Interior.ColorIndex


 If SUM = True Then


 For Each rCell In rRange


 If rCell.Interior.ColorIndex = lCol Then


 vResult = WorksheetFunction.SUM(rCell, vResult)


 End If


 Next rCell


 Else


 For Each rCell In rRange


 If rCell.Interior.ColorIndex = lCol Then


 vResult = 1 + vResult


 End If


 Next rCell


 End If


 ColorFunction = vResult


End Function



假设你有彩色单元格(例如: 黄色)在D列中,然后在D1中显示图例(黄色)。现在,你可以在E1中将这样的公式写为= colorfunction(D1,A:A,FALSE),

假设你有彩色单元格(例如: D1中包含数据和图例(黄色)的列中的黄色)现在,你可以编写公式以在E1中获得所有具有黄色的总和,例如,= colorfunction(D1,A:A,TRUE),

按回车键。

...