自定义订单排序 [英] Custom order sort

问题描述

我想根据值(临界，高，中，低)对整个C列进行排序.我正在启用宏的工作表上运行此代码

Hi I would like to sort the whole C column based on the values(Critical, high, medium,low). I am running this code on macro enabled worksheet

这是我的代码.

Sub run()
Range("C:C").Sort Key1:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Critical,High,Medium,Low", DataOption:=xlSortNormal
End Sub

它没有工作，因为指出了错误.没有争执.解决此问题的解决方案是什么?谢谢.

It did not work as there is error indicated. No argument. What is the solution to correct this problem? Thank you.

推荐答案

您的自定义排序条件必须位于数组中.试试吧，

Your custom sort criteria needs to be in an array. Try,

Sub runSortC()
    Dim vCustom_Sort As Variant, rr As Long

    vCustom_Sort = Array("Critical","High","Medium","Low", Chr(42))
    Application.AddCustomList ListArray:=vCustom_Sort

    with Range("C:C")
        .parent.Sort.SortFields.Clear

        'sort on custom order with header
        .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                    Orientation:=xlTopToBottom, Header:=xlYes, MatchCase:=False, _
                    OrderCustom:=Application.CustomListCount + 1

        .parent.Sort.SortFields.Clear

    End With

End Sub

如果在公共模块中，则合格的父级工作表引用将有所帮助.

If this is in a public module, a qualified parent worksheet reference would help.

这篇关于自定义订单排序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！