Question

我有兴趣计算excel中类似的有色细胞。我尝试使用VB脚本，当我关闭工作表时计算丢失。

任何人都可以帮助我。

Answer 1

某处（可能的来源 - http://www.ozgrid.com/VBA/sum-count-cells-by-color.htm）我发现这段代码可以帮助我：

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.Color


    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.Color = lCol Then
                vResult = WorksheetFunction.SUM(rCell)
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.Color = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If

    ColorFunction = vResult
End Function

该函数接受彩色单元格和范围，在哪里查找具有相似颜色的单元格。该函数根据颜色返回找到的单元格数。可以避免可选参数“SUM”（老实说，我自己没有使用它）。您只需在单元格中键入“= ColorFunction”，并在括号中填充所需的参数：

示例，= ColorFunction（C3，A1：Q114）

如何计算excel中的彩色单元格数

1 个答案: