如何创建一个仅计算单元格中数据突出显示特定颜色的counta公式？

Question

我有一个考勤电子表格，数据以3种不同的颜色突出显示。在电子表格的底部，我有一个CountA公式来计算所有具有＆＃39; x＆＃39;每天计算总数。我还需要一个公式，它将执行相同的计数，但只需要突出显示的单元格的颜色。在电子表格中更改或更新数据时，此公式还需要自动更新。我对Excel非常熟悉，但是我对创建VGA的经验很少，并且在创建一个有效的时候没有任何运气。

Answer 1

如果您对VBA没有经验，这会感到有点压倒性，但是已经有一些问题和答案了 - 请参阅here或here。

无论如何，您是否考虑过使用＆＃34;按颜色过滤＆＃34;作为备选？使用Data > Filter，然后选择Filter by Color。过滤后，您应该在Excel窗口的左下角找到一个漂亮的计数。

Answer 2

你可以试试这个。 以下代码请求输入的单元格引用（以接收要搜索的颜色） 计算使用指定颜色找到的细胞数量到特定范围内。 并将计算出的数字返回到消息框中。

Sub Color()
    Dim colorCount, colorVal As Double
    Dim rng, cell As Range

    colorCount = 0
    Set rng = Application.InputBox(prompt:="Write a cell address that already has the desired color.(e.g.:A1)", Title:="Define the color.", Type:=8)
    colorVal = Cells(rng.Row, rng.Column).Interior.Color
    For Each cell In Range("a1:a5")
        If cell.Interior.Color = colorVal Then
            colorCount = colorCount + 1
        End If
    Next
    MsgBox colorCount
End Sub