- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
2#
發表於 2012-5-8 10:29
| 只看該作者
回復 1# 317
提供妳參考與測試，排序對象為 店鋪名稱、類別、商品名稱、銷售金額等順序。- Option Base 1
- Option Explicit
- ' -------------------------------------------
- ' A3 = 空白欄
- ' B3 = 序號
- ' C3 = 店鋪名： 中山區、古亭區 等
- ' * D3 = 店鋪名稱 排序方式： (遞增)
- ' * E3 = 類別 排序方式： (遞增)
- ' * F3 = 商品名稱 排序方式： (遞增)
- ' G3 = 單價
- ' H3 = 數量
- ' * I3 = 銷售金額 排序方式： (遞減)
- ' J3 = 備註
- ' -------------------------------------------
- Sub Sorting_Sample()
- Dim sortKey As Variant
- Dim sortSeq As Variant
- Dim i As Long
-
- sortKey = Array("D", "E", "F", "I")
- sortSeq = Array("A", "A", "A", "D")
-
- For i = UBound(sortKey ) To 1 Step -1
- Range("B3").CurrentRegion.Sort _
- Key1:=Cells(3, sortKey (i)), _
- Order1:=IIf(sortSeq(i) = "A", _
- xlAscending, xlDescending), _
- Header:=xlYes, Orientation:=xlTopToBottom
- Next i
- End Sub
|
|
