Как да деактивирам избирането на няколко елемента в осевата таблица?
Когато създаваме обобщена таблица и зададем опцията за филтрирани елементи, но не искате други да прилагат функцията Избор на множество елементи в обобщената таблица, за да нарушат оригиналните данни във вашата обобщена таблица. В тази статия ще говоря за това как да деактивирате тази опция в осевата таблица.
Деактивиране на избора на няколко елемента в обобщена таблица с VBA код
Деактивиране на избора на няколко елемента в обобщена таблица с VBA код
За да защитите избора на обобщена таблица от промяна, следният код на VBA може да ви помогне да деактивирате функцията за избор на множество елементи. Моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
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. Този код се прилага само към една обобщена таблица в активния работен лист.
Още по темата:
Как да скрия бутоните за разгъване и свиване в осевата таблица?
Как да скрия междинните суми в осевата таблица?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
