[µo°Ý] §Q¥ÎVBAÁôÂïS©w¼Æ­Èªº¦C(Row) ©M±Æ§Ç(Sort)

ipip207

·Q½Ð±Ð¦U¦ì¦p¦ó¥ÎVBA ¹ê²{¤U¦Cªº±ø¥ó¡AÁÂÁ¡I

i) ÁôÂÃCÄæ ¼Æ­È¤j©ó2ªº¦C ¡]¤]´N¬O¦b¤U­±¨Ò¤lHide Row 3,5,6¡^
ii) ³]³]¤U©Ôµæ³æ¡A¿ï¨ú¯S©wÄæ«á¦Û°Ê«ö¼Æ­È°ª¦Ü§C±Æ¦C ¡]¨Ò¦p¤U©Ôµæ³æ¥]§tJan, Feb, Mar 3Äæ¡A¿ï¨úEÄæ"Feb" «á¦Û°Ê§â¼Æ­È¥Ñ°ª¦Ü§C±Æ§Ç¡^

Sheet1
¡@¡@A¡@¡@¢Ð¡@¡@            ¢Ñ¡@¡@¢Ò          E            F
1¡@Date¡@Category¡@YTM¡@ Jan         Feb      Mar
2¡@5/01¡@Equity            1          8.95      -3.45      6.72
3¡@7/01¡@Allocation     4          11.66     2.55     0.55
4¡@14/02 Bond               2          4.01       6.45      -4.3
5    5/03¡@Equity¡@        3¡@       2.91       7.44      0.002
6     5/03¡@Bond¡@       3¡@         2.55     3.23        -1.2

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