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

lizhigang160

请教各位高手，我想统计A1:G7里面符合条件格式而显示土色的单元格的个数，为什么我写的程序不能计算？

ZFE9Lfe7.rar (8.38 KB, 下载次数: 219)

2008-4-14 17:24 上传

点击文件名下载附件
[求助]根据条件格式的颜色统计单元格个数

KCFONG

why not use 符合条件 in the macro, e.g

If T>5T then
        k = k + 1
     End If

tonyibm

在单元格使用了条件格式之后，好像用代码是不能返回其背景颜色的，我也想知道有什么方法可以用代码返回由条件格式得出的背景颜色，

liangzh

既然颜色由条件格式而来,为什么不从条件格式公式本身考虑?

=SUMPRODUCT(N(A1:G7>5))

lizhigang160

QUOTE:

以下是引用liangzh在2008-4-16 1:01:40的发言：

既然颜色由条件格式而来,为什么不从条件格式公式本身考虑?

=SUMPRODUCT(N(A1:G7>5))

谢谢提醒，不过你可能搞错了，如果是按这个思路，我想我不需要发附件求助的。我发的附件只是简单的举例，目的是想学习VBA中怎样用代码获取条件格式设置的颜色值，并不是简单的求和！

感谢回复！

lizhigang160

帖子沉的好快，顶一下，期待高手解答！

lqs730917121

Sub TJ()
 Dim T As Range

 Set Myrange = Range("A1:G7")
 For Each T In Myrange
     If T.Value > 5 Then
        k = k + 1
     End If
 Next
 Range("H1") = k
End Sub

zhiwu.zhu

搂主，我不知道你如何设置的土黄色，不知为什么不能更改。

附件是我设置的颜色和程序，参考。

 

ZtnFhOrz.zip (10.69 KB, 下载次数: 209)

2008-4-17 11:06 上传

点击文件名下载附件
[求助]根据条件格式的颜色统计单元格个数

lizhigang160

QUOTE:

以下是引用zhiwu.zhu在2008-4-17 11:06:56的发言：

搂主，我不知道你如何设置的土黄色，不知为什么不能更改。

附件是我设置的颜色和程序，参考。

 

土色是条件格式设置的颜色，我这个求助的目的是学习怎样用代码获取条件格式设置的颜色（或者这样说：怎样用代码判断单元格是不是符合条件格式）。

 当然，像lqs730917121 朋友回复的一样：

Sub TJ()
 Dim T As Range

 Set Myrange = Range("A1:G7")
 For Each T In Myrange
     If T.Value > 5 Then
        k = k + 1
     End If
 Next
 Range("H1") = k
End Sub

在程序中，可以用If T.Value > 5 判断是不是符合条件公式，但这里要说的是，我的附件是简单的举例，如果是复杂的运算，就不是一个If T.Value > 5 可以解决的了，可能需要N多行代码才可以，这样是不是就失去了代码的简洁性了。

难道就没有办法用代码判断T的颜色是条件格式显示的颜色或哪一个属性显示这个单元格是符合条件格式的，非要再重新用代码计算一遍吗？

是不是这个问题太简单了，版主及个位高手都懒的解答！让我们这些新手在这里讨论！

期待高手解答！！！！！

lqs730917121

 Dim T As Range

 Set Myrange = Range("A1:G7")
 For Each T In Myrange
 If T.Value > 5 Then T.Interior.ColorIndex = 40 '增加条件格式
     If T.Interior.ColorIndex = 40 Then
        k = k + 1
     End If
 Next
 Range("H1") = k
End Sub