小小的漏洞

jbljypx

1. 
   
2. '《VBA数组-5：数组与单元格格式》有些小小的漏洞：
   
3. '如D80>500，没有着色，等等；
   
4. '如最后一行D10000>500时，不会着色。
   
5. '下面修补程序避免了上述漏洞。
   
6. '欢迎批评指正。
   
7. 
   
8. Sub 数组方法()
   
9. Dim arr, t, i
   
10. Dim x As Integer
    
11. Dim sr As String, sr1 As String
    
12. 清除颜色
    
13. t = Timer
    
14. arr = Range("d2:d" & Range("a65536").End(xlUp).Row)
    
15. For x = 1 To UBound(arr)
    
16. If x = UBound(arr) And sr <> "" Then Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
    
17. If x = UBound(arr) And arr(x, 1) > 500 Then 'jbl新增语句
    
18. Range("A" & x + 1 & ":D" & x + 1).Interior.ColorIndex = 3: MsgBox Timer - t: Exit Sub 'jbl新增语句
    
19. End If
    
20. If x = UBound(arr) And arr(x, 1) <= 500 Then 'jbl新增语句
    
21. MsgBox Timer - t: Exit Sub 'jbl新增语句
    
22. End If
    
23. If arr(x, 1) > 500 Then
    
24. sr1 = sr
    
25. sr = sr & "A" & x + 1 & ":D" & x + 1 & ","
    
26. i = Len(sr) 'jbl增加的观察语句
    
27. If Len(sr) > 255 Then
    
28. sr = sr1
    
29. x = x - 1
    
30. Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
    
31. sr = ""
    
32. i = "" 'jbl增加的观察语句
    
33. End If
    
34. End If
    
35. 'If x = 9998 Then Stop 'jbl增加的终止语句，以观察程序的结尾运行情况
    
36. Next x
    
37. MsgBox Timer - t
    
38. End Sub

复制代码