用两种方法统计指定颜色单元格个数

laoau138

用两种方法统计指定颜色单元格个数

today0427

1. Sub today() '单元格颜色
   
2.     Dim rng As Range, rg As Range, i&, ys&
   
3.     With Sheets("Sheet1")
   
4.         Set rng = .[a1].CurrentRegion
   
5.         ys = .[e1].Interior.ColorIndex
   
6.         For Each rg In rng
   
7.             If rg.Interior.ColorIndex = ys Then i = i + 1
   
8.         Next
   
9.         .[f2] = i
   
10.     End With
    
11. End Sub
    
12. 
    
13. Function gs(rng As Range, bz As Range) '第一个参数rng为被筛选的单元格区域，区域可选，在这里即A1：C10
    
14.                                  '第二个参数bz为作为标准进行对比的单元格，区域可变，在这里即F1
    
15.     If bz.Count > 1 Then gs = "": Exit Function
    
16.     Dim rg As Range, i&, ys&
    
17.         ys = bz.Interior.ColorIndex
    
18.         For Each rg In rng
    
19.             If rg.Interior.ColorIndex = ys Then i = i + 1
    
20.         Next
    
21.         gs = i
    
22. End Function
    

复制代码

laoau138

today0427 发表于 2016-10-3 14:26

VBA两种方法相邻单元格颜色

http://www.excelpx.com/thread-424839-1-1.html