Home » エクセルマクロ・Excel VBAの使い方 » ピボットテーブル » VBAでピボットテーブルのフィルターを設定する

VBAでピボットテーブルのフィルターを設定する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「ピボットテーブル　フィルタ選択　マクロ」
といった検索が、このサイト・インストラクターのネタ帳で行われていました。

VBAでピボットテーブルのフィルターを設定するには、どのようなコードを書けばいいのかを探していた方による検索です。

何を求めていたのか、複数の解釈ができる検索ですが、以下のようなピボットテーブルで、

VBAでピボットテーブルのフィルターを設定する

下図のようなフィルターを設定するマクロをご紹介しておきます。

VBAでピボットテーブルのフィルターを設定する

［スポンサードリンク］

フィルターを設定するサンプルマクロ

電卓と紙の代わりに過ぎないSUMIF関数よりもピボットテーブルをおすすめしている記事でご紹介している、下図のようなワークシートがアクティブな状態で、

VBAでピボットテーブルのフィルターを設定する

以下のSubプロシージャを実行すると「交通費」だけでフィルターが設定されます。

Sub フィルターを設定する()
　Dim itm As PivotItem

　For Each itm In ActiveSheet.PivotTables(1).PivotFields("科目").PivotItems
　　Select Case itm.Value
　　　Case "交通費"
　　　　itm.Visible = True
　　　Case Else
　　　　itm.Visible = False
　　End Select
　Next itm
End Sub

複数アイテムでフィルターを設定する場合

「ピボットテーブル　フィルター複数選択　マクロ」
という検索も行われていました。

その場合は、
　　Select Case itm.Value
　　　Case "交通費"
を、
　　Select Case itm.Value
　　　Case "交通費", "出張手当"
としてやると、「交通費」または「出張手当」でフィルターが設定されます。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ピボットテーブル » VBAでピボットテーブルのフィルターを設定する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「ピボットテーブル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.