Excel条件格式与自定义单元格的颜色冲突

Gordon_Gan

我自定义了一个函数，用来计算某种颜色单元格在所选单元格中的占比，但是后面使用的时候发现一个问题，单元格的颜色有两类，一类是我用条件格式上的颜色，还有一类是我手动上的颜色，统计结果就是，条件格式上的颜色统计不到，只能统计到我手动上的颜色。请教各位大神，我现在不管要什么颜色，全部都要统计到位的话，应该怎么修改我的表格，非常感谢。
另外，还有个问题，这个自定义函数计算结果不能自动更新，每次都要点击开始计算才会更新结果，请问要加什么代码能解决，非常感谢。
自定义函数如下：

1. Function SC(ColorCell, Sum_range, Refer_range)
   
2. Application.Volatile
   
3.    '【参数1: ColorCell】      指定底色的单元格(单一单元格)
   
4.    '【参数2: Sum_range】      单元格矩形区域，所需统计的列
   
5.    '【参数3: Refer_range】    单元格矩形区域，参照区域，参照该列最后一个非空单元格的行号
   
6.    '【功能】返回指定单元格颜色在选中单元格个数的占比
   
7.   '
   
8.   SC = 0
   
9.   X = 0
   
10.   Y = 6
    
11.    '下面开始统计第1参数对象区域中，所有相同底色单元格中的结果
    
12.    For J = 7 To 300
    
13.    If Refer_range.Cells(J).Value <> "" Then
    
14.    Y = Y + 1
    
15.    End If
    
16. Next
    
17. 
    
18. If Y >= 7 Then
    
19. 
    
20.     For i = 7 To Y  '遍历区域中所有单元格
    
21.     If Sum_range.Cells(i).Rows.Hidden = False Then
    
22.       If Sum_range.Cells(i).Columns.Hidden = False Then
    
23.         X = X + 1 '统计未隐藏的单元格数
    
24.         If Sum_range.Cells(i).Interior.ColorIndex = ColorCell.Interior.ColorIndex Then '如果底色相同则
    
25.                 SC = SC + 1 '仅仅统计同底色单元格的个数
    
26.                 End If
    
27.              End If
    
28.         End If
    
29.     Next
    
30.     End If
    
31.                         If X <> 0 Then
    
32.                         SC = Format(SC / X, "0.00%")  '计算占比
    
33.                         Else: SC = "请更新计划"
    
34.                         End If
    
35. 
    
36. End Function

复制代码

大灰狼1976

其他逻辑我就不去看了，提取条件格式单元格当前颜色值可以用以下语句：
Range("??").DisplayFormat.Interior.ColorIndex
其实这个语句提取的是所有单元格的当前底色，而不仅限于条件格式单元格。