1

ピボット フィールド "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

私を助けてください。私は自分の間違いを見つけることができません。

4

1 に答える 1

0

これはエレガントな答えではありません。私が完全に確信しているとは言えません。フィルタリングするだけでいいと言ったので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
于 2012-12-20T14:11:02.613 に答える