yen956

¸Õ¸Õ¬Ý:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Dim col1, row1 As Integer
   
4.     col1 = Target.Column
   
5.     row1 = Target.Row Mod 5
   
6.     Set Rng = Union([H4:K5], [H9:K10], [H14:K15], [H19:K20])   '³]©w Worksheet_SelectionChange IJ°Ê°Ï°ì
   
7.     [B4:K20].Interior.ColorIndex = xlNone
   
8.     If Not Intersect(Target, Rng) Is Nothing Then
   
9.         Target.Interior.ColorIndex = 7
   
10.         If row1 = 4 Then
    
11.             Select Case col1
    
12.                 Case Is = 8:  Target.Offset(1, -6).Resize(1, 2).Interior.ColorIndex = 7
    
13.                 Case Is = 9:  Target.Offset(0, -7).Resize(1, 2).Interior.ColorIndex = 7
    
14.                 Case Is = 10: Target.Offset(0, -8).Resize(2, 1).Interior.ColorIndex = 7
    
15.                 Case Is = 11: Target.Offset(0, -8).Resize(2, 1).Interior.ColorIndex = 7
    
16.             End Select
    
17.         Else
    
18.             Select Case col1
    
19.                 Case Is = 8:  Target.Offset(0, -4).Resize(1, 2).Interior.ColorIndex = 7
    
20.                 Case Is = 9:  Target.Offset(-1, -5).Resize(1, 2).Interior.ColorIndex = 7
    
21.                 Case Is = 10: Target.Offset(-1, -6).Resize(2, 1).Interior.ColorIndex = 7
    
22.                 Case Is = 11: Target.Offset(-1, -6).Resize(2, 1).Interior.ColorIndex = 7
    
23.             End Select
    
24.         End If
    
25.     End If
    
26. End Sub

½Æ»s¥N½X

¤U¸ü (62.62 KB)

2015-11-1 15:59

¥O¬ÛÃö°Ï°ìÅã¥Ü¦â±m.rar (8.93 KB)

¤U¸ü¦¸¼Æ: 3

2015-11-1 16:00