ピボットテーブルの操作に使用するスライサーがあります。ピボットテーブルはフィルターのリストです。最終的に、スライサーとピボットテーブルを使用して、データを取得し、エンド ユーザー用のワークシートに入力します。
問題
最近、データをオートコンプリートするコンボボックスを追加したので、エンド ユーザーは各スライサーをスクロールして適切なオプションを選択するのに時間を費やすのではなく、探しているものをすばやく入力できます。シートをテストしていると、スライサーの 1 つの上部に空白の行が表示されることに気付きました。この空白行を削除するにはどうすればよいですか?
試み
ピボットテーブル + スライサーのデータ ソースを確認しましたが、空白行はありません。GoTo --> Blanks を実行して、空白セルを分離しようとしました (データに空白セルはありません)。データ ソースを更新し、データ ソースを本来あるべき状態に変更しました。ピボットテーブル データに空白がないにもかかわらず、スライサーの空白行が残っています。また、スライサー設定に移動し、「データのないアイテムを非表示にする」をチェックしましたが、それでもスライサーの空白のエントリが残ります。
ピボットテーブルを操作する vba コードは、スライサーをまったく変更していないことを付け加えておきます。私のvbaでは、次のように呼びます：
シートをロックすると：
Me.Protect DrawingObjects:=False, UserInterfaceOnly:=True, AllowUsingPivotTables:=True
ComboBox1_Click()ユーザーがオートコンプリート ドロップダウンからエントリを選択した後のイベント:
ActiveSheet.PivotTables("PivotTable").PivotFields("Portfolio").CurrentPage = _
ComboBox1.Value
そして、ユーザーが「フィルターのクリア」ボタンをクリックすると、次のように呼び出します。
ActiveWorkbook.ActiveSheet.PivotTables("PivotTable").ClearAllFilters
これらは、私の vba コード内のピボットテーブルの唯一の操作です。