[文件] 排序問題(更新程式碼)

看板Office作者m0a0r0k30304 (海龍公式)時間10年前 (2016/05/10 22:54)推噓0(0推 0噓 6→)

留言6則, 1人參與討論串1/1

軟體: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

05/10 23:23, , 1^F

05/10 23:23, 1^F

→

soyoso

05/11 00:14, , 2^F

05/11 00:14, 2^F

→

soyoso

05/11 00:14, , 3^F

05/11 00:14, 3^F

附上程式碼↓↓↓ 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

05/11 18:50, , 4^F

05/11 18:50, 4^F

→

soyoso

05/11 18:50, , 5^F

05/11 18:50, 5^F

→

soyoso

05/11 18:51, , 6^F

05/11 18:51, 6^F