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

希望这有帮助！

使用VBA非条件格式计算excel 2007中的单元格填充颜色

1 个答案: