[已解决]请高手帮忙看一下如何编辑函数统计数据

wwqamy

请各位高手帮忙看一下，在2003里面，怎样才能统计出蓝色填充的W2为3个，红色填充的W5有2个，黄色填充的W4为1个这样的统计方式呢？

最佳答案

月排行榜 / 总排行榜

josonxu

2014-2-27 12:13

1. Function js(ar As Range, col As Range)
   
2.     Dim dd As Range
   
3.         For Each dd In ar
   
4.             If dd.Interior.Color = col.Interior.Color And dd = col Then
   
5.                 js = js + 1
   
6.             End If
   
7.         Next
   
8. End Function
   
9. 
   

复制代码

请教.zip (11.54 KB, 下载次数: 2)

2014-2-27 12:13 上传

点击文件名下载附件

跳转到最佳答案楼层

liu398214264

1：在表格中按ALT+F11，插入-模块
复制：
Function CountColor(col As Range, countrange As Range) As Integer
    Dim icell As Range
    Application.Volatile
    For Each icell In countrange
        If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
            CountColor = CountColor + 1
        End If
    Next icell
End Function

josonxu

1. Function js(ar As Range, col As Range)
   
2.     Dim dd As Range
   
3.         For Each dd In ar
   
4.             If dd.Interior.Color = col.Interior.Color And dd = col Then
   
5.                 js = js + 1
   
6.             End If
   
7.         Next
   
8. End Function
   
9. 
   

复制代码

请教.zip (11.54 KB, 下载次数: 2)

2014-2-27 12:13 上传

点击文件名下载附件

tianyiyi

V真心看不懂

wlc520113000

定义名称a=GET.CELL(63,Sheet1!B2)
F2=a下拉右拉
在用COUNTIF统计

wwqamy

liu398214264 发表于 2014-2-27 11:48
1：在表格中按ALT+F11，插入-模块
复制：
Function CountColor(col As Range, countrange As Range) As I ...

谢谢，但是这个区别不了填充颜色。

wwqamy

多谢高手！

wwqamy

wlc520113000 发表于 2014-2-27 17:32
定义名称a=GET.CELL(63,Sheet1!B2)
F2=a下拉右拉
在用COUNTIF统计

谢谢，可是我没试出来。

wwqamy

高手，您这个代码很好用，可是我加入我的文件后，运行非常慢，有没有办法提高速度呢？