- 帖子
- 19
- 主題
- 4
- 精華
- 0
- 積分
- 62
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- winxp
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2011-7-27
- 最後登錄
- 2015-5-20
|
回復 2# Hsieh
感謝你的幫忙，另外請教如果E欄有300筆，就需作300次，如果用VBA要如何寫，在下是用巨集跑，如何縮短程式(如下，只跑四筆資料)，謝謝。
Sub Macro2()
'
' Macro2 Macro
' 11 在 2012/7/18 錄製的巨集
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 |
|
發表於 2012-7-18 13:55
| 
