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

GBKEE

¦^´_ 5# myleoyes
¦A¸Õ¸Õ¬Ý

1. Sub ÁôÂÃ(xLRng As Range)
   
2.     Dim Rng As Range, xF As Range
   
3.     Set Rng = Range("A2, F2")
   
4.     Cells.EntireColumn.Hidden = False
   
5.     Set xF = Rows(2).Find(xLRng, xLRng.Offset(, -1), LOOKAT:=xlPart, LookIn:=xlValues) '´M§ä
   
6.     Do
   
7.         Set Rng = Union(Rng, xF)
   
8.         Set xF = Rows(2).FindNext(xF)
   
9.     Loop While xLRng.Address <> xF.Address  '¤@ª½¨ì¬O²Ä¤@´M§ä¨ìªº¦ì¸m
   
10.     Cells.EntireColumn.Hidden = True
    
11.     Rng.EntireColumn.Hidden = False
    
12.     Rng.Select
    
13.     With ActiveWindow
    
14.         .SplitColumn = 6
    
15.         .SplitRow = 2
    
16.         .FreezePanes = True
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# myleoyes
¬O³o¼Ë¶Ü?

1. Sub ¼Æ¾Ú()
   
2.     zz = Application.InputBox("¿é¤J¼Æ¾Ú", "½Ð¿é¤J­×¥¿¼Æ¾Ú", Type:=1)
   
3.     If zz = 0 Then Exit Sub
   
4.     ActiveCell = zz: [D1] = ""
   
5.     Selection.Resize(2).AutoFill Range(Selection, Cells([B100].End(3).Row, Selection.Column)), Type:=xlFillDefault
   
6.     [D1] = "'¤ÀªR"
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# myleoyes
¦³©¯·|¸Ñµª¬O¤£¨¯­Wªº,¥u¬O¤£©ú¼I°ÝÃD«Ü¨¯­W°Õ.­n­×§ï¤°»ò,¥i¥H¥Î¤å¦r±Ô­z¶Ü?