Sorting程式碼不能執行

您好：

有關sorting，想請教如下程序，為什麼不能執行？左看右看就是看不出有誤？請前輩指導解惑。檔案如附。

Sub SortData()
Range("A1").Sort Key1:=Cells(1, 4), Order1:=xlAscending, Key2:=Cells(1, 6), Order2:=xlAscending, Header:=xlYes
End Sub

stevenliu

Sorting.rar (14.67 KB)

樓主熱帖

Engr[12]

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

13^#

發表於 2013-12-24 22:28 | 只看該作者

回復 12# stevenliu555

可能是對於一般使用者來說，在滑鼠操作的介面功能變的超強大，超簡便，
但是相對的，程式語言也就變的更複雜了。猜的啦…

TOP

stevenliu555

小學生 Rank: 1

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

12^#

發表於 2013-12-24 21:00 | 只看該作者

感謝10#, 11#的教導，真的可以耶。
但是，我還是有點質疑，為什麼EXCEL 2007、2010程式碼會變得複雜，反而難用，不解。

Engr[12]

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

11^#

發表於 2013-12-24 08:22 | 只看該作者

回復 6# stevenliu555
回復 10# owen06
的確在 2003 與 2007、2010 上表達是有些微的差異性，
多謝 owen06 大大的用心！

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

複製代碼

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 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