[已解决]求vba改动一下条件

hjuy78

Book2.rar (8.5 KB, 下载次数: 10)

2012-2-18 20:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsjohn

2012-2-18 20:30

改了，看看是不是这样，看附件

跳转到最佳答案楼层

dsjohn

改了，看看是不是这样，看附件

雄鹰

想开一个新的思路，但是仍然有问题，谁有更好的算法？

Sub 连续三个()
    Dim i&, j&, k&, s$
    [a14:bj14].Interior.ColorIndex = xlNone
    For j = 1 To 62    '遍历列
    s1 = 0: s2 = 0: s3 = 0: s4 = 0: s5 = 0: s7 = 0: s8 = 0
       For i = 9 To 14
           Select Case Cells(i, j)
                Case Is <= 444
                    s1 = s1 + 1
                Case Is <= 445
                    s2 = s2 + 1
                Case Is <= 454
                    s3 = s3 + 1
                Case Is <= 544
                    s4 = s4 + 1
                Case Is <= 545
                    s5 = s5 + 1
                Case Is <= 554
                    s6 = s6 + 1
                Case Is <= 454
                    s7 = s7 + 1
                Case Is <= 555
                    s8 = s8 + 1
            End Select
       If s1 > 2 Or s2 > 2 Or s3 > 2 Or s4 > 2 Or s5 > 2 Or s6 > 2 Or s7 > 2 Or s8 > 2 Then
          Cells(i, j).Interior.ColorIndex = 5
       End If
       Next
    Next j
End Sub