GBKEE

´ê¤@¸} °Ñ¦Ò¬Ý¬Ý

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim xA As Range, xR As Range
   
3.     Set xA = [I7:O18]
   
4.     xA.Interior.ColorIndex = 0
   
5.     If Intersect(xA, Target) Is Nothing Then Exit Sub
   
6.     For Each xR In xA.Columns
   
7.         If Not Intersect(xR, Target) Is Nothing Then xR.Interior.Color = vbYellow
   
8.     Next
   
9.     For Each xR In xA.Rows
   
10.         If Not Intersect(xR, Target) Is Nothing Then xR.Interior.Color = vbYellow
    
11.     Next
    
12.     Target.Interior.Color = vbRed
    
13. End Sub

½Æ»s¥N½X