[文件] 排序問題

[m0a0r0k30304 (海龍公式)]

軟體:EXCEL

版本:2010


按照 Q(順序A~Z)  P(順序A~Z)  K(順序Z~A)  排序
排序範圍4~300列

如圖:
http://imgur.com/54fCpVr

錄製巨集後 執行別工單時不會排序


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.134.144.186
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1462892094.A.65F.html
→ soyoso: 提供已錄製巨集的檔案會比較清楚
→ soyoso: https://imgur.com/rNzEXxR 類似這樣，迴圈於其他工作表
→ soyoso: 可加上for each 變數 in sheets...next
附上程式碼↓↓↓

Sub 排序()
'
' 排序 巨集
'

'
    Rows("4:300").Select
    ActiveWorkbook.Worksheets("0518").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("0518").Sort.SortFields.Add
Key:=Range("Q4:Q300"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("0518").Sort.SortFields.Add
Key:=Range("P4:P300"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("0518").Sort.SortFields.Add
Key:=Range("K4:K300"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("0518").Sort
        .SetRange Range("A4:Q300")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
※ 編輯: m0a0r0k30304 (220.134.144.186), 05/11/2016 18:31:51
※ 編輯: m0a0r0k30304 (220.134.144.186), 05/11/2016 18:32:41
→ soyoso: 將worksheets("0518")改為activesheet
→ soyoso: 或是將ActiveWorkbook.Worksheets("0518")改為activesheet
→ soyoso: 再於其他工作表試試