執行VBA上的問題(sorting不完全)

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-4-24 20:20 | 顯示全部帖子

本帖最後由 register313 於 2012-4-24 21:30 編輯

回復 1# m09903020

Sub sorting_order()
C = [G2].End(xlToRight).Column - [G2].Column + 1
For Each G In Range([G2], [G2].End(xlDown))
G.Resize(1, C).Sort Key1:=G, Order1:=xlAscending, Header:=xlGuess, Orientation:=xlLeftToRight
Next
End Sub

複製代碼

Sub sorting_order()
C = [G2].End(xlToRight).Column - [G2].Column + 1
'C=G2向右最後一欄之欄號-G2欄號+1=11-7+1=5欄
For Each G In Range([G2], [G2].End(xlDown))
'迴圈:共有幾列要排序第1圈:G=G2,第2圈:G=G3...
G.Resize(1, C).Sort Key1:=G, Order1:=xlAscending, Header:=xlGuess, Orientation:=xlLeftToRight
'G2擴大5欄作排序排序鍵G2 遞增排序無標題依列排序
'G3擴大5欄作排序排序鍵G3 遞增排序無標題依列排序
Next
End Sub

複製代碼

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。