Hvordan deaktiveres markering af flere elementer i pivottabellen?
Når vi opretter en pivottabel og indstiller muligheden for filtrerede emner, men du vil ikke have, at andre skal anvende funktionen Select Multiple Items i pivottabellen for at forstyrre de originale data i din pivottabel. I denne artikel vil jeg tale om, hvordan du deaktiverer denne mulighed i pivottabellen.
Deaktiver markér flere elementer i pivottabellen med VBA-kode
Deaktiver markér flere elementer i pivottabellen med VBA-kode
For at beskytte pivottabellens valg mod at blive ændret, kan følgende VBA-kode hjælpe dig med at deaktivere funktionen Select Multiple Items. Gør som følger:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Deaktiver vælg flere elementer 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. Tryk derefter på F5 nøgle til at køre denne kode, og filterpilknapperne i pivottabellen er blevet fjernet med det samme, se skærmbilleder:
 |
 |
 |
Bemærkninger:
1. Hvis du vil aktivere Vælg flere emner igen, skal du anvende følgende kode:
VBA-kode: Aktiver vælg flere elementer 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. Denne kode anvendes kun til en pivottabel i det aktive regneark.
Relaterede artikler:
Hvordan skjules udvidelse af kollaps-knapper i drejetabellen?
Hvordan skjules subtotaler i pivottabellen?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
