Question

我有一个数据透视表字段“日期/时间”的数据透视表。我需要一个宏来选择字段的最后一项。我尝试了以下代码，但无法正常工作

Sub Test()

Dim i As Long

i = ActiveSheet.PivotTables("PivotTable1").PivotFields("Date/Time").PivotItems.Count
With ActiveSheet
  .PivotTables("PivotTable1").PivotFields("Date/Time").PivotItems(i).Visible=True
End With

End Sub

请帮帮我。我只是找不到我的错误。

Answer 1

这不是一个优雅的答案。不是我可以说我完全相信的东西。由于您说您只需要过滤Date/Time，请试试并发表评论。

Sub somePivot()
Dim n As Long

With Worksheets(2)
    n = .PivotTables("PivotTable3").PivotFields("Date/Time").PivotItems.Count
    MsgBox n
    .PivotTables("PivotTable3").PivotFields("Date/Time").AutoSort xlAscending, "Date/Time"
    MsgBox .PivotTables("PivotTable3").PivotFields("Date/Time").PivotItems(n).Value
End With

End Sub

如何使用Excel VBA选择数据透视表字段中的最后一项？

1 个答案: