[已解决]统计红色单元格个数的自定义函数

mate33

统计红色单元格个数的自定义函数

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2017-6-12 10:18

1. Function redcount(ParamArray rg())
   
2. Dim n%, m%, rg1 As Range
   
3. n = 0
   
4. For m = LBound(rg) To UBound(rg)
   
5.     For Each rg1 In rg(m)
   
6.         If rg1.Interior.ColorIndex = 3 Then
   
7.             n = n + 1
   
8.         End If
   
9.     Next
   
10. Next
    
11. redcount = n
    
12. End Function
    

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Function redcount(ParamArray rg())
   
2. Dim n%, m%, rg1 As Range
   
3. n = 0
   
4. For m = LBound(rg) To UBound(rg)
   
5.     For Each rg1 In rg(m)
   
6.         If rg1.Interior.ColorIndex = 3 Then
   
7.             n = n + 1
   
8.         End If
   
9.     Next
   
10. Next
    
11. redcount = n
    
12. End Function
    

复制代码

苏子龙

1. Function yy(ParamArray args() As Variant) As Long
   
2. Dim rg As Range, gs As Long, i As Integer
   
3. For i = 0 To UBound(args)
   
4.     If TypeName(args(i)) = "Range" Then
   
5.         For Each rg In args(i)
   
6.             If rg.Interior.Color = 192 Then gs = gs + 1 '192是这里单元格红色数值
   
7.         Next
   
8.     End If
   
9. Next
   
10. yy = gs
    
11. End Function

复制代码

mate33

苏子龙 发表于 2017-6-12 10:25

2位老师的代码都很精彩。按时间先后了哦。感觉感谢！