求助求助，多列颜色匹配计数，太难了

esyou

我想统计E列是红色且F列是绿色的个数，还有E列是蓝色且F列是白色的个数，用vba应该要如何编写？有没有一些公式可以统计区域里面的某种颜色且另一个区域是这种颜色的个数？

lh123lh1234

建议传一下附件，肉眼看不出你表中颜色的值，很多种红很多种绿等等，值是不同的

esyou

lh123lh1234 发表于 2019-12-4 15:17
建议传一下附件，肉眼看不出你表中颜色的值，很多种红很多种绿等等，值是不同的

已经添加了附件，红色都是一样的红，自己标的，只是想统计满足多重条件的应数量

esyou

lh123lh1234 发表于 2019-12-4 15:17
建议传一下附件，肉眼看不出你表中颜色的值，很多种红很多种绿等等，值是不同的

我用这个公式，可以统计一列满足条件的个数，但是不能统计出既满足E列是红色，又满足F是绿色的。或者是E是蓝色，F是无颜色的统计
Function sumcolor(rng1 As Range, rng2 As Range) As Single
    Dim cell As Range
    sumcolor = 0
    For Each cell In rng1
        If cell.Interior.Color = rng2.InteriorColor Then sumcolor = sumcolor + 1
    Next cell
End Function

lh123lh1234

Sub test()
   Dim a%, b%, rng As Range
   For Each rng In Range("e1", [e1048576].End(3))
      If rng.Interior.ColorIndex = 3 And rng.Offset(0, 1).Interior.ColorIndex = 50 Then a = a + 1
      If rng.Interior.ColorIndex = 23 And rng.Offset(0, 1).Interior.ColorIndex = -4142 Then b = b + 1
   Next
   MsgBox "E列是红色且F列是绿色个数：" & a & Chr(13) & "E列是蓝色且F列是白色个数：" & b
End Sub

蓝桥玄霜

蓝色的代码：

esyou

蓝桥玄霜 发表于 2019-12-4 17:18
蓝色的代码：

那如果要红色+白色是怎样呢？谢谢

esyou

lh123lh1234 发表于 2019-12-4 15:51
Sub test()
   Dim a%, b%, rng As Range
   For Each rng In Range("e1", [e1048576].End(3))

好像错了，按了按钮，蓝色而且白色的是0

lh123lh1234

esyou 发表于 2019-12-4 17:51
好像错了，按了按钮，蓝色而且白色的是0

蓝桥玄霜

esyou 发表于 2019-12-4 17:30
那如果要红色+白色是怎样呢？谢谢

上面代码中已经有了不同颜色的值了：红色是3，白色是-4142
重新组合一下就是了。