[[20110724124635]]　『マクロ記録』（みお）　ページの最後に飛ぶ

『マクロ記録』（みお）Excel2007

 ピボットテーブルのレポートフィルタを変更するマクロ記録をとりましたが、
 どこも変更していないのにエラーになります。
 実行時エラー1004･･･です。
 行ラベルを変更するマクロ記録は、ちゃんと動きます。

 データ量はまだ２か月分しかありませんが、外部データをピボットにしています。
 どこが悪いのか教えてください。

 =======
 Sub Macro1()
'
' Macro1 Macro
'

    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ9").PivotFields("出荷日"). _
        ClearAllFilters
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ9").PivotFields("出荷日").CurrentPage =  _
        "2011/7/1"
 End Sub
 =======

 「実行時エラー1004」の後ろのメッセージは何ですか？
 また、エラーが出た後 [デバッグ]を押したときに　どの行がハイライトされますか？

 簡単に思い浮かぶ所だと
 　１．新しいピボットテーブルを作成して、名前が変わった
 　２．別のシートがアクティブに成っている状態で実行しようとしている
 ですが。。。

 もう一度記録をとってみても、同じコードが記録されますか？

 (HANA)

 HANAさんありがとうございます。
 もう一度取ってみました。

 実行した時には、★のところから黄色になりました。
 「実行時エラー1004
 アプリケーション定義またはオブジェクト定義のエラーです。」
 と出ます。

 対象のシートを出したまま実行しました。ですので、アクティブシートは間違えていないと思います。
 ピボットは作り直していません。

 =======
 Sub Macro5()
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ9").PivotFields("出荷日"). _
        ClearAllFilters
    ★ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ9").PivotFields("出荷日").CurrentPage = _
        "2011/7/1"
 End Sub
 =======

 2007以降は、指定する時はシリアル値で指定する必要があるみたいですね。
 （記録では、文字列で記録されてますが。。。）

 こんな感じで変更してみて下さい。

    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ9").PivotFields("出荷日").CurrentPage = _
        DateValue("2011/7/1")
        ~~~~~~~~~~          ~

 (HANA)

 うわー！できましたー！
 HANAさんありがとうございました。

 （みお）

コメント返信：

[ 一覧(最新更新順) ]

[[20110724124635]] 『マクロ記録』（みお） ページの最後に飛ぶ

[[20110724124635]]　『マクロ記録』（みお）　ページの最後に飛ぶ