数据透视表日期筛选VBA报错1004：如何忽略非日期值？

嘿，我太懂这个糟心的问题了——数据源里混着非日期值，一点筛选按钮就触发1004错误直接中断宏，手动改值治标不治本。咱们可以通过主动过滤透视表中的非日期项来彻底解决这个问题，让代码自动跳过无效值，保证宏顺畅运行。

问题根源 #

你遇到的1004错误，本质是Excel透视表在执行xlDateBetween筛选时，没法识别字段里的非日期值，直接触发了对象定义错误。手动修正非日期值能临时解决，但显然不够高效，得让代码自己处理这些“捣乱”的值。

修改后的完整代码 #

Dim Invoice_Start_Date As Date
Dim Invoice_End_Date As Date
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

' 捕获起止日期的转换错误，避免输入格式不对直接报错
On Error Resume Next
Invoice_Start_Date = CDate(Worksheets("Despatch Template").Cells(17, "F").Value)
If Err.Number <> 0 Then
    MsgBox "起始日期格式不正确，请检查单元格F17！"
    Exit Sub
End If
Invoice_End_Date = CDate(Worksheets("Despatch Template").Cells(17, "G").Value)
If Err.Number <> 0 Then
    MsgBox "结束日期格式不正确，请检查单元格G17！"
    Exit Sub
End If
On Error GoTo 0

' 直接引用透视表和日期字段，避免用Select（VBA最佳实践）
Set pt = Sheets("Despatch Template").PivotTables("PivotTable1")
Set pf = pt.PivotFields("DESPATCH DATE")

' 刷新透视缓存
pt.PivotCache.Refresh

' 先清除所有筛选，再手动隐藏非日期项
pf.ClearAllFilters
For Each pi In pf.PivotItems
    ' 判断当前项是否为有效日期，非日期则隐藏
    If Not IsDate(pi.Value) Then
        pi.Visible = False
    End If
Next pi

' 应用日期区间筛选，此时只剩有效日期值，不会触发错误
pf.PivotFilters.Add2 _
    Type:=xlDateBetween, Value1:=CLng(Invoice_Start_Date), Value2:=CLng(Invoice_End_Date)

代码关键说明 #

• 日期输入的错误防护：给CDate转换加了错误捕获，要是用户输入的起止日期格式不对，会弹出友好提示而不是直接崩溃。
• 主动过滤非日期项：遍历透视字段的所有选项，用IsDate判断后隐藏非日期项，这样后续的日期区间筛选只会作用在有效日期上，从根源避免1004错误。
• 抛弃Select操作：直接引用透视表对象比用Select更高效、更稳定，这是VBA编写的通用最佳实践。

如果你只是想让宏在报错时强行继续执行（不保证筛选准确性），也可以给筛选部分加简易错误捕获：

On Error Resume Next
pf.PivotFilters.Add2 _
    Type:=xlDateBetween, Value1:=CLng(Invoice_Start_Date), Value2:=CLng(Invoice_End_Date)
On Error GoTo 0

不过这种方法只是跳过错误，没法确保筛选结果正确，更推荐前面的主动过滤方案。

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