求助大神，EXCEL中计算颜色个数（颜色是条件格式出来的）

♂天使之星♂

求助大神，EXCEL中计算颜色（分颜色，绿色，红色）个数（颜色是条件格式出来的）。

ykcbf1100

♂天使之星♂ 发表于 2024-4-17 15:46
按时数是按颜色汇总，总数列是同一列不为空的个数呢

改好了。。。

limonet

搜索一下，颜色计数多的很。

沈默00

这个合适写个自定义函数，

沈默00

ykcbf1100

沈默00 发表于 2024-4-17 13:45

楼主要求的是条件格式产生的颜色，你这个应该没有效果。要改一下。

ooluckydog

松永

来个笨办法

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.17
   
2.     r = Cells(Rows.Count, "b").End(3).Row
   
3.     Rows(15) = ""
   
4.     For j = 17 To 30 Step 3
   
5.         n = 0
   
6.         For i = 7 To r
   
7.             Set rng = Cells(i, j)
   
8.             If rng.DisplayFormat.Interior.ColorIndex = 14 Then n = n + 1
   
9.         Next
   
10.         m = m + n
    
11.         Cells(15, j) = n
    
12.         Cells(15, 16) = m
    
13.     Next
    
14. End Sub
    

复制代码

♂天使之星♂

大神，能给改改吗？最底下汇总那里，总数是同一列的有数据的个数，谢谢，