返回列表 上一主題 發帖

[發問] 如何將巨集而成的"排序"改成目前選取中的排序

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-21 10:28 | 顯示全部帖子

[發問] 如何將巨集而成的"排序"改成目前選取中的排序

Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal

以上是針對C欄排序地巨集

是否可以改寫成針對目前所選取範圍的排序?
收藏 分享

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2012-2-21 14:44 | 顯示全部帖子
回復 2# register313


    大大真是太厲害了~請問大大~如果是選取範圍是A3:C7的話~以C欄遞增排序~又該如何改寫呢?

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2012-2-22 11:38 | 顯示全部帖子
本帖最後由 av8d 於 2012-2-22 11:40 編輯

回復 4# register313

Selection.Sort Key1:=Selection.Offset(0, Selection.Columns.Count - 1), Order1:=xlAscending
    請問所選的最後一欄為Offset(0, Selection.Columns.Count - 1
舉例好了，如果我選了ABC欄所以
0=C欄
-1=B欄
-2=A欄

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
4#
發表於 2012-2-22 14:29 | 顯示全部帖子
回復 6# register313


若選A~D欄
Selection.Sort Key1:=Selection.Offset(0, 0), Order1:=xlAscending    以A欄為排序鍵
Selection.Sort Key1:=Selection.Offset(0, 1), Order1:=xlAscending    以B欄為排序鍵
Selection.Sort Key1:=Selection.Offset(0, 2), Order1:=xlAscending    以C欄為排序鍵
Selection.Sort Key1:=Selection.Offset(0, 3), Order1:=xlAscending    以D欄為排序鍵

以上是否正確?感謝!

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題