excel - 子排序宏

Question

我有任务列表，其中每个任务在 col A 中分配了优先级 1-6，其中 6 是“已完成”。每个任务在列 B 中都有一个任务请求日期。

我有以下代码按优先级对列表进行排序，将完成的任务留在底部。

Sub mcr_Sort_by_Status()
'
' Sort by stattus

'

    'Turn off screen updating so macro working/flashing does not show
    Application.ScreenUpdating = False
    Range("A7:K5000").Select
    ActiveWorkbook.Worksheets("Tasks").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tasks").Sort.SortFields.Add Key:=Range("A8:A5000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tasks").Sort
        .SetRange Range("A7:K5000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B7").Select

End Sub

但是对于其他任务，我想按日期对它们进行排序，最新的在顶部，但想不出如何以编程方式做到这一点。

Answer 1

将您的优先级作为主键排序一次，然后在第二次排序操作中重新调整范围并将日期排序为主键。

我假设您的日期在 B 列中。

Sub mcr_Sort_by_Status()

    With workSheets("Sheet1")

        with .Range(.cells(7, "A"), .cells(.rows.count, "A").end(xlup).offset(0, 10))

            .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                        Orientation:=xlTopToBottom, Header:=xlyes

            with .resize(application.match(6, .columns(1), 0)-1, .columns.count)

                .Cells.Sort Key1:=.Columns(2), Order1:=xldescending, _
                            Orientation:=xlTopToBottom, Header:=xlyes

            end with

        end with

    End With

end sub