宏根据单元格值设置枢轴字段

Question

我试图找出如何根据单元格值编写宏来设置我的数据透视过滤器

A1 =今日（）

我想设置我的透视滤镜，以便在运行宏时自动选择基于单元格A1的滤镜。有人可以教我正确的代码吗？

Answer 1

这是一个例子：

Option Explicit

Sub main()

Dim wb As Workbook
Dim ws As Worksheet
Dim PC As PivotCache
Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem
Dim rng As Range

    Set wb = ActiveWorkbook
    Set ws = ActiveSheet
    Set rng = Range("D2:F8")

    Set PC = wb.PivotCaches.Create(xlDatabase, rng)
    Set PT = PC.CreatePivotTable(ws.Range("H1"), "MyTable")
    Set PF = PT.PivotFields("category 1")

   With PF
    .Orientation = xlRowField
    .Position = 1
    .PivotFilters.Add2 xlCaptionEquals, Value1:=ws.Range("A2")
   End With
End Sub