Excelのマクロで、ピポットフィルター条件でIF文を使用し作成する方法について

Question

Excelのマクロを最近勉強し始めた者です。

Excelのピポットテーブルを自動で作成するマクロを作っております。

作成する中で、フィルター条件の記述に困っており質問させて頂きます。

Excelの表においてある列（仮に金額）の値が0円〜未知数（実行する日によって違う）あるとします。

ピポットテーブルを自動で作成するマクロの条件として、金額列の値が999999以上の値をフィルタ条件で

外したい（False）にしたいと考えており、IF文をしようしマクロを記述したいと考えてえおります。

Excelの機能である、マクロの記録をおこなったのですが、、、以下の様な文になってしまい、

汎用性の無い構文となってしまいます。

毎回きんがくにはいる数値が違い、以下の様に文をかけない場合、IF文で ［金額列］＞999999 ならばFalseと

記載できればいいのですが、記載方法がわからず困っております。

どなたか、記載方法を教えていただけないでしょうか。

＜マイクロの記録で記載したマクロ内容＞

With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("金額")

       .Orientation = xlPageField

       .Position = 1

   End With

   ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("金額").CurrentPage = "(All)"

   With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("金額")

       .PivotItems("1000000").Visible = False

       .PivotItems("1000001").Visible = False

       .PivotItems("1000002").Visible = False

       .PivotItems("1000004").Visible = False

       .PivotItems("1000013").Visible = False

        .

        .   ※（長いので省略します）

        .

        .PivotItems("1000000000").Visible = False

   End With

End Sub

Answer 1

当フォーラムはofficeの不具合等に係るサポートを行う場です。
VBA用の公式フォーラムが別にございますので、下記から投稿してみてください。
https://social.msdn.microsoft.com/Forums/ja-JP/...