- ©«¤l
- 19
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2011-7-27
- ³Ì«áµn¿ý
- 2015-5-20
|
¦^´_ 2# Hsieh
·PÁ§AªºÀ°¦£¡A¥t¥~½Ð±Ð¦pªGEÄ榳300µ§¡A´N»Ý§@300¦¸¡A¦pªG¥ÎVBAn¦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 |
|