如何通过程序取得Excel中条件格式的结果

该篇文章是我于2009年6月10日通过自己编写的工具，批量从位于在博客园的博客站点(http://chenxizhang.cnblogs.com)同步而来。文章中的图片地址仍然是链接到博客园的。特此说明！ 陈希章 原文地址：http://www.cnblogs.com/chenxizhang/archive/2009/02/01/1381861.html 原文标题：如何通过程序取得Excel中条件格式的结果 原文发表：2009/2/1 2:20:00

例如有这么一个需求，我们在Excel模板中设置了条件格式，通过程序往里面输入数值。我们需要统计满足条件格式为红色的个数。代码大致如下

If temprng.FormatConditions.Count > 0 Then

'如果有条件格式

'则查找颜色为红色的条件格式

For Each fc As Excel.FormatCondition In temprng.FormatConditions

If fc.Interior.Color = 255 AndAlso app.Evaluate(fc.Formula1) Then

redcount = redcount + 1

End If

Next

End If

作者：陈希章 出处：http://blog.youkuaiyun.com/chen_xizhang 本文版权归作者所有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。