yen956

¸Õ¸Õ¬Ý

1. Sub «e´ºÃC¦â¥N¸¹_Change()
   
2.    ActiveCell = Range("D2")
   
3.    ActiveCell.Offset(, -1).Font.ColorIndex = ActiveCell
   
4. End Sub
   
5. 
   
6. Sub ­I´ºÃC¦â¥N¸¹_Change()
   
7.    ActiveCell = Range("E2")
   
8.    ActiveCell.Offset(, -2).Interior.ColorIndex = ActiveCell
   
9. End Sub
   
10. 
    
11. Private Sub cmd¶ñ¦â_Click()
    
12.    'ActiveCell ¶·¦b Äæ10 ©M Äæ16 ¤§¶¡
    
13.    '«ö¶s cmd¶ñ¦â ¤~¦³§@¥Î
    
14.    col1 = ActiveCell.Column
    
15.    If col1 < 10 Or col1 > 16 Then Exit Sub
    
16.    
    
17.    °_ÂI = ActiveCell.Row
    
18.    ²×ÂI = Cells(°_ÂI, 13).End(xlDown).Row
    
19.    
    
20.    'cÄæ ¤½¥q¥Nªí¦WºÙ ªºÁ`¼Æ
    
21.    c¥N¸¹Á`¼Æ = [C3].End(xlDown).Row
    
22.    
    
23.    For mRow = °_ÂI To ²×ÂI
    
24.       m¥N¸¹ = UCase(Cells(mRow, 13))
    
25.       For cRow = 3 To c¥N¸¹Á`¼Æ
    
26.          c¥N¸¹ = Cells(cRow, 3)
    
27.          If m¥N¸¹ = c¥N¸¹ Then
    
28.             «e´º = Cells(cRow, 4)
    
29.             ­I´º = Cells(cRow, 5)
    
30.             Cells(mRow, 10).Resize(, 7).Select
    
31.             Selection.Interior.ColorIndex = ­I´º
    
32.             Selection.Font.ColorIndex = «e´º
    
33.             Exit For
    
34.          End If
    
35.       Next
    
36.    Next
    
37. End Sub

½Æ»s¥N½X