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

ワークシートにピボットテーブルを作成し、フィールドをピボットテーブル フィールド リストの「値」リストにドラッグした後、次のスクリーンショットに示すように、すべて同じカウント関数が表示される場合があります。しかし今、 合計関数でカウント関数を一度に置き換えたい場合、Excel で複数のピボットテーブル フィールドの計算を一度に変更するにはどうすればよいですか？

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

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

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

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

1. ピボットテーブル内の集計関数を変更したい「値」エリアのフィールドを選択し、右クリックして「値フィールド設定」を選択します。スクリーンショットをご覧ください：

2. 次に、「値フィールド設定」ダイアログボックスで、「値の集計方法」タブの下にある使用したい計算タイプを選択します。スクリーンショットをご覧ください：

3. そして、「OK」をクリックしてこのダイアログを閉じると、カウント関数が合計関数に変更されたことが確認できます。スクリーンショットをご覧ください：

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

注: フィールド設定は、フィールドセルを右クリックして「値の集計方法」を選択し、コンテキストメニューから必要な計算を選択することでも変更できます。

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

上記の方法は、変更が必要なフィールド計算が多い場合、時間がかかり面倒です。ここでは、複数のフィールド設定を同時に変更するためのコードをご紹介します。

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

2. ALT + F11キーを押しながら押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3. 「挿入」> 「モジュール」をクリックし、以下のコードをモジュールウィンドウに貼り付けます。

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キーを押してこのコードを実行すると、選択したピボットテーブル内のすべてのフィールド設定が一度に必要な計算に変換されます。スクリーンショットをご覧ください：

注: 上記のコードでは、合計関数を平均、最大、最小など、必要な他の計算に変更できます。これらのスクリプトのSumを他の関数に変更するだけです：Public Sub SetDataFieldsToSum() および .Function = xlSum