如何自动将数据透视表日期筛选设为上一个工作日以每日更新

核心方案：通过VBA代码自动设置筛选并刷新 #

以下是具体实现步骤：

1. 打开VBA编辑器
   按Alt + F11组合键快速打开Excel的VBA编辑界面。

2. 插入代码模块
   右键点击左侧导航栏中的当前工作簿名称 → 选择「插入」→「模块」，新建一个空白代码模块。

3. 粘贴核心代码
   将以下代码粘贴到模块中，注意根据你的实际情况修改标注的参数：

Sub SetLastWorkdayFilter()
    Dim lastWorkday As Date
    Dim pvt As PivotTable
    Dim pvtField As PivotField
    
    ' 获取上一个工作日（自动排除周六周日）
    lastWorkday = WorksheetFunction.WorkDay(Date, -1)
    
    ' --- 需根据实际情况修改以下参数 ---
    Set pvt = ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1") ' 工作表名+透视表名
    Set pvtField = pvt.PivotFields("日期") ' 透视表中的日期字段名
    
    ' 清除原有筛选并设置新筛选
    pvtField.ClearAllFilters
    ' 格式需匹配透视表日期字段的显示格式，例如"yyyy/mm/dd"或"mm/dd/yyyy"
    pvtField.CurrentPage = Format(lastWorkday, "yyyy-mm-dd")
    
    ' 刷新透视表数据
    pvt.RefreshTable
End Sub

4. 设置自动触发（可选）
   如果需要打开工作簿时自动执行筛选更新，可设置Workbook_Open事件：

• 双击左侧导航栏中的ThisWorkbook对象
• 在右侧顶部的下拉菜单中，先选择Workbook，再选择Open
• 在生成的事件过程中添加调用代码：

Private Sub Workbook_Open()
    Call SetLastWorkdayFilter
End Sub

额外说明 #

• 自定义节假日排除：如果需要排除法定节假日，可修改WorkDay函数的第三个参数，示例：

  ' 假设"节假日"工作表的A列存储了所有节假日日期
  lastWorkday = WorksheetFunction.WorkDay(Date, -1, ThisWorkbook.Worksheets("节假日").Range("A:A"))
  

• 宏启用与保存：保存工作簿时需选择.xlsm格式（启用宏的工作簿），打开时需允许宏运行才能生效。

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