Excel ComboBox基于日期条件筛选tblSchedule数据的实现方法

直接修改你的代码，加入日期判断逻辑，就能实现按C6和C7的日期范围筛选tblSchedule的数据：

修改后的完整代码 #

Private Sub ComboBox1_DropButtonClick()
    'Populate Combo list values
    ComboBox1.ColumnCount = 3
    
    Dim myTable As ListObject
    Dim myArray As Variant
    Dim i As Long, j As Long, validRowCount As Long
    Dim startDate As Date, endDate As Date
    Dim dateColIndex As Integer ' 这里要填tblSchedule中日期列的索引，比如日期在第2列就写2
    
    ' --- 这里是你要改的配置项 ---
    dateColIndex = 2 ' 请根据你的表格实际情况修改日期列的位置
    ' --- 配置结束 ---
    
    Set myTable = Worksheets("Schedule").ListObjects("tblSchedule")
    If myTable.DataBodyRange Is Nothing Then Exit Sub ' 表格没数据直接退出
    
    myArray = myTable.DataBodyRange
    validRowCount = 0
    
    ' 获取C6和C7的日期，空值时设为极端日期（相当于不限制）
    If IsDate(Worksheets("Invite").Range("C6").Value) Then
        startDate = Worksheets("Invite").Range("C6").Value
    Else
        startDate = DateSerial(1900, 1, 1) ' 空起始日期就从最早日期开始
    End If
    
    If IsDate(Worksheets("Invite").Range("C7").Value) Then
        endDate = Worksheets("Invite").Range("C7").Value
    Else
        endDate = DateSerial(9999, 12, 31) ' 空结束日期就到最晚日期为止
    End If
    
    ' 先数一下符合条件的行数
    For i = LBound(myArray) To UBound(myArray)
        If IsDate(myArray(i, dateColIndex)) Then
            If myArray(i, dateColIndex) >= startDate And myArray(i, dateColIndex) <= endDate Then
                validRowCount = validRowCount + 1
            End If
        End If
    Next i
    
    ' 填充符合条件的数据到ComboBox列表
    Dim ComboList() As String
    If validRowCount > 0 Then
        ReDim ComboList(1 To validRowCount, 1 To UBound(myArray, 2))
        validRowCount = 0 ' 重置计数器用来填数组
        
        For i = LBound(myArray) To UBound(myArray)
            If IsDate(myArray(i, dateColIndex)) Then
                If myArray(i, dateColIndex) >= startDate And myArray(i, dateColIndex) <= endDate Then
                    validRowCount = validRowCount + 1
                    For j = LBound(myArray, 2) To UBound(myArray, 2)
                        ComboList(validRowCount, j) = myArray(i, j)
                    Next j
                End If
            End If
        Next i
        
        ComboBox1.List = ComboList
    Else
        ComboBox1.Clear ' 没符合条件的数据就清空下拉框
    End If
End Sub

重点注意事项 #

• 日期列索引：你得自己确认tblSchedule里日期列是第几列，把dateColIndex改成对应的数字（比如日期在第3列就写3）
• 空值兼容：如果C6或C7没填日期，代码会自动放开对应方向的限制，不会因为空值报错
• 数据校验：如果表格里的日期列有非日期内容，代码会自动跳过这些行，避免运行出错

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