VBA如何改写这个漏洞代码 并且不用intersect

laoau138

VBA如何改写这个漏洞代码 并且不用intersect


第一   并且不用intersect

第二   这个代码有漏洞  比如A1：A10单元格值如果同时发生变化，比如从别处复制一列数据到A1：A10则代码报错


如何改写一下

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim icolor As Integer, x As Range
   
3.     If Target.Row <= 10 And Target.Column = 1 Then
   
4.         For Each x In Target
   
5.             Select Case x
   
6.                 Case 1 To 5
   
7.                    icolor = 6
   
8.                 Case 6 To 10
   
9.                    icolor = 12
   
10.                 Case 11 To 15
    
11.                    icolor = 7
    
12.                 Case 16 To 20
    
13.                    icolor = 53
    
14.                 Case 21 To 25
    
15.                    icolor = 15
    
16.                 Case 26 To 30
    
17.                    icolor = 42
    
18.                 Case Else
    
19.              End Select
    
20.            x.Interior.ColorIndex = icolor
    
21.         Next
    
22.     End If
    
23. End Sub
    

复制代码

grf1973

可以更简洁一些。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim icolor(), x As Range, k%
   
3.     icolor = Array(6, 12, 7, 53, 15, 42)
   
4.     If Target.Row <= 10 And Target.Column = 1 Then
   
5.         For Each x In Target
   
6.             k = Int((Val(x) - 0.1) / 5)
   
7.             x.Interior.ColorIndex = icolor(k)
   
8.         Next
   
9.     End If
   
10. End Sub

复制代码

laoau138

grf1973 发表于 2016-11-16 11:18
可以更简洁一些。

这个怎样做

http://www.excelpx.com/thread-425680-1-1.html