~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~
~ 聲明事項 ~
如各位想把以下本文章轉貼 , 請記得要注明出處.
本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.
由於圖片製作需時, 所以更新會比較慢.
存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.
資料排序嘛 ~ 你不可能沒試過吧 ~ 那麼要你用 Excel VBA 來進行資料排序又可以嗎 ?
當然囉 ~ 怎麼會不行呢 ?
==================
Range("B2:B8").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
==================
==================
Range("B2:C8").Select
Range("C2").Activate
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
==================
上面的兩組程式碼是不同的 , 請細心的看一下 , 第一組所選擇的範圍是 B2 到 B8 , 主要條件是 B2 , 而排序方式是從小到大的遞增 , 而第二組所選擇的範圍是 B2 到 C8 , 主要條件是 C2 , 排序方式也是遞增 , 當你使用這個排序的程式碼時 , 記得要小心留意選擇的範圍有沒有設定錯誤 , 主要條件也是 , 否則排錯了我可不負責哦 ~ 哈哈 ~
另外最常用的除了遞增還有遞減 , 遞減的方法是把程式碼當中的 xlAscending 改成 xlDescending , 這就可以了 ~
2 留言:
想請問一下,Excel的排序部份是不是有限制只能設定三個條件?因為當我在
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("H2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
中,改成:
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("H2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending,Key4:=Range("B2"), Order4:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
多加了一個key4的條件時,系統就顯示錯誤了!!
謝謝您的回覆~
您好
我剛好在找vba自訂清單排序
剛好路過您這裡
想請教如何自訂清單排序用vba?
發佈留言