To beskytte utvalg pivot tabell fra å være i endring, kan følgende VBA-kode hjelpe deg å deaktivere velge flere elementer funksjonen. Gjør følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Deaktiver velge flere elementer i pivot tabell
Sub DisableSelection () 'Update 20141028Dim XPF Som PivotFieldSet XPT = Application.ActiveSheet.PivotTables (1) for hver XPF I xPT.PivotFields xPF.EnableItemSelection = FalseNext xPFEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og filter pilknappene i pivot tabellen har blitt fjernet på en gang, kan du se skjermbilder:
Notater:
1. Hvis du ønsker å aktivere velge flere elementer på nytt, kan du bruke følgende kode:
VBA-kode: Aktiver velge flere elementer i pivot tabell:
Sub DisableSelection () 'Update 20141028Dim XPF Som PivotFieldSet XPT = Application.ActiveSheet. pivottabeller (1) For hver XPF I xPT.PivotFields xPF.EnableItemSelection = TrueNext xPFEnd SUB2. Denne koden brukes bare på én pivot tabell i det aktive regnearket. Anmeldelser