ピボットテーブルで複数のアイテムの選択を無効にするにはどうすればよいですか？

ピボットテーブルを作成してフィルター処理されたアイテムのオプションを設定するが、ピボットテーブルの[複数アイテムの選択]機能を他のユーザーに適用して、ピボットテーブルの元のデータを混乱させたくない場合。 この記事では、ピボットテーブルでこのオプションを無効にする方法について説明します。

VBAコードを使用してピボットテーブルで複数のアイテムを選択するを無効にする

VBAコードを使用してピボットテーブルで複数のアイテムを選択するを無効にする

ピボットテーブルの選択が変更されないように保護するために、次のVBAコードは、複数アイテムの選択機能を無効にするのに役立ちます。 次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード：ピボットテーブルで複数のアイテムを選択することを無効にします

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = False
Next xPF
End Sub

3。 次に、 F5 このコードを実行するためのキーと、ピボットテーブルのフィルター矢印ボタンが一度に削除されました。スクリーンショットを参照してください。

注意：

1。 複数アイテムの選択を再度有効にする場合は、次のコードを適用してください。

VBAコード：ピボットテーブルで複数のアイテムを選択できるようにします。

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = True
Next xPF
End Sub

2。 このコードは、アクティブなワークシートのXNUMXつのピボットテーブルにのみ適用されます。

関連記事：

ピボットテーブルの展開折りたたみボタンを非表示にする方法は？

ピボットテーブルで小計を非表示にする方法は？