[已解决]代码逻辑不太明白

adan_bai

test5是教程中给的，我觉得最后一行如果也满足条件（>500），就不会赛选出来。test4是我做的修改。
test4为什么没有结果（没有颜色）呢？是哪的逻辑出现了问题？请老师指点一下


数组.zip (160.35 KB, 下载次数: 5)

2013-1-2 10:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-2 11:46

1. Sub test4()
   
2.     Dim arr, t, i&
   
3.     Dim x As Integer, x1 As Integer
   
4.     Dim st As String, at1 As String
   
5.     清除颜色
   
6.     arr = Range("d1:d" & Range("d65536").End(xlUp).Row)
   
7.     For x = 2 To UBound(arr)
   
8.         If arr(x, 1) > 500 Then
   
9.             i = x
   
10.             Do
    
11.                 x = x + 1
    
12.                 If x >= UBound(arr) Then Exit Do
    
13. 
    
14.             Loop Until arr(x, 1) <= 500
    
15.             st1 = st
    
16.             st = st & "a" & i & ":d" & x - 1 & ","
    
17.             If Len(st) > 255 Then
    
18.                 st = st1
    
19.                 Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
20.                 x = x - 1
    
21.                 st = ""
    
22.             End If
    
23.         End If
    
24.     Next x
    
25.     If x >= UBound(arr) And st <> "" Then Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
26. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

hwc2ycy

1. Sub test4()
   
2.     Dim arr, t
   
3.     Dim x As Integer, x1 As Integer
   
4.     Dim st As String, at1 As String
   
5.     清除颜色
   
6.     arr = Range("d2:d" & Range("d65536").End(xlUp).Row)
   
7.     For x = 1 To UBound(arr)
   
8.         If arr(x, 1) > 500 Then
   
9.             Do
   
10.                 If x >= UBound(arr) Then Exit For
    
11.                 x = x + 1
    
12. 
    
13.             Loop Until arr(x, 1) <= 500
    
14.             st1 = sr
    
15.             st = st & "a" & x + 1 & ":d" & x + 1 & ","
    
16.             If Len(st) > 255 Then
    
17.                 st = st1
    
18.                 Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
19.                 x = x - 1
    
20.                 st = ""
    
21.             End If
    
22.         End If
    
23.     Next x
    
24.     If x = UBound(arr) And st <> "" Then Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
25. End Sub

复制代码

hwc2ycy

你在DO...LOOP里EXIT DO后，回到外层FOR循环，还是会要再加1的。
所以得在X=X+1前进行判断是否越界

adan_bai

老师：我要的是D列 >500的数值显示红色，现在的结果怎么不对了啊？

hwc2ycy

adan_bai 发表于 2013-1-2 11:12
老师：我要的是D列 >500的数值显示红色，现在的结果怎么不对了啊？

那就是写入STR的地址不对呀。

hwc2ycy

你的TEST5执行后也是一样的结果。

hwc2ycy

1. Sub test4()
   
2.     Dim arr, t, i&
   
3.     Dim x As Integer, x1 As Integer
   
4.     Dim st As String, at1 As String
   
5.     清除颜色
   
6.     arr = Range("d1:d" & Range("d65536").End(xlUp).Row)
   
7.     For x = 2 To UBound(arr)
   
8.         If arr(x, 1) > 500 Then
   
9.             i = x
   
10.             Do
    
11.                 x = x + 1
    
12.                 If x >= UBound(arr) Then Exit Do
    
13. 
    
14.             Loop Until arr(x, 1) <= 500
    
15.             st1 = st
    
16.             st = st & "a" & i & ":d" & x - 1 & ","
    
17.             If Len(st) > 255 Then
    
18.                 st = st1
    
19.                 Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
20.                 x = x - 1
    
21.                 st = ""
    
22.             End If
    
23.         End If
    
24.     Next x
    
25.     If x >= UBound(arr) And st <> "" Then Range(Left(st, Len(st) - 1)).Interior.ColorIndex = 3
    
26. End Sub

复制代码

hwc2ycy

最后的判断其实不需要去比较X的值的，地址全在ST里。跟X无多大关系。