メインコンテンツへスキップ

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

ピボットテーブルを作成するときは、フィールドをXNUMXつずつ手動で行ラベルまたは値にドラッグする必要があります。 フィールドのリストが長い場合は、いくつかの行ラベルをすばやく追加できますが、残りのフィールドは[値]領域に追加する必要があります。 ピボットテーブルをXNUMX回クリックするだけで、他のすべてのフィールドを[値]領域に追加する簡単な方法はありますか?

VBAコードを使用してピボットテーブルの値領域に複数のフィールドを追加します


矢印青い右バブル VBAコードを使用してピボットテーブルの値領域に複数のフィールドを追加します

残念ながら、ピボットテーブルフィールドリストのすべてのフィールドをワンクリックですばやく確認するためのチェックボックスはありませんが、次のVBAコードを使用すると、残りのフィールドを[値]領域に一度に追加できます。 次のようにしてください。

1. ピボットテーブルを作成した後、最初に、必要に応じて行ラベルフィールドを追加し、値フィールドを レポートに追加するフィールドを選択します リスト、スクリーンショットを参照:</ p>

doc-add-複数フィールド-1

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

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

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 このコードを実行するためのキー。残りのすべてのフィールドが同時に[値]領域に追加されています。スクリーンショットを参照してください。

doc-add-複数フィールド-1

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


関連記事:

ワークブックからすべてのピボットテーブルを一覧表示するにはどうすればよいですか?

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

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト ツール (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット ツール (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

 

Comments (23)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am running this code. How much time does it take to complete? It's now 45 minutes it's still running. Please help me. By the way, my total field columns are 3600.
This comment was minimized by the moderator on the site
Hi, is there a way to add only the columns unseleted ones? thanks. 
This comment was minimized by the moderator on the site
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц или источников данных. Можете реализовать?
This comment was minimized by the moderator on the site
Is there a way to edit the macro that would send the fields into the rows label instead of the values?
This comment was minimized by the moderator on the site
If "Values are
"0" or "Null" how to suppress Row Values from Displaying

(ex. Sum of 2743 Difference)





Pivot "Rows"
Pivot "Values"





Row Labels





NP9 - Total Unexpended
Appropriations





Sum of OTHER Difference 1,045,355,165.31




Sum of 3200 Difference
0.00




Sum of 0108 Difference
12,873,630.29



Sum of 4586 Difference
(33,024,706.93)



Sum of 0148 Difference
(72,046,783.14)



Sum of 0129 Difference
(5,583,891.98)



Sum of 4598 Difference
(929,574.56)



Sum of 2743 Difference



Sum of 4041 Difference
0.00



Sum of 2799 Difference
This comment was minimized by the moderator on the site
Note: Che's error message:




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





End With







Next



Next




End Sub










Note: Che's trying to add the following
fields/snapshot- "Sum of OTHER Difference, Sum of 4096
Difference" over 80 fields to be
added







OTHER Difference



4096 Difference



4016 Difference
This comment was minimized by the moderator on the site
THANK YOU SO MUCH!!!
This comment was minimized by the moderator on the site
Thanks, helped me a lot
This comment was minimized by the moderator on the site
Works like a charm. Thanks
This comment was minimized by the moderator on the site
Hi.

It gives me a compile error when I click on Run

Please help
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations