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

【问题标题】：Counting cell fill colours in excel 2007 using VBA not conditional formatting使用VBA而不是条件格式计算excel 2007中的单元格填充颜色
【发布时间】：2013-04-28 07:35:16
【问题描述】：

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

【问题讨论】：

标签： colors formatting cell

【解决方案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

希望这会有所帮助！

【讨论】：