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

ピボットテーブルを作成する際、行ラベルや値にフィールドを手動で1つずつドラッグする必要があります。フィールドが多数ある場合、いくつかの行ラベルは素早く追加できますが、残りのフィールドは値エリアに追加する必要があります。ピボットテーブル内でワンクリックですべての他のフィールドを値エリアに追加できる簡単な方法はありますか？

VBAコードを使用してピボットテーブルの値エリアに複数のフィールドを追加する

VBAコードを使用してピボットテーブルの値エリアに複数のフィールドを追加する

残念ながら、ピボットテーブルのフィールドリストで一括してすべてのフィールドを選択するためのチェックボックスはありません。しかし、次のVBAコードを使用することで、一度に残りのフィールドを値エリアに追加することができます。以下の手順を行ってください：

1. ピボットテーブルを作成した後、まず必要に応じて行ラベルフィールドを追加し、値フィールドを「 レポートに追加するフィールドを選択」リストに残します。スクリーンショットをご覧ください：

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

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

VBAコード: アクティブなワークシート内のピボットテーブルの値エリアに複数のフィールドを追加

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. そして、F5キーを押してこのコードを実行すると、同時にすべての残りのフィールドが値エリアに追加されます。スクリーンショットをご覧ください：

注釈: このVBAコードは、アクティブなワークシート内のすべてのピボットテーブルに適用されます。

関連記事：

ワークブックからすべてのピボットテーブルをリストするにはどうすればよいですか？

ワークブック内にピボットテーブルが存在するかどうかを確認するにはどうすればよいですか？