Kako onemogočiti izbiro več elementov v vrtilni tabeli?
Ko ustvarimo vrtilno tabelo in nastavimo možnost filtriranih elementov, vendar ne želite, da bi drugi uporabili funkcijo Izbira več elementov v vrtilni tabeli, da bi razblinili prvotne podatke v pivot tabeli. V tem članku bom govoril o tem, kako onemogočiti to možnost v vrtilni tabeli.
Onemogočite izbiro več elementov v vrtilni tabeli s kodo VBA
Onemogočite izbiro več elementov v vrtilni tabeli s kodo VBA
Za zaščito pred izbiro vrtilne tabele pred spreminjanjem vam lahko naslednja koda VBA onemogoči funkcijo Izbira več elementov. Naredite naslednje:
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Onemogočite izbiro več elementov v vrtilni tabeli
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. Nato pritisnite F5 tipko za zagon te kode in gumbi s puščicami filtra v vrtilni tabeli so bili hkrati odstranjeni, glejte posnetke zaslona:
Opombe:
1. Če želite znova omogočiti Izbira več elementov, uporabite naslednjo kodo:
Koda VBA: Omogoči izbiro več elementov v vrtilni tabeli:
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. Ta koda se uporablja samo za eno vrtilno tabelo na aktivnem delovnem listu.
Sorodni članki:
Kako skriti gumbe za razširitev strnitve v vrtilni tabeli?
Kako skriti vmesne seštevke v vrtilni tabeli?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!