GBKEE

¦^´_ 3# starbox520

¸Õ¸Õ¬Ý2003¿ý»sªº

1. Option Explicit
   
2. Sub Macro1()
   
3. '
   
4. ' Macro1 Macro
   
5. ' hsu ¦b 2016/10/3 ¿ý»sªº¥¨¶°
   
6. '
   
7. 
   
8. '
   
9.     Range("A1:H33").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
   
10.         "G2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, _
    
11.         Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
    
12.         xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal, _
    
13.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    
14.    
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# starbox520

1. 'AutoFilterMode ÄÝ©Ê   ¥Ø«e¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A«h¦¹Äݩʬ° True¡C¸ÓÄÝ©Ê»P FilterMode Äݩʤ¬¬Û¿W¥ß¡CŪ/¼g Boolean¡C
   
2. 'FilterMode ÄÝ©Ê          ¦pªG«ü©w¬¡­¶Ã¯³B©ó¿z¿ï¼Ò¦¡«h¬° True¡C°ßŪ Boolean¡C³Æµù:¦pªG¤u§@ªí¤¤¥]§t¤w¿z¿ï²M³æ¡B¥B¸Ó²M³æ¤¤¥]§tÁôÂæC¡A«h¥»Äݩʬ° True¡C
   
3. 
   
4. '
   
5.     With ActiveWorkbook.Worksheets("rawdata")
   
6.         If .AutoFilterMode Or .FilterMode Then .AutoFilter.Sort.SortFields.Clear
   
7.         ' ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
   
8.     End With

½Æ»s¥N½X