yen956

¦^´_ 1# ipip207
¸Õ¸Õ¬Ý
³Ì¤W­±´¡¤J¤@¦C
¥Ñ¥ª¦Ü¥k¨Ì§Ç¶ñ¤J ByDate,Show,Hide,Jan,Feb, Mar, ...,Dec

1. Private Sub Worksheet_selectionChange(ByVal Target As Range)
   
2.     Dim Col%, LstR%, Rng As Range
   
3.     Col = Target.Column
   
4.     If Col > 15 Then Exit Sub
   
5.     LstR = [A65536].End(xlUp).Row
   
6.     Set Rng = Range([A2], Cells(LstR, 15))     '¥þ³¡±Æ§Ç½d³ò
   
7.     If Target.Row > 1 Then Exit Sub
   
8.     If Col = 1 Then       'Sort byDate xlAscending(«ì´_­ìª¬)
   
9.         Rng.Sort _
   
10.             Key1:=Range("A2"), Order1:=xlAscending, _
    
11.             Header:=xlYes
    
12.     ElseIf Col = 2 Then
    
13.         Cells.EntireRow.Hidden = False
    
14.     ElseIf Col = 3 Then
    
15.         For I = 3 To LstR
    
16.             If Cells(I, 3).Value > 2 Then
    
17.                 Cells(I, 3).EntireRow.Hidden = True
    
18.             End If
    
19.         Next
    
20.     Else
    
21.         Set Rng = Range([A2], Cells(LstR, 15))     '¥þ³¡±Æ§Ç½d³ò, 6¥Nªí"F"
    
22.         Rng.Sort _
    
23.             Key1:=Cells(2, Col), Order1:=xlDescending, _
    
24.             Header:=xlYes
    
25.     End If
    
26. End Sub

½Æ»s¥N½X

¤U¸ü (42.87 KB)

2017-2-28 12:25