½Ð±Ð¸ê®Æ¨Ì2Äæ±Æ§Ç

morris0914

¦³­Ó±Æ§Ç°ÝÃD³Â·ÐÀ°¦£~~
EÄæ14¨ì16945¶}©l±Æ§Ç±q¤p¨ì¤j¡A
D14¨ì16945¶}©l¹J¨ìEÄæ¹J0¬°±q¤p¨ì¤j¡A¹J¨ìEÄ欰1«h±q¤j¨ì¤p¡A¹J¨ìEÄ欰2«h±q¤p¨ì¤j¡A
¹J¨ìEÄ欰3«h±q¤p¨ì¤j¡A¨Ì¦¹Ãþ±À¡A¦Ó¥B¨ä¥¦¨Ò¸ê®Æ¤]»Ý¸òµÛ²¾°Ê¡A¸ê®Æ¦pªþ¥ó¡C

morris0914

¦^´_ 4# Hsieh


    ·PÁªO¥Dªº«ü¾É¡A§Ú¦A¸Õ¸Õ¬Ý¡AÁÂÁ¡C

Hsieh

¦^´_ 3# morris0914
¤£À´§ADÄ滼¼W©Î»¼´îªº§PÂ_³W«h¦p¦ó?
À³¸Ó¬O0©Î°¸¼ÆªºEÄ欰»¼¼W¡A©_¼Æ«h»¼´î
¦pªG¬O³o¼Ë¡A¸Õ¸Õ¥H¤Uµ{¦¡½X

1. Sub nn()
   
2. Dim Rng As Range, Rng1 As Range
   
3. Set Rng = Range("A10").CurrentRegion
   
4. x = Application.Min(Rng.Columns(5))
   
5. y = Application.Max(Rng.Columns(5))
   
6. For i = x To y
   
7. Rng.AutoFilter Field:=5, Criteria1:=i
   
8. k = i Mod 2
   
9. Set Rng1 = Rng.Offset(1).SpecialCells(xlCellTypeVisible)
   
10. Rng1.SpecialCells(xlCellTypeConstants).Sort key1:=Rng1.Cells(1, 4), order1:=k + 1, header:=xlGuess
    
11. Rng.AutoFilter
    
12. Next
    
13. End Sub

½Æ»s¥N½X

morris0914

¦^´_ 2# Hsieh


    ·PÁ§AªºÀ°¦£¡A¥t¥~½Ð±Ð¦pªGEÄ榳300µ§¡A´N»Ý§@300¦¸¡A¦pªG¥ÎVBA­n¦p¦ó¼g¡A¦b¤U¬O¥Î¥¨¶°¶]¡A¦p¦óÁYµuµ{¦¡(¦p¤U¡A¥u¶]¥|µ§¸ê®Æ)¡AÁÂÁ¡C

Sub Macro2()
'
' Macro2 Macro
' 11 ¦b 2012/7/18 ¿ý»sªº¥¨¶°
    Rows("13:13").Select
    Selection.AutoFilter
    Range("A13:AF16945").Sort Key1:=Range("E13"), Order1:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5, Criteria1:="0"
    Range("A13:AF16945").Sort Key1:=Range("D13"), Order1:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5, Criteria1:="1"
    Range("A13:AF16945").Sort Key1:=Range("D13"), Order1:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5, Criteria1:="2"
    Range("A13:AF16945").Sort Key1:=Range("D13"), Order1:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5, Criteria1:="3"
    Range("A13:AF16945").Sort Key1:=Range("D13"), Order1:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5, Criteria1:="4"
    Range("A13:AF16945").Sort Key1:=Range("D13"), Order1:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=5
    Selection.AutoFilter
End Sub

Hsieh

¦^´_ 1# morris0914

¨Ì§A©Ò­z¡A¥u¦³EÄ欰1®É±Æ§Ç¤~¥Ñ¤j¨ì¤p
©Ò¥H¡A¥u­n¥ý§â©Ò¦³¸ê®Æ¨Ì¾ÚEÄ欰¥D­nÁä¡ADÄ欰¦¸­nÁä¥Ñ¤p¨ì¤j(»¼¼W)±Æ§Ç«á
¦A¿z¿ï¥XEÄ欰1ªº¸ê®Æ¡AµM«á¨Ì·ÓDÄæ¥Ñ¤j¨ì¤p(»¼´î)±Æ§Ç
   

¤U¸ü (855.91 KB)

2012-7-18 14:24