excel vba 怎么统计填充了某个颜色的单元格的数量 并且计算出通过率！！

Question

急需VBA编码 统计出已办率 未办率 不合格率 （总数是10）

Answer 1

Function MyColorSum(Ref_color As Range, Sum_range As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In Sum_range
If iCol = rCell.Interior.ColorIndex Then
MyColorSum = MyColorSum + rCell.Value
End If
Next rCell
End Function
第一个参数是有颜色的单元格，第二个，要统计的区域，马上下班了，只能帮你到这里，希望你能领悟。