如何从UserForm1的ListBox中提取最大和最小日期？

实现思路 #

遍历ListBox第一列的所有数据，将文本格式的日期转换为日期型变量，在遍历过程中跟踪记录最小和最大日期，最终将结果分别赋值给TextBox1和TextBox2。

示例代码 #

将以下代码添加到UserForm1的代码模块中（可绑定到按钮点击事件，或在UserForm初始化时执行）：

Private Sub GetMinMaxDates()
    Dim i As Integer
    Dim currentDate As Date
    Dim minDate As Date, maxDate As Date
    
    ' 检查ListBox是否有数据
    If ListBox1.ListCount = 0 Then
        MsgBox "ListBox中无数据！", vbExclamation
        Exit Sub
    End If
    
    ' 初始化最小/最大日期为第一条目
    minDate = CDate(ListBox1.List(0, 0))
    maxDate = minDate
    
    ' 遍历ListBox第一列的所有条目
    For i = 1 To ListBox1.ListCount - 1
        currentDate = CDate(ListBox1.List(i, 0))
        ' 更新最小日期
        If currentDate < minDate Then
            minDate = currentDate
        End If
        ' 更新最大日期
        If currentDate > maxDate Then
            maxDate = currentDate
        End If
    Next i
    
    ' 将结果赋值给TextBox
    TextBox1.Value = Format(minDate, "yyyy-mm-dd") ' 可根据需求调整日期格式
    TextBox2.Value = Format(maxDate, "yyyy-mm-dd")
End Sub

注意事项 #

• 确保ListBox第一列的内容是可转换为日期的有效文本，否则CDate函数会报错；
• 日期格式可通过Format函数自定义，比如改成"mm/dd/yyyy"或其他格式；
• 如果ListBox允许空条目，需在遍历前增加空值判断，避免转换失败。

内容的提问来源于stack exchange，提问作者hisham elsafty