我如何计算Excel工作表中的彩色单元格数?

时间:2015-04-08 14:14:31

标签: vb.net excel excel-vba vba

我的Excel文件中有很多工作表,如果工作表中的某些单元格未填充,则会填入“Red”。

我想要的是在它自己的页面上,比如我称之为“Cells that aren't filled工作表”,我希望每个工作表名称都在左侧,下一个单元格的数量为“Red”它让用户知道剩下的东西和页面。

我是Excel的新手,因为我从高中开始就没用过它。是否有一行简单的代码我可以应用于单元格来计算该工作表上某些彩色单元格的数量?我在网上看,并且有使用VB的谈话,我从来没有使用过,所以我只是想知道是否有更简单的方法:)

提前致谢

1 个答案:

答案 0 :(得分:1)

您只能使用某些VB按颜色对单元格进行计数,例如:

Function CountColorIf(rSample As Range, rArea As Range) As Long
Dim rAreaCell As Range
Dim lMatchColor As Long
Dim lCounter As Long

lMatchColor = rSample.Interior.Color
For Each rAreaCell In rArea
    If rAreaCell.Interior.Color = lMatchColor Then
        lCounter = lCounter + 1
    End If
Next rAreaCell
CountColorIf = lCounter

然后是一个公式,如:

=CountColorIf(N9,F5:F9)

N9是一个引用你的颜色的单元格,F5:F9是要检查的单元格范围。

我认为试图找到一种没有VB的方法会比......更复杂。