[求助]根据条件格式的颜色统计单元格个数

crozy

我来啦！

楼主,你原文件填充的颜色有问题,看我给你修正的附件吧。

kKN4797T.rar (6.08 KB, 下载次数: 182)

2008-4-17 19:16 上传

点击文件名下载附件

[此贴子已经被作者于2008-4-17 19:16:32编辑过]

lizhigang160

唉！为什么你们都要从条件格式考虑呢？

我的初衷是想抛开判断单元格的值、计算单元格的值等间接运算手段（不去管A1:G7为什么符合条件格式、怎样设置条件格式），而是要在代码遍历单元格的时候，怎样发现这个单元格的颜色和其他单元格不同（这个颜色是条件格式设置的），T.Interior.ColorIndex 为什么只能返回单元格设置的底色，而不能返回目前显示的条件格式设置的颜色（土黄色）呢？

zhiwu.zhu

楼主，你是高人出难题，整人呀。 由于49个单元格是同时设置的相同颜色，所以ColorIndex全部是34，也就是运行T.interior.colorindex的结果全部是34，而49个单元格的条件格式，虽然我们看的颜色不同，但系统设置的ColorIndex全部是40，也就是运行T.FormatCondition(1).Interior.ColorIndex全部是40，所以你的代码：If T.Interior.ColorIndex=40的结果什么也看不到，而如果代码换成If T.FormatCondition(1).Interior.ColorIndex=40，结果将是49 如果你想在条件格式的颜色，字体或边框上取值，应该是不可能的，我是做不到了。不果还是要感激你，我学到了很多的东东

lizhigang160

QUOTE:

以下是引用zhiwu.zhu在2008-4-17 23:24:47的发言：
楼主，你是高人出难题，整人呀。 由于49个单元格是同时设置的相同颜色，所以ColorIndex全部是34，也就是运行T.interior.colorindex的结果全部是34，而49个单元格的条件格式，虽然我们看的颜色不同，但系统设置的ColorIndex全部是40，也就是运行T.FormatCondition(1).Interior.ColorIndex全部是40，所以你的代码：If T.Interior.ColorIndex=40的结果什么也看不到，而如果代码换成If T.FormatCondition(1).Interior.ColorIndex=40，结果将是49 如果你想在条件格式的颜色，字体或边框上取值，应该是不可能的，我是做不到了。不果还是要感激你，我学到了很多的东东

   感谢zhiwu.zhu回复，不过我确实不是想整人，我也是研究了几天也没有找到方法，才来求助高手的，还是期待高人解答！

liangzh

用VBA是得不到条件格式产生的颜色代码的,其实能用条件格式就必定能用公式解决,何必舍近求远呢?

[此贴子已经被作者于2008-4-18 0:13:44编辑过]

lizhigang160

QUOTE:

以下是引用liangzh在2008-4-18 0:12:38的发言：
用VBA是得不到条件格式产生的颜色代码的,其实能用条件格式就必定能用公式解决,何必舍近求远呢?

     有时候复杂的运算公式不能解决或很难解决，我的原程序就是因为找不到方法，而用代码计算的方法，把（If T.Interior.ColorIndex）判断单元格的属性改成计算单元格的值，光代码就写了几十行。

    或者，不能取得条件格式产生的颜色代码，能不能判断T单元格的条件格式规则计算结果是不是等于True呢？

zhiwu.zhu

楼主

你可以用If T > T.FormatConditions(1).Operator Then 试试，不知能否满足你的要求。

其实他同if T>5 then是相同的

ttui

参考
http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=1212425&id=299068&page=1&skin=0&Star=3

lizhigang160

谢谢ttui解答，不过你说的这个程序其实还是根据单元格的值判断的！

jiangxj

条件格式中的颜色和背景色不同,它是由表达式决定的.读取条件格式的设置可以是:

color1 = Cells(1, 1).FormatConditions(1).Interior.ColorIndex
color2 = Cells(1, 1).FormatConditions(2).Interior.ColorIndex
color3 = Cells(1, 1).FormatConditions(3).Interior.ColorIndex