"排序"/"刪除整列"有沒有其它的程式寫法? - Excel程式區

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2012-4-29 22:31 | 只看該作者

回復 11# Hsieh
版大您好,我用的是Excel 2010 format:
剛才所錄製的排序為:

Windows("BCM Order_Format.xlsx").Activate
Sheets("PO").Select
Range("D2").Select
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"D2:D600"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"Z2:Z600"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"H2:H600"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"G2:G600"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("PO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"E2:E600"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("PO").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

複製代碼

G大寫的據說只能至3組,所以我修改為以下5組的方法就行不通?

With Workbooks("BCM Order_Format.xlsx")
With .Sheets("PO")
.Range("A1").CurrentRegion.Sort Key1:=.Range("D2"), Order1:=xlAscending,
Key2:=.Range("Z2"), Order2:=xlAscending, _
Key3:=.Range("H2"), Order3:=xlAscending, _
Key4:=.Range("G2"), Order4:=xlAscending, _
Key5:=.Range("E2"), Order5:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal, _
DataOption4:=xlSortNormal, _
DataOption5:=xlSortNormal
End With
End With

複製代碼

請問依我想要的,還有什麼方法可以用?

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2012-4-29 22:39 | 只看該作者

回復 11# Hsieh
補充:
我用錄製的感覺不實用,所要才想要用"欄位範圍"作為排序,而不要指定欄+列,希望能有更好的建議!

register313

　頭銜: 麻辣路人甲

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

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

14^#

發表於 2012-4-29 22:53 | 只看該作者

回復 13# PJChen

2010版
用8樓的程式即可
程式第1行最後少了空白與 _
.Range("A1").CurrentRegion.Sort Key1:=.Range("D2"), Order1:=xlAscending, _
再試試看
或

Sub xx()
Ar = Array(5, 4, 3, 2, 1) '從優先順序最低的欄位開始,要排幾欄皆可
For i = 0 To UBound(Ar)
[A1].CurrentRegion.Sort Key1:=Cells(2, Ar(i)), Order1:=1, Header:=xlGuess '1:遞增 2:遞減
Next
End Sub

複製代碼

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2012-4-29 23:05 | 只看該作者

回復 12# PJChen
2010與2003排序方法不同
你所上傳的檔案欄位與程式碼不符
依照大意修改如下

Sub nn()
With Workbooks("BCM Order_Format.xlsx")
With .Sheets("PO")
Set Rng = Union(.[D2], .[Z2], .[H2], .[G2], .[E2])
.AutoFilter.Sort.SortFields.Clear
For Each A In Rng
.AutoFilter.Sort.SortFields.Add Key:=.Range(A, A.End(xlDown)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Next
With .AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2012-4-29 23:24 | 只看該作者

回復 15# Hsieh
版大,
我自己試了一下,排序沒有成功,也想請問為何程式中不用帶出欄位的起迄?
附上檔案

BCM Order_Format.zip (27.33 KB)

回復 14# register313
Sorry!你寫的太精簡,我不知道怎麼跟8F的程式合在一起,請幫忙一下.

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

17^#

發表於 2012-4-29 23:25 | 只看該作者

回復 15# Hsieh
補充:
欄位A:AT sort順序D.Z.H.G.E

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^#

發表於 2012-4-29 23:41 | 只看該作者

回復 17# PJChen

Sub nn()
With Workbooks("BCM Order_Format.xlsx")
With .Sheets("PO")
Set b = .Range("A1").CurrentRegion
a = Array(4, 26, 8, 7, 5)
.AutoFilter.Sort.SortFields.Clear
For i = 0 To 4
.AutoFilter.Sort.SortFields.Add Key:=b.Columns(a(i)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Next
With .AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

19^#

發表於 2012-4-29 23:51 | 只看該作者

回復 18# Hsieh
謝大,
成功了,這種程式的寫法都不用指明欄位範圍的是嗎? a = Array(4, 26, 8, 7, 5)部份,可以改用欄位嗎?要如何寫,我改為 a = Array(D,Z,H,G,E),就行不通了,
另外 Set b = .Range("A1").CurrentRegion是指從A1的欄位開始排序是吧?若排序的範圍是A5:Z200,是否應改為 Set b = .Range("A5").CurrentRegion

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

20^#

發表於 2012-4-30 08:39 | 只看該作者

本帖最後由 Hsieh 於 2012-4-30 19:33 編輯

回復 19# PJChen
Set b = .Range("A1").CurrentRegion
是把變數b設成與A1儲存格所有相連的範圍
就是說從A1向右到整欄空白、向下到整列空白所形成的範圍，請看動畫。

所以，在2010版本中，篩選排序欄位是先新增所有排序層級後
再一次依照設定層級先後去排列(Apply)

a = Array(4, 26, 8, 7, 5)
改成a = Array(D,Z,H,G,E),就行不通了
這是因為D,Z,H,G,E這會視為5個變數D,Z,H,G,E，而不是這5個字母
a = Array("D","Z","H","G","E")
這樣才會把陣列元素讀為字母

學海無涯_不恥下問