GBKEE

¦^´_ 5# yanto913
¦ý¤º®e§Ú¥Îªº¬OCells(i,j)
§Aªº¤º®e¥u¦³§Aª¾¹D°Ú?§A­n»¡¥X¨Ó§r!

GBKEE

¦^´_ 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.             Select Case .Cells(i + 1, 7)
   
7.                 Case "Return"
   
8.                 j = 3 '¬õ
   
9.             Case "Remove"
   
10.                 j = 21 'µµ
    
11.             Case "IDLE"
    
12.                 j = 6 '¶À
    
13.             Case "Prod"
    
14.                 j = 10 'ºñ
    
15.             Case Else
    
16.                 j = 2   '¥Õ
    
17.             End Select
    
18.             Selection.Interior.ColorIndex = j
    
19.         Next
    
20.     End With
    
21. End Sub
    
22. ''''''''*************************************
    
23. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
24.     With Sh
    
25.         For i = 1 To 22
    
26.             .ChartObjects("Chart 1").Activate
    
27.             ActiveChart.SeriesCollection(1).Points(i).Select
    
28.             If .Cells(i + 1, 7) = "Return" Then
    
29.                 j = 3 '¬õ
    
30.             ElseIf .Cells(i + 1, 7) = "Remove" Then
    
31.                 j = 21 'µµ
    
32.             ElseIf .Cells(i + 1, 7) = "IDLE" Then
    
33.                 j = 6 '¶À
    
34.             ElseIf .Cells(i + 1, 7) = "Prod" Then
    
35.                 j = 10 'ºñ
    
36.             Else
    
37.                 j = 2   '¥Õ
    
38.             End If
    
39.             Selection.Interior.ColorIndex = j
    
40.         Next
    
41.     End With
    
42. End Sub

½Æ»s¥N½X