VBA sort语句 Ordercustom求助

huang1314wei

nanxindaqq 发表于 2016-12-25 17:15
大神 你能不能告诉我之前错在哪里哈 你这种是新的方法 通过宏自定义序列

排序的时候，key1是主要次序，key2是次要次序，所以，你key1与key2搞反了

nanxindaqq

huang1314wei 发表于 2016-12-25 17:18
排序的时候，key1是主要次序，key2是次要次序，所以，你key1与key2搞反了

大神哈，实际上我是希望KEY1排序完后 在对KEY2排序哈 希望的自定义序列对KEY2起作用 举例说明 比如KEY1是日期 KEY2是自定义序列，希望先按照日期排序 在相同日期情况下 按照吴2，吴1，吴3在排序

huang1314wei

nanxindaqq 发表于 2016-12-25 17:52
大神哈，实际上我是希望KEY1排序完后 在对KEY2排序哈 希望的自定义序列对KEY2起作用 举例说明 比如KEY1是 ...

1. Sub test()
   
2.     With ActiveSheet
   
3.         .Sort.SortFields.Clear
   
4.         .Sort.SortFields.Add Key:=Range("A2:A6"), Order:=xlAscending
   
5.         .Sort.SortFields.Add Key:=Range("B2:B6"), Order:=xlAscending, CustomOrder:="吴2,吴1,吴3"
   
6.         With .Sort
   
7.             .SetRange Range("A1:B6")
   
8.             .Header = xlYes
   
9.             .Apply
   
10.         End With
    
11.     End With
    
12. End Sub

复制代码

nanxindaqq

huang1314wei 发表于 2016-12-25 18:12

谢谢大神 大神 大神 大神

水和米

我也受启发了，同谢大神

逝水30

学习了，感谢！

ning84

huang1314wei 发表于 2016-12-25 18:12

谢谢解题

Excel) (Application.CustomListCount 屬性 | Microsoft Learn  https://learn.microsoft.com/zh-t ... ion.customlistcount

MsgBox "There are currently " & Application.CustomListCount & _
" defined custom lists."

ning84

huang1314wei 发表于 2016-12-25 18:12

谢谢，按这个贴子又做了一遍题。

1. 
   
2. Private Sub deldeldeldeldel()
   
3.      Dim Sht As Worksheet, Rng As Range, oRng As Range
   
4.          Set Sht = Sheet2
   
5.          Sht.Activate
   
6.          Set Rng = Sht.Cells(20, 3).CurrentRegion
   
7.          Set Rng = Rng.Resize(Rng.Rows.Count, Rng.Columns.Count + 5)
   
8.          Debug.Print Rng.Address
   
9.          
   
10.          Debug.Print Rng(, 5).Resize(Rng.Rows.Count, 1).Address
    
11.          Set oRng = Rng(, 5).Resize(Rng.Rows.Count, 1)
    
12.          Sht.Sort.SortFields.Clear
    
13.          Sht.Sort.SortFields.Add Key:=Range(oRng.Address) _
    
14.              , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    
15.              xlSortNormal
    
16.         With Sht.Sort
    
17.             .SetRange Range(Rng.Address)
    
18.             .Header = xlGuess '  = xlYes
    
19.             .Apply
    
20.         End With
    
21.          
    
22.          
    
23.          
    
24.         
    
25. End Sub

复制代码