如何让表格筛选宏支持日期筛选？

兄弟，我太懂你这种憋屈了——文本列筛选顺顺当当，唯独日期列一输入内容就把所有行都隐藏，这宏简直是跟日期有仇啊！别慌，我来给你捋捋问题出在哪，以及怎么改。

首先说根因：你之前用的宏大概率是把输入的筛选值当成纯文本去和单元格内容对比，但Excel里的日期可不止是你看到的dd/mm/yy格式，它本质上是一串隐藏的数字（序列号），显示出来的日期只是格式而已。你拿文本去跟数字比，肯定对不上，可不就全隐藏了嘛！

那该怎么改呢？核心就是把输入的日期文本转换成Excel能识别的日期类型，再去做筛选。给你个修改后的宏示例，你根据自己的实际情况调整就行：

Sub FilterTableWithDateSupport()
    Dim targetSheet As Worksheet
    Dim targetTable As ListObject
    Dim filterInputCell As Range
    Dim convertedDate As Variant
    
    ' 替换成你的实际工作表、表格、筛选输入单元格
    Set targetSheet = ThisWorkbook.Sheets("你的工作表名称")
    Set targetTable = targetSheet.ListObjects("你的表格名称")
    Set filterInputCell = targetSheet.Range("存放筛选日期的单元格，比如B1")
    
    ' 先清空之前的筛选
    On Error Resume Next
    targetTable.AutoFilter.ShowAllData
    On Error GoTo 0
    
    ' 处理日期筛选逻辑
    If filterInputCell.Value <> "" Then
        ' 尝试把输入的文本转换成日期格式
        On Error Resume Next
        convertedDate = CDate(filterInputCell.Value)
        On Error GoTo 0
        
        ' 确认转换成功，再设置筛选
        If IsDate(convertedDate) Then
            ' 这里替换成你的日期列名称，比如"下单日期"
            With targetTable.ListColumns("日期列名称").Range
                .AutoFilter Field:=targetTable.ListColumns("日期列名称").Index, Criteria1:=convertedDate
            End With
        Else
            ' 输入无效的话弹个提示
            MsgBox "喂，得输入有效的日期哦！比如按dd/mm/yy的格式来~"
        End If
    End If
End Sub

几个关键的点要注意：

• 一定要把代码里的工作表名称、表格名称、筛选输入单元格、日期列名称都换成你自己文件里的实际内容，别直接抄就用！
• 用CDate()函数转日期的时候，如果你的系统日期格式和输入的格式不匹配（比如系统是mm/dd/yy，你输入的是dd/mm/yy），可能会转错日期。这种情况可以用更稳妥的拆分转换方式，比如：

' 针对固定dd/mm/yy格式的输入，手动拆分转换
Dim dayNum As Integer, monthNum As Integer, yearNum As Integer
dayNum = Left(filterInputCell.Value, 2)
monthNum = Mid(filterInputCell.Value, 4, 2)
yearNum = 2000 + Right(filterInputCell.Value, 2) ' 把yy转成4位年
convertedDate = DateSerial(yearNum, monthNum, dayNum)

这种方式就不怕系统日期格式搞事情了。

另外，如果你的宏是同时处理文本列和日期列的，那可以给每列加个判断：文本列用原来的文本匹配逻辑，日期列就用上面的日期转换逻辑，这样就能兼顾两种类型的筛选啦。

备注：内容来源于stack exchange，提问作者Matt Murphy