Hsieh

¦^´_ 7# yanto913

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. With Sh
   
3. For i = 1 To 22
   
4.     .ChartObjects("Chart 1").Activate
   
5.     ActiveChart.SeriesCollection(1).Points(i).Select
   
6. 
   
7.     If .Cells(i + 1, 7) = "Return" Then
   
8.     j = 3 '¬õ
   
9.     Else
   
10.     If .Cells(i + 1, 7) = "Remove" Then
    
11.     j = 21 'µµ
    
12.     Else
    
13.     If .Cells(i + 1, 7) = "IDLE" Then
    
14.     j = 6 '¶À
    
15.     Else
    
16.     If .Cells(i + 1, 7) = "Prod" Then
    
17.     j = 10 'ºñ
    
18.     Else
    
19.     j = 2 '¥Õ
    
20.     End If
    
21.     End If
    
22.     End If
    
23.     End If
    
24.    
    
25.     Selection.Interior.ColorIndex = j
    
26.    
    
27.     Next
    
28.     End With
    
29. End Sub

½Æ»s¥N½X