[已解决]黄绿红统计3

wszbd

黄绿红统计3.rar (6.3 KB, 下载次数: 9)

2014-1-15 21:16 上传

点击文件名下载附件 如果我写的不清楚，就发消息或加qq：1091342689.

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-1-16 19:35

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, arr1(1 To 4, 1 To 2), i&, j&, r&, c&, YGMax&, YRMax&, GRMax&, YGRMax&
   
3. [z18].Resize(4, 2).ClearContents
   
4. r = [d3].CurrentRegion.Rows.Count
   
5. c = [d3].CurrentRegion.Columns.Count
   
6. ReDim arr(1 To c)
   
7. For j = 1 To c
   
8.   For i = 1 To r
   
9.     If Cells(i + 2, j + 3).Interior.ColorIndex = 6 Then arr(j) = arr(j) & "Y"
   
10.     If Cells(i + 2, j + 3).Interior.ColorIndex = 3 Then arr(j) = arr(j) & "R"
    
11.     If Cells(i + 2, j + 3).Interior.ColorIndex = 10 Then arr(j) = arr(j) & "G"
    
12.   Next i
    
13. Next j
    
14. For j = 1 To c
    
15.   If InStr(arr(j), "Y") > 0 And InStr(arr(j), "G") > 0 Then arr1(1, 1) = arr1(1, 1) + 1: arr1(1, 2) = Application.Max(arr1(1, 2), j - YGMax - 1): YGMax = j
    
16.   If InStr(arr(j), "Y") > 0 And InStr(arr(j), "R") > 0 Then arr1(2, 1) = arr1(2, 1) + 1: arr1(2, 2) = Application.Max(arr1(2, 2), j - YRMax - 1): YRMax = j
    
17.   If InStr(arr(j), "G") > 0 And InStr(arr(j), "R") > 0 Then arr1(3, 1) = arr1(3, 1) + 1: arr1(3, 2) = Application.Max(arr1(3, 2), j - GRMax - 1): GRMax = j
    
18.   If InStr(arr(j), "Y") > 0 And InStr(arr(j), "G") > 0 And InStr(arr(j), "R") > 0 Then arr1(4, 1) = arr1(4, 1) + 1: arr1(4, 2) = Application.Max(arr1(4, 2), j - YGRMax - 1): YGRMax = j
    
19. Next j
    
20. [z18].Resize(4, 2) = arr1
    
21. End Sub

复制代码

跳转到最佳答案楼层

不信这样还重名

注意：从D3到IP12不一定每行都有数据，意思就是，有时不是10行数据，是4行，5行或7行不一定。
这个啥意思呢？是说如果这列不是10行都有数据就不计算么？

不信这样还重名

还有我刚看了下，D3到IP12是都有数据的呀，没有空的

wszbd

不信这样还重名 发表于 2014-1-15 21:33
还有我刚看了下，D3到IP12是都有数据的呀，没有空的

假设有空的，可以跳过去，计算下一个

wszbd

不信这样还重名 发表于 2014-1-15 21:33
还有我刚看了下，D3到IP12是都有数据的呀，没有空的

就好像程序中用的这个代码：on error resume next 遇到错误，跳过继续执行下一句.

wszbd

不信这样还重名 发表于 2014-1-15 21:33
还有我刚看了下，D3到IP12是都有数据的呀，没有空的

要不先做好程序，在前面加这个代码：on error resume next 遇到错误，跳过继续执行下一句.

不信这样还重名

wszbd 发表于 2014-1-15 21:39
要不先做好程序，在前面加这个代码：on error resume next 遇到错误，跳过继续执行下一句.

我想问的是，如果一列中的数据若有颜色，但不足10行，是不是就不计算在间隔的次数内？

wszbd

不信这样还重名 发表于 2014-1-15 21:57
我想问的是，如果一列中的数据若有颜色，但不足10行，是不是就不计算在间隔的次数内？

是颜色之间的间隔，间隔了多少列，与行数没有关系。

这么说吧，要么有4行，5行或7行，行里的数据要么这行都有，或者都没有，不会断断续续的。

CheryBTL

wszbd 发表于 2014-1-15 22:08
是颜色之间的间隔，间隔了多少列，与行数没有关系。

这么说吧，要么有4行，5行或7行，行里的数据要么这 ...

短消息收到，楼主想要的效果是什么？放在什么地方？请楼主模拟下想要的结果。

wszbd

CheryBTL 发表于 2014-1-16 09:10
短消息收到，楼主想要的效果是什么？放在什么地方？请楼主模拟下想要的结果。