エクセルの学校：全文検索：Hyper Estraier：ピボットテーブル

Results of 1 - 1 of about 2422 for ピボットテーブル (0.004 sec.)

[[20221102103909]]: #score: 4769; @digest: 8e38eca52455c8ea4ce3a48ed1a0d227; @id: 92693; @mdate: 2022-11-04T02:02:25Z; @size: 2909; @type: text/plain; #keywords: 売月 (93122), トna (34278), filtermonth (29993), ecarlat (14319), タ— (14128), 販売 (13488), 月in (11983), 202201 (11665), 月. (11282), 「販 (9713), clearallfilters (9051), 202203 (7268), pivotitems (7267), 売期 (6633), 202202 (6590), xlcolumnfield (6501), pivottables (6146), pivotfields (5104), 月di (4907), （ec (4320), blank (4162), ピボ (3523), 月") (2877), 支店 (2436), 白処 (2314), 「支 (2050), visible (1809), トテ (1666), ボッ (1637), 月」 (1484), 品目 (1426), orientation (1328); 『ピボットテーブルのラベルフィルタ—の空白処理について』（ECARLAT）
「支店名」「品目」「販売月」「売上」の項目を持つデータシートから「支店名」をフィルタ—、行を「品目」、列を「販売月」、値を「売上」に設定したピボットテーブルをVBAで作成しています。「販売月」は、テキスト形式で2022年1月は"202201"と6桁の文字でデータを持っています。 ピボットテーブルを作成する際に集計期間を設定、列に設定した「販売月」にフィルターで該当期間の月だけを抽出させるようにしています。販売期間の抽出は With ActiveSheet.PivotTables(ピボットName).PivotFields("販売月") .Orientation = xlColumnField .ClearAllFilters For Each p_販売月 In ActiveSheet.PivotTables(ピボットName).PivotFields("販売月").PivotItems If InStr(FilterMonth, p_販売月.Value) = 0 Then p_販売月.Visible = False End If Next End With でできています。ところが中には「販売月」に空白（未記入）を使用している支店があり、「販売月」の空白はピボットテーブルでは表示させたくないため、ラベルフィルタ—で空白のチェックを外したいのです。必ず空白が含まれているのであれば .PivotItems("(blank)").Visible = False で対処できるのですが、支店によって空白の有無がまちまちなので空白が含まれていない支店の場合、上記の記載があるとエラーが出てしまいます。このような状況の中で、販売月のラベルフィルタ—に空白が含まれている場合に空白のチェックを外すにはどのようにしたらよいでしょうか? ご助言のほどよろしくお願いします。＜使用 Excel:Office365、使用 OS:Windows10 ＞ ---- エラーになるとは、どこの行で発生し、なんというエラーですか? 簡単な動作確認をしてみました。・FilterItem="202201,202202,202203"のような指定をしておけば、 p_販売月という PivotItem の .Valueが"(blank)" であれば、 p_販売月.Visible = False が実行されて、所期するような非表示になると思いますが。 (参考)実験コード Sub test() Dim ピボットName$ Dim p_販売月 Dim FilterMonth$ FilterMonth = "202201,202202,202203" ピボットName = "ピボットテーブル1" With ActiveSheet.PivotTables(ピボットName).PivotFields("販売月") .Orientation = xlColumnField .ClearAllFilters For Each p_販売月 In ActiveSheet.PivotTables(ピボットName).PivotFields("販売月").PivotItems Debug.Print p_販売月.Value If InStr(FilterMonth, p_販売月.Value) = 0 Then p_販売月.Visible = False End If Next End With End Sub （γ） 2022/11/03(木) 05:34:22 ---- ご回答ありがとうございます、またお返事が遅くなり申し訳ありませんでした。恥ずかしながら、わたくしの勘違いでした。空欄の表現に""ではなく、"blank"を使用しておりました。そのため、実行エラー1004 PrivateItemsのプロパティを取得できませんとのエラーが出ました。コード内容を確認し、"blank"を""に変更することで空白が非表示にできまいsた。お騒がせして申し訳ありませんでした。（ECARLAT） 2022/11/04(金) 11:02:25 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202211/20221102103909.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ