返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
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欄排序地巨集

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-21 11:07 | 只看該作者
本帖最後由 register313 於 2012-2-21 11:43 編輯

回復 1# av8d

Selection.Sort Key1:=Selection, Order1:=xlAscending
或
Selection.Sort Key1:=Selection.Resize(1, 1), Order1:=xlAscending

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2012-2-21 14:44 | 只看該作者
回復 2# register313


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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-2-21 15:25 | 只看該作者
回復 3# av8d

Selection.Sort Key1:=Selection.Offset(0, Selection.Columns.Count - 1), Order1:=xlAscending

以所選擇範圍之最後一欄為排序鍵作遞增排序

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
5#
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
6#
發表於 2012-2-22 12:32 | 只看該作者
回復 5# av8d

若選A~C欄
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欄為排序鍵

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
7#
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-2-22 15:57 | 只看該作者
回復 7# av8d

正確

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題