ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦³­Ó±Æ§Ç°ÝÃ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

CP2_t.rar (460.9 KB)

Simon

¦^´_ 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(»¼´î)±Æ§Ç
    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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
Simon

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


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

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD