如何设置透视表筛选项

hlxue

请教各位老师，用VBA生成了个透视表，原数据表中包含2021年，2022年，2023年的不同"日期"的很多数据，如何通过VBA设置透视表的筛选项，选择2023年的数据？

fanyoulin

代码控制数据透视表还是蛮复杂的，你这么说说是说不清楚的；
需要有附件才好演示；

tanglf188

插入---切片器

3190496160

既然用代码了，那就全部用代码来实现数据透视表的功能不就行了吗

wxhnr

录制宏-->执行筛选2023操作-->停止录制

hlxue

wxhnr 发表于 2023-6-20 11:54
录制宏-->执行筛选2023操作-->停止录制

这样录出来的宏，是下边这样的：
ActiveSheet.PivotTables("物料统计").PivotFields("日期").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("待认可物料统计").PivotFields("日期")
        .PivotItems("1/2/2021").Visible = False
        .PivotItems("1/5/2021").Visible = False
        .PivotItems("1/7/2021").Visible = False
        .PivotItems("1/8/2021").Visible = False
        .PivotItems("1/11/2021").Visible = False
        .PivotItems("1/12/2021").Visible = False
        .PivotItems("1/13/2021").Visible = False
        .PivotItems("1/14/2021").Visible = False
        .PivotItems("1/15/2021").Visible = False
        .PivotItems("1/18/2021").Visible = False
        .PivotItems("1/19/2021").Visible = False
        .PivotItems("1/20/2021").Visible = False
        .PivotItems("1/21/2021").Visible = False
        .PivotItems("1/22/2021").Visible = False
        .PivotItems("1/25/2021").Visible = False
        .PivotItems("1/26/2021").Visible = False
        .PivotItems("1/27/2021").Visible = False
        .PivotItems("1/28/2021").Visible = False
        .PivotItems("2/1/2021").Visible = False
。。。。。。。。
有上千行，我想用个简便些的代码实现。

wxhnr

Dim i As Integer

On Error Resume Next
With ActiveSheet.PivotTables("待认可物料统计").PivotFields("日期")
For i = 1 To .PivotItems.Count
    If Instr(.PivotItems(i).Name , "2023") > 0 Then
        .PivotItems(i).Visible = True
    Else
        .PivotItems(i).Visible = False
    End if
Next
End With

hlxue

我只想显示2023年的，不显示22年及以前的，自己做了个循环，逐个检查PivotItem，去设置是否进行显示，但运行起来比较慢，请问哪位老师有更好的方法，通过设置透视表能达到这个目的。

洋务德雷

在做透视表前，提前把2023年的数据提取出来不就可以了吗？

hlxue

洋务德雷 发表于 2023-6-20 13:22
在做透视表前，提前把2023年的数据提取出来不就可以了吗？

透视表需要根据筛选条件分别显示23年或22年或21年。。。。