ピボットテーブルでのグループ化された日付データをマクロで選択する方法について

Question

A列に“月日”データ（2014/4/1　など）、B列に“数値”データが入っており、A,B列を使ったピボットテーブルが作成してあり、月日は7日毎にグループ化してページフィールドに配置してあり、データフィールドには数値の合計が入っています。 ここで、下記マクロ（“マクロの記録”機能で記録したものです）を実行すると、Excel2003では問題なく動くのですが、Excel2007ではエラーが出てしまいます。 Excel2007でもマクロ上で、グループ化した日付データをページフィールドで選択できる方法はないでしょうか？ アドバイスをいただければと思います。

Sub test()
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("月日").CurrentPage = "2014/4/1 - 2014/4/7"
End Sub

Answer 1

こんにちは。

Excel2007以降、ピボットキャッシュ内の日付の持ち方が変わっているので

元の日付の書式が、西暦（yyyy/m/d）なら、書式を”m/d/yyyy”に補正して

指定しないと動作しなくなっています。

指定する日付が、

"2014/4/1 - 2014/4/7"

なら

”4/1/2014 - 4/7/2014”

と指定するか、

Format("2014/4/1", "m/d/yyyy") & " - " & Format("2014/4/7", "m/d/yyyy")と指定して試してみてください。

私も日付の処理でつまずき、調べたことを記事に残してあります。参考にしてみてください。

http://pvttbl.blog23.fc2.com/blog-entry-72.html

Answer 2

早速の回答ありがとうございます。

試してみたところ、お教えいただいた方法で、無事、問題解決できました。

誠にありがとうございまいした。