Hur inaktiverar du markera flera objekt i pivottabellen?

När vi skapar en pivottabell och ställer in alternativet för filtrerade objekt, men du vill inte att andra ska använda funktionen Select Multiple Items i pivottabellen för att störa originaldata i din pivottabell. I den här artikeln kommer jag att prata om hur du inaktiverar detta alternativ i pivottabellen.

Inaktivera markera flera objekt i pivottabellen med VBA-kod

Inaktivera markera flera objekt i pivottabellen med VBA-kod

För att skydda pivottabellens val från att ändras kan följande VBA-kod hjälpa dig att inaktivera funktionen Välj flera objekt. Gör så här:

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Inaktivera markera flera objekt i pivottabellen

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. Tryck sedan på F5 -knappen för att köra den här koden, och filterpilknapparna i pivottabellen har tagits bort på en gång, se skärmdumpar:

Anmärkningar:

1. Om du vill aktivera Välj flera objekt igen, använd följande kod:

VBA-kod: Aktivera markera flera objekt i pivottabellen:

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. Den här koden tillämpas endast på en pivottabell i det aktiva kalkylbladet.

Relaterade artiklar:

Hur döljer man expandera kollaps-knappar i pivottabellen?

Hur döljer man delsummor i pivottabellen?