排序語法(錄製巨集)是否可以簡化

jsc0518

Hi 大家好,

錄製巨集動作說明如下：
1.先於G4-->點選篩選
2.於G4-->從 A 到 Z 排序
3.於C4-->從 A 到 Z 排序
4.取消篩選功能




巨集語法如下：

Sub 排序1()

    Range("G4").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("G4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C4").Select
    ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("C4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
   
End Sub

zheng211016

發問記得附上檔案 不然做錯你要的結果 豈不是多白費功夫
還有 你篩選 沒說要不要留標題

jsc0518

回復 2# zheng211016

Hi 抱歉未附上檔案
我的標題是要留著的，我本身是用2019錄製巨集，但此檔案拿至2016版本時，巨集執行時會有誤的
可以簡化語法嗎？並且讓語法是可以通用於excel每個版本

感恩！

自動排序巨集.rar (22.5 KB)

下載次數: 2

2019-5-22 17:58

zheng211016

試用看看 如果你需要的只是排序功能不必要用篩選~
另外我做了一個匯入原始資料的按鈕 是我在測試的時候方便使用的

下載 (131.21 KB)

2019-5-23 20:42

自動排序巨集.rar (19.53 KB)

下載次數: 5

2019-5-23 20:42

jsc0518

回復 4# zheng211016
Hi 感謝您的回覆
我點選"匯入原始資料按鈕" OK
但點選"排序"按鈕時出現異常
畫面如下圖


   

下載 (120.04 KB)

2019-5-24 14:15

zheng211016

回復 5# jsc0518
好了 再用看看
自動排序巨集.rar (21.29 KB)

下載次數: 4

2019-5-24 20:27

jsc0518

回復 6# zheng211016

OK我用看看，有問題再與您請教。謝謝！

Scott090

回復 7# jsc0518

       再簡化如下，不知是否能用於其他版本。
       Sheets("舊版採購入庫單").select
      Range([C4], [H46]).Sort key1:=[C4], order1:=xlAscending, _
                                                  key2:=[G4], order2:=xlAscending, _
                                                  Header:=xlYes

jsc0518

回復 8# Scott090
Dear Scott090,
早安，非常感謝您的簡化VBA語法，TEST Excel 2019 & 2016  OK
非常謝謝您！ ^_^