计算颜色填充的单元格数 Excel 2013
Count number of cells with color fill Excel 2013
是否有一个 way/a 函数可以在不使用 VBA 的情况下计算 Excel 2013 中颜色填充单元格的数量?像
COUNTxxx(A1:A20)
很确定你必须使用 VBA
遗憾的是,仅使用 Excel 内置函数无法完成此任务。
有两种方法:
- 使用 VBA 创建一个或多个用户定义函数,这些函数将对彩色单元格进行计数/求和,然后从工作簿中调用它们。您也可以将这些 UDF 放入 personal.xlsb 文件中,这样就不需要在新工作簿中每次都复制它们了。
但是,无法使用 UDF 正确处理以条件格式着色的单元格。
- 使用一个特殊的加载项,它会根据颜色对必要的单元格进行计数/求和。
您可以找到有关对彩色单元格进行计数/求和的方法的更多详细信息,包括
VBA 代码,在此博客 post 中:
How to count and sum cells by color in Excel
Function CountColor(xRange As Range, xColor As Long) As Long
Dim xCell As Range
For Each xCell In xRange
If xCell.Font.ColorIndex = xColor Then
CountColor = CountColor + 1
End If
Next
End Function
在excel
中使用此函数
=CountColor(A1:E25;3)
3 = 红色
是否有一个 way/a 函数可以在不使用 VBA 的情况下计算 Excel 2013 中颜色填充单元格的数量?像
COUNTxxx(A1:A20)
很确定你必须使用 VBA
遗憾的是,仅使用 Excel 内置函数无法完成此任务。
有两种方法:
- 使用 VBA 创建一个或多个用户定义函数,这些函数将对彩色单元格进行计数/求和,然后从工作簿中调用它们。您也可以将这些 UDF 放入 personal.xlsb 文件中,这样就不需要在新工作簿中每次都复制它们了。 但是,无法使用 UDF 正确处理以条件格式着色的单元格。
- 使用一个特殊的加载项,它会根据颜色对必要的单元格进行计数/求和。
您可以找到有关对彩色单元格进行计数/求和的方法的更多详细信息,包括 VBA 代码,在此博客 post 中: How to count and sum cells by color in Excel
Function CountColor(xRange As Range, xColor As Long) As Long
Dim xCell As Range
For Each xCell In xRange
If xCell.Font.ColorIndex = xColor Then
CountColor = CountColor + 1
End If
Next
End Function
在excel
中使用此函数=CountColor(A1:E25;3)
3 = 红色