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

Question

我有一个具有 Pivot 字段 "Date/Time" 的数据透视表。我需要一个选择字段最后一项的宏。我尝试了以下代码但无法正常工作

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