需要排序excel multiColumns列表框

Question

有人可以帮我按日期排序listbox吗？ 我知道没有内置列表框排序算法。 这是一个有12列的列表，第10个是日期。 我试过气泡排序（有两个嵌套for语句），但我无法获得整行临时变量，所以我可以交换它。 有帮助吗？

Answer 1

我使用断开的记录集进行排序和过滤。

Sub Randomise 
    Randomize 
    Set rs = CreateObject("ADODB.Recordset") 
    'Define table 
    With rs 
     .Fields.Append "RandomNumber", 4 
      .Fields.Append "Txt", 201, 5000 
     .Open 
      'Add data 
     Do Until Inp.AtEndOfStream 
      .AddNew 
      .Fields("RandomNumber").value = Rnd() * 10000 
      .Fields("Txt").value = Inp.readline 
      .UpDate 
     Loop 
       'tell it to sort 
     .Sort = "RandomNumber" 
       'Write it back out 
     Do While not .EOF 
      Outp.writeline .Fields("Txt").Value 
      .MoveNext 
     Loop 
    End With 
End Sub