0

背景: Excel に、XLColumn フィールドとして「日付」を含むピボット テーブルがあります。ソース データは常に変化しており、新しいデータが追加されたときに、ピボット テーブルがピボット アイテムを日付でフィルタリングするように並べ替えないことに気付きました。文字列として最後に追加します。その後、ソース データを変更し、Date 列が実際に日付であることを確認しました。

1 つ目: VBA でプログラムによって日付ピボット項目を注文する必要があります。つまり、ユーザーは、新しい日付が追加された場合でも (古いものから新しいものへ) 順番にリストされている日付をフィルター処理できます。

2 つ目: 日付のピボット アイテムをループして、1 番目と 2 番目、2 番目と 3 番目、3 番目と 4 番目などを表示します。

何かのようなもの：

-code that hides all pivot items
Pf.pivotitems (i).visible = true (12/04/2012)
Pf.pivotitems(i + 1).visible = true (19/04/2012)
i = i + 1

これは私にエラーを返してきました.ピボットアイテムの可視プロパティを設定できません.

ありがとう、

さらに詳しい情報が必要な場合はお問い合わせください。

分枝する

4

1 に答える 1

1

このような？

1 つ目: VBA でプログラムによって日付ピボット項目を注文する必要があります。つまり、ユーザーは、新しい日付が追加された場合でも (古いものから新しいものへ) 順番にリストされている日付をフィルター処理できます。

'~~> Change Sheet1 with the relevant sheet name
With Sheets("Sheet1")
    '~~> Change PivotTable1 and DateField to the respective pivot and field name.
    .PivotTables("PivotTable1").PivotFields("DateField").AutoSort xlAscending, "DateField"
End With

2 つ目: 日付のピボット アイテムをループして、1 番目と 2 番目、2 番目と 3 番目、3 番目と 4 番目などを表示します。

Pf.PivotItems(i).Visible= True
Pf.PivotItems(i + 1).Visible= True
于 2012-05-05T08:48:59.637 に答える