register313

¦^´_ 1# tinching
ªì¾ÇªÌvba

1. Sub xx()
   
2. 
   
3. For C = 13 To 18
   
4.   J = 17
   
5.   For R = 79 To 87
   
6.     If Cells(C, R) = [CZ15] Then
   
7.          Range(Cells(C - 9, J), Cells(C - 9, J + 1)).Font.ColorIndex = 3
   
8.        Else
   
9.          Range(Cells(C - 9, J), Cells(C - 9, J + 1)).Font.ColorIndex = 0
   
10.     End If
    
11.     J = J + 2
    
12.   Next R
    
13. Next C
    
14. 
    
15. End Sub

½Æ»s¥N½X