標題: 一個排序問題 [打印本頁]

---

作者: 317    時間: 2012-5-8 07:19     標題: 一個排序問題

請教大大們, 03版中排序是按遞增遞增減, 或自訂, 但07在版中, 排序的功能並沒有上述, 或小妹不善於使用, 請大大教導, 謝謝!!

---

作者: c_c_lai    時間: 2012-5-8 10:29

回復 1# 317
提供妳參考與測試，排序對象為 店鋪名稱、類別、商品名稱、銷售金額等順序。

1. Option Base 1
   
2. Option Explicit
   
3. 
   
4. ' -------------------------------------------
   
5. '    A3 = 空白欄
   
6. '    B3 = 序號
   
7. '    C3 = 店鋪名：  中山區、古亭區 等
   
8. ' * D3 = 店鋪名稱  排序方式：  (遞增)
   
9. ' * E3 = 類別      排序方式：      (遞增)
   
10. ' * F3 = 商品名稱  排序方式：  (遞增)
    
11. '    G3 = 單價
    
12. '    H3 = 數量
    
13. ' * I3 = 銷售金額  排序方式：   (遞減)
    
14. '    J3 = 備註
    
15. ' -------------------------------------------
    
16. Sub Sorting_Sample()
    
17.     Dim sortKey As Variant
    
18.     Dim sortSeq As Variant
    
19.     Dim i As Long
    
20.    
    
21.     sortKey  = Array("D", "E", "F", "I")
    
22.     sortSeq = Array("A", "A", "A", "D")
    
23.    
    
24.     For i = UBound(sortKey ) To 1 Step -1
    
25.         Range("B3").CurrentRegion.Sort _
    
26.             Key1:=Cells(3, sortKey (i)), _
    
27.             Order1:=IIf(sortSeq(i) = "A", _
    
28.             xlAscending, xlDescending), _
    
29.             Header:=xlYes, Orientation:=xlTopToBottom
    
30.     Next i
    
31. End Sub

複製代碼

---

作者: 317    時間: 2012-5-8 13:50

回復 2# c_c_lai
謝謝回應,
但說真, 小妹03在中使用排序, 如編號, 用上排序遞增, 資料便能整理, 但07中, 排序是否少了這則, 故請教各大大們, 但還是感謝大大回應..謝謝!!

---

作者: Rita    時間: 2012-5-15 15:58

回復 3# 317
07的自動排序功能跟03相同~沒有缺少
在常用右上有"排序與篩選", 看要從小至大或由大至小or自訂都是OK低~
只是不叫做遞增了~~你再試試唷!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)