Sorting程式碼不能執行

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-12-23 09:23 | 只看該作者

回復 1# stevenliu555

我在執行上沒有任何問題耶，你是不是因為執行過一次，排序完成後，再按就沒有反應，以為不行了？
你可以再新增一個遞減排序的，就可以確定是不是一切正常了。
OrderX:=xlAscending---遞增排序
OrderX:=xldescending--遞減排序

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2013-12-23 09:59 | 只看該作者

回復 2# owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2013-12-23 12:37 | 只看該作者

回復 3# c_c_lai

這就怪了，我在2003上執行這個檔案是正常的，會先按照性別遞增排序，然後再將同性別下的年齡遞增排序。

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2013-12-23 13:28 | 只看該作者

回復 4# owen06
這種相容性問題是非常令人困擾的，有些在2003能執行的未必相容於 2007、2010。

stevenliu555

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: Windows 8
軟體版本: OFFICE 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2010-10-9
最後登錄: 2016-1-20

6^#

發表於 2013-12-23 15:42 | 只看該作者

我的EXCEL是2007，執行結果與c_c_lai一樣，如果要用於EXCEL2007，請問該如何更改？謝謝。

Engr<i>[12]<strong>

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2013-12-23 15:56 | 只看該作者

回復 6# stevenliu555

你可以先直接用錄製的功能讓他幫你寫好內容，然後再自己去把多餘的累贅刪掉，這樣比較不會有相容性的問題。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-12-23 16:42 | 只看該作者

回復 6# stevenliu555
試試看,是否可行(我沒有2007)

Sub SortData()
Range("A1").Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("F1"), Order2:=xlAscending, Header:=xlYes
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2013-12-23 17:05 | 只看該作者

回復 8# GBKEE
Same Error as shown on 3#.

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

10^#

發表於 2013-12-23 23:40 | 只看該作者

回復 6# stevenliu555

我剛用2007錄製出來，再一個一個慢慢刪，最精簡似乎就一定要這樣了，再簡下去就不能執行了，還挺麻煩的@@

Sub sortdata()
Sheets("會員名冊").Sort.SortFields.Clear
Sheets("會員名冊").Sort.SortFields.Add Key:=Range("D2"), Order:=xlAscending '先以D2遞增排序
Sheets("會員名冊").Sort.SortFields.Add Key:=Range("F2"), Order:=xlAscending '再以F2遞增排序
With Sheets("會員名冊").Sort
.SetRange Range("A1:J31")
.Header = xlYes
.Apply
End With
End Sub

複製代碼