需要排序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