[已解决]统计连续2次大于等于2的个数

hhaa999

统计连续2次大于等于2的个数

最佳答案

月排行榜 / 总排行榜

爱疯

2012-9-8 15:09

1. 
   
2. Sub 按钮1_Click()
   
3.     Dim c, r0, r, i, j
   
4. 
   
5.     r0 = 2    '数据源中第一个数据的行数
   
6.     c = Range("a2").End(xlToRight).Column
   
7.     Cells.Font.ColorIndex = 0
   
8. 
   
9.     For j = 1 To c Step 2    '遍历组
   
10.         r = Cells(r0, j).End(xlDown).Row - 1    '只需比较到倒数第2行
    
11. 
    
12.         For i = r0 To r
    
13.             If Cells(i, j) > 1 Then
    
14.                 If Cells(i + 1, j) > 1 Then
    
15. 
    
16.                     '满足统计1
    
17.                     Cells(i, j).Font.ColorIndex = 3    '红
    
18.                     Cells(i + 1, j).Font.ColorIndex = 3
    
19.                     If Cells(i + 2, j + 1) > 10 Then
    
20.                         '满足统计2
    
21.                         Cells(i + 2, j + 1).Font.ColorIndex = 10    '绿
    
22.                     End If
    
23.                     i = i + 1    '规则不清，不好判断是否要这句，暂且使用。
    
24. 
    
25.                 End If
    
26.             End If
    
27.         Next i
    
28. 
    
29.     Next j
    
30. End Sub
    

复制代码

888b.rar (10.11 KB, 下载次数: 22)

2012-9-8 15:09 上传

点击文件名下载附件

跳转到最佳答案楼层

yanyongxia

用一个计数器就行了。

爱疯

1. 
   
2. Sub 按钮1_Click()
   
3.     Dim c, r0, r, i, j
   
4. 
   
5.     r0 = 2    '数据源中第一个数据的行数
   
6.     c = Range("a2").End(xlToRight).Column
   
7.     Cells.Font.ColorIndex = 0
   
8. 
   
9.     For j = 1 To c Step 2    '遍历组
   
10.         r = Cells(r0, j).End(xlDown).Row - 1    '只需比较到倒数第2行
    
11. 
    
12.         For i = r0 To r
    
13.             If Cells(i, j) > 1 Then
    
14.                 If Cells(i + 1, j) > 1 Then
    
15. 
    
16.                     '满足统计1
    
17.                     Cells(i, j).Font.ColorIndex = 3    '红
    
18.                     Cells(i + 1, j).Font.ColorIndex = 3
    
19.                     If Cells(i + 2, j + 1) > 10 Then
    
20.                         '满足统计2
    
21.                         Cells(i + 2, j + 1).Font.ColorIndex = 10    '绿
    
22.                     End If
    
23.                     i = i + 1    '规则不清，不好判断是否要这句，暂且使用。
    
24. 
    
25.                 End If
    
26.             End If
    
27.         Next i
    
28. 
    
29.     Next j
    
30. End Sub
    

复制代码

888b.rar (10.11 KB, 下载次数: 22)

2012-9-8 15:09 上传

点击文件名下载附件

74521

爱疯 发表于 2012-9-8 15:09

版主您好，看了您写的程序，还是不是很理解，我现在有一个表格，想计算出连续超过350的次数，并且统计出来，希望能帮助我一下，可以吗

74521

74521 发表于 2012-12-5 15:25
版主您好，看了您写的程序，还是不是很理解，我现在有一个表格，想计算出连续超过350的次数，并且统计出来 ...

版主，我在线等你回复哦！

74521

爱疯 发表于 2012-9-8 15:09

版主，我把附件上传好了。！