colors - 使用VBA而不是条件格式计算excel 2007中的单元格填充颜色

Question

如果我想让 excel 报告以下内容，我需要编写什么公式：H2:H30 范围内的红色单元格的数量，以及要在单元格 B36 中返回的答案？单元格已根据 VBA 宏而不是通过条件格式更改颜色。谢谢

Answer 1

请参阅下面的代码，该代码专门满足您的要求。

1）它查看范围H2：H30（这可以通过将起始范围从H2更改为另一个单元格来调整，如果要添加/减少行，可以调整计数器N）

2) 它输出单元格 B36 处的红细胞数量

3) 该代码专门查找颜色为“255”的单元格，这是 Excel 2007 中的默认红色。如果这不是您的宏用于填充单元格的红色，您将必须确定什么颜色代码这是。假设您记录了宏以将单元格填充为特定的红色阴影，您可以在代码中查找用颜色填充单元格的部分，并查找显示 Selection.Interior 的部分并找到“.Color = 255 “ 部分。

Sub Macro1()

Dim RedCellCount As Integer
RedCellCount = 0

Range("H2").Select
For N = 1 To 29
    If Selection.Interior.Color = 255 Then
        RedCellCount = RedCellCount + 1
    End If
    ActiveCell.Offset(1, 0).Select
Next N

Range("B36").Select
ActiveCell.FormulaR1C1 = RedCellCount

End Sub

希望这可以帮助！