2017-09-15 10 views
0

VBAを使用して特定のピボットテーブルフィルタを自動化しようとしています。 VBAを使用して「レポートフィルタ」(添付のスクリーンショットを参照)を追加する方法がわかりません。VBAを使用したピボットテーブルレポートフィルタ

プロセスを自動化するために、行、列、および値を追加するコードがありますが、レポートフィルタのコードが見つからないようです。

このコードを教えてもらえますか?

Filter

Report Filter

+1

どのコードを試してみましたが、問題は何ですか? – braX

+2

何かを行う方法を調べる最善の方法 - マクロを記録し、あなたが表示されます – avb

+0

@braXレポートフィルタを追加するためのピボットテーブルのコードが必要です。例えば。ピボットテーブルを手動で追加し、フィルタ、列、行、合計値の4つの基本プロパティを適用/挿入することができます(添付画像参照)。プロセスを自動化するために、行、列、合計値を追加するコードがありますが、レポートフィルタのコードが見つからないようです。それで助けてもらえますか? –

答えて

0

おかげで提案のため@avb。マクロの記録は助けになりました。ピボットレポートフィルタを追加するコードはこれです。

Sub pivotReportFilter(ptUse As PivotTable, fName As String) 

    With ptUse.PivotFields(fName) 
     .Orientation = xlPageField 
     .Position = 1 
    End With 

    End Sub 
関連する問題