Sorting程式碼不能執行

　暱稱: 阿軒

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

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

1^# 跳轉到 »

發表於 2013-12-23 09:23 | 顯示全部帖子

回復 1# stevenliu555

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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

2^#

發表於 2013-12-23 12:37 | 顯示全部帖子

回復 3# c_c_lai

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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

3^#

發表於 2013-12-23 15:56 | 顯示全部帖子

回復 6# stevenliu555

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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

4^#

發表於 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

複製代碼

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

5^#

發表於 2013-12-24 22:28 | 顯示全部帖子

回復 12# stevenliu555

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]