在vba用户表单中按日期和时间对列表框进行排序/筛选？

Private Sub UserForm_Initialize()
    ' 假设列表框的名称是ListBox1，列表框中的数据存储在一个名为dataRange的区域中
    Dim dataRange As Range
    Dim cell As Range
    Dim dataArray() As Variant
    Dim i As Integer
    
    ' 获取数据范围
    Set dataRange = Worksheets("Sheet1").Range("A1:A10") ' 将"A1:A10"替换为实际的数据范围
    
    ' 将数据存储到数组中
    ReDim dataArray(1 To dataRange.Rows.Count)
    i = 1
    For Each cell In dataRange
        dataArray(i) = cell.Value
        i = i + 1
    Next cell
    
    ' 对数组进行排序
    SortArray dataArray
    
    ' 清除列表框中的旧数据
    ListBox1.Clear
    
    ' 将排序后的数据添加到列表框中
    For i = 1 To UBound(dataArray)
        ListBox1.AddItem dataArray(i)
    Next i
    
    ' 根据日期和时间进行筛选，将不满足条件的项从列表框中移除
    FilterByDateTime ListBox1
    
End Sub

' 对数组进行排序的函数
Sub SortArray(arr() As Variant)
    Dim i As Integer
    Dim j As Integer
    Dim temp As Variant
    
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(j)
                arr(j) = arr(i)
                arr(i) = temp
            End If
        Next j
    Next i
End Sub

' 根据日期和时间进行筛选的函数
Sub FilterByDateTime(lst As ListBox)
    Dim i As Integer
    Dim item As Variant
    Dim removeItems() As String
    Dim itemCount As Integer
    
    itemCount = 0
    
    ' 遍历列表框中的每一项
    For i = lst.ListCount - 1 To 0 Step -1
        item = lst.List(i)
        
        ' 判断是否满足筛选条件（此处以示例为准，可根据实际需求修改筛选条件）
        If IsDate(item) And CDate(item) < Now() Then
            ' 将不满足条件的项保存到数组中
            ReDim Preserve removeItems(0 To itemCount)
            removeItems(itemCount) = item
            itemCount = itemCount + 1
        End If
    Next i
    
    ' 移除不满足条件的项
    For i = 0 To itemCount - 1
        lst.RemoveItem lst.ListIndex(removeItems(i))
    Next i
End Sub