ピボットテーブルの複数のフィールド設定を変更するにはどうすればよいですか？

ワークシートにピボットテーブルを作成するとき、フィールドをにドラッグした後 価値観 のリスト ピボットテーブルフィールドリスト、あなたはすべて同じになるかもしれません ワンランク上の 次のスクリーンショットのように機能します。 しかし今、あなたは 合計 置き換える機能の ワンランク上の 一度に機能の、Excelで一度に複数のピボットテーブルフィールドの計算を変更するにはどうすればよいですか？

ピボットテーブルのフィールド設定をXNUMXつずつ手動で変更します

VBAコードを使用してピボットテーブルの複数のフィールド設定を変更する

ピボットテーブルのフィールド設定をXNUMXつずつ手動で変更します

Excelでは、関数をXNUMXつずつ変更することで、フィールド設定の計算を変更できます。 値フィールド設定 ダイアログ、次のようにしてください：

1。 ピボットテーブルの集計機能を変更する[値]領域のフィールドを選択し、右クリックして選択します 値フィールド設定、スクリーンショットを参照してください：

2。 その後、 値フィールド設定 ダイアログボックスで、使用する計算の種類をXNUMXつ選択します。 値を要約する タブ、スクリーンショットを参照してください：

3。 そして、 OK このダイアログを閉じると、Count関数がSum関数に変更されていることがわかります。スクリーンショットを参照してください。

4。 上記の手順を繰り返して、他のフィールドの計算設定をXNUMXつずつ変更します。

ご注意： フィールドセルをXNUMXつ右クリックして、フィールド設定を変更することもできます。 値を要約する コンテキストメニューから必要な計算をXNUMXつ選択します。

VBAコードを使用してピボットテーブルの複数のフィールド設定を変更する

上記の方法は、変更する必要のあるフィールド計算がたくさんある場合、時間と手間がかかります。ここでは、複数のフィールド設定を同時に変更するコードを紹介します。

1。 ピボットテーブルの任意のセルをクリックします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：ピボットテーブルの複数のフィールド設定を変更します

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、選択したピボットテーブルのすべてのフィールド設定が一度に必要な計算に変換されます。スクリーンショットを参照してください。

Note：上記のコードでは、Sum関数を、必要に応じて、平均、最大、最小などの他の計算に変更できます。 これらのスクリプトで合計を変更する必要があります。 Public Sub SetDataFieldsToSum（） • .関数 = xlSum 他の機能に。