多条件下的自定义序列排序怎么做？

lrsh1985

在vba里面，排序的语法是
Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

OrderCustom指定在自定义排序次序列表中的基于一的整数偏移，可以用于自定义序列排序

比如
sub 自定义排序()
Dim arr()
    arr = Array("B", "E", "F", "G", "M", "L", "H")

    Application.AddCustomList ListArray:=arr

    n = Application.GetCustomListNum(arr) + 1
    Range("A1:E150").Sort Key1:=Range("B1"), Header:=xlNo, ordercustom:=n


    Application.DeleteCustomList listnum:=n
end sub

我的问题是，当要多按照条件排序，其中需要用到3处自定义序列的时候，这个方法怎么做？或者说有别的方法么？

wpxxsyzx

2007可以使用多个条件

zhaogang1960

设想：
如果自定义序列一致，用for循环一下，从第三关键字到第一关键字
如果自定义序列不一致，把3个数组放到一个嵌套数组里，循环排序
如：
dim a,b,c,arr(1 to 3)
arr(1)=a
……

lrsh1985

zhaogang1960 发表于 2011-8-23 16:07
设想：
如果自定义序列一致，用for循环一下，从第三关键字到第一关键字
如果自定义序列不一致，把3个数组 ...

版主您好，我的意思是，当我的条件多了以后，我的设想是定义三个arr（），分别为arr1（），arr2（），arr3（），然后对应通过n = Application.GetCustomListNum(arr) + 1的方法计算出三个n1，n2，n3,然后再用ordercustom=n1,ordercustom=n2,ordercustom=n3的办法来实现排序，但是sort语句里的ordercustom只能用一次，这个该怎么办呢？还请版主赐教

zhaogang1960

我们平时用的多个关键字排序，和用循环排序效果一致，按照反向顺序排序3次就是了
如果不合题意，请上传附件并详细说明效果

lrsh1985

zhaogang1960 发表于 2011-8-23 16:27
我们平时用的多个关键字排序，和用循环排序效果一致，按照反向顺序排序3次就是了
如果不合题意，请上传附件 ...

请教.rar (18.27 KB, 下载次数: 69)

2011-8-23 16:34 上传

点击文件名下载附件

版主，附件已经上传，请您看看，谢谢

zhaogang1960

lrsh1985 发表于 2011-8-23 16:34
版主，附件已经上传，请您看看，谢谢

请测试
Sub Macro1()
    Dim arr(2), rng As Range, n%, lr&, i%
    lr = [bc65536].End(xlUp).Row
    Set rng = Range("BC2:BP" & lr)
    a = Array(55, 57, 59)
    arr(2) = Array("B", "E", "F", "G", "M", "L", "H") '第一条件，最后排序
    arr(1) = Array("A", "3", "1", "9", "4")
    arr(0) = Array("1", "5", "3", "4")
    With Application
        .ScreenUpdating = False
        rng.Sort Key1:=[bk2].Resize(lr - 1), Order1:=xlAscending '第4条件，首先排序
        For i = 0 To 2
            .AddCustomList ListArray:=arr(i)
            n = .GetCustomListNum(arr(i))
            rng.Sort Key1:=Cells(2, a(i)).Resize(lr - 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=n + 1
            .DeleteCustomList ListNum:=n
        Next
        .ScreenUpdating = True
    End With
End Sub

zhaogang1960

请看附件


请教.rar (17.61 KB, 下载次数: 239)

2011-8-23 17:07 上传

点击文件名下载附件

lrsh1985

zhaogang1960 发表于 2011-8-23 17:04
请测试
Sub Macro1()
    Dim arr(2), rng As Range, n%, lr&, i%

版主，我把你的语言放到表格里运行，第一遍可以成功，但是一到第二遍就死机，提示：
运行时错误'-2147417848(80010108)'
我在网上查了一下，好像是因为你是用的2003而我用的2007导致的

zhaogang1960

lrsh1985 发表于 2011-8-23 17:21
版主，我把你的语言放到表格里运行，第一遍可以成功，但是一到第二遍就死机，提示：
运行时错误'-214741 ...

我在2010中测试正常，不管是保存为2003，还是2010，请看演示：