使用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 

希望这会有所帮助！