GBKEE

¦^´_ 1# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target(1).Row = 2 Then           '¦b²Ä2¦C
   
4.          Select Case Target(1).Column
   
5.         Case 1
   
6.               With ActiveWindow         '²¾°£µøµ¡¤À³Î
   
7.                 .SplitColumn = 0
   
8.                 .SplitRow = 0
   
9.             End With
   
10.             Cells.EntireColumn.Hidden = True
    
11.             [A1:F1].Cells.EntireColumn.Hidden = False
    
12.             [A1].Select
    
13.         Case 2 To 5                     'B2:E2
    
14.             ÁôÂÃ Target(1)
    
15.     End Select
    
16.     End If
    
17.     Application.EnableEvents = True
    
18. End Sub
    
19. 
    
20. Sub ÁôÂÃ(xLRng As Range)
    
21.     Dim Rng As Range, xF As Range
    
22.     Set Rng = Range("A2, F2" )
    
23.     Cells.EntireColumn.Hidden = False
    
24.     Set xF = Rows(2).Find(xLRng, LOOKAT:=xlPart, LookIn:=xlValues)   '´M§ä
    
25.     Do
    
26.         Set Rng = Union(Rng, xF)
    
27.         Set xF = Rows(2).FindNext(xF)
    
28.     Loop While xLRng.Address <> xF.Address  '¤@ª½¨ì¬O²Ä¤@´M§ä¨ìªº¦ì¸m
    
29.     Cells.EntireColumn.Hidden = True
    
30.     Rng.EntireColumn.Hidden = False
    
31.     Rng.Select
    
32.     With ActiveWindow
    
33.         .SplitColumn = 6
    
34.         .SplitRow = 2
    
35.         .FreezePanes = True
    
36.     End With
    
37. End Sub

½Æ»s¥N½X