No.1ベストアンサー
- 回答日時:
マクロでやってみます。
「マクロはNG」というなら無理におすすめしませんが、マクロ以外では難しいと思います。まず以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
次にマクロの2行目と3行目を目的の名前に変更してください。(仮に列名を「商品名」、表示する商品は「机」「椅子」「本棚」としている箇所です。商品は半角カンマ区切りです。何個あっても構いませんが、その商品名がピボットテーブルにないとエラーになります)
マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
Sub Macro1()
Const fldName As String = "商品名" '対象となるフィールド名を指定
Const tItems As String = "机,椅子,本棚" '表示したい商品を半角「,」で区切る
Dim trg() As String
Dim psw As Boolean
Dim idx As Integer
trg = Split(tItems, ",")
If ActiveSheet.PivotTables.Count = 1 Then
On Error Goto Err0
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1).PivotFields(fldName)
For idx = 2 To .PivotItems.Count
.PivotItems(idx).Visible = False
Next idx
For idx = 0 To UBound(trg)
.PivotItems(trg(idx)).Visible = True
If .PivotItems(1).Name = trg(idx) Then
psw = True
End If
Next idx
If Not psw Then
.PivotItems(1).Visible = False
End If
End With
End If
Err0:
Application.ScreenUpdating = True
End Sub
ただしこのマクロはワークシート上にピボットテーブルが1つしかないことを前提にしています。実際にはそうでないなら補足してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) ピボットテーブルの表示変更の仕方 初心者なので、的外れな質問だったらすみません 受注日ごとに商品名と 1 2022/04/26 23:23
- その他(プログラミング・Web制作) パイソンでのプログラミングについて 3 2022/08/11 20:31
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- メルカリ ジャンク品を高値で出品する人は何故? メルカリやヤフオクで ジャンク品なのに相場くらいの強気な価格 4 2022/10/01 00:31
- Excel(エクセル) エクセルで複数設定したハイパーリンク先を、どれを選んでも画面の左上に来るようにしたいのですが・・・ 3 2022/04/07 16:15
- 食べ物・食材 カルディにお詳しい方への質問 2 2023/01/10 21:05
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
【Excel VBA】エラー番号400
-
Excelのワークシート上に検索窓...
-
エラーになってないのにVBA...
-
エクセルで複数のシートをまと...
-
EXCEL2000 VBA マクロ実行中に...
-
TeraTermのマクロについて
-
マクロ ブックをマクロなしでコ...
-
PowerPointでクリックしたオブ...
-
Excelマクロでオプションボタン...
-
エクセルで土日列の非表示方法...
-
ワードで画像を自動で挿入する方法
-
VBAが止まらない
-
エクセル グラフの軸の最小値最...
-
Accessのクエリを実行するショ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
ワードからエクセルへ貼り付け...
-
エクセルのマクロ機能で前のシ...
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
エクセル グラフの軸の最小値最...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
【Excel VBA】エラー番号400
-
Excelマクロでオプションボタン...
-
Wordの画面を左右にスクロール...
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
-
AccessのテーブルデータをExcel...
おすすめ情報