Как да променя настройките на множество полета в обобщена таблица?
Когато създавате обобщена таблица в работен лист, след плъзгане на полетата към Ценности списък в Списък с полета на обобщена таблица, може да получите същото Броя функция, както е показано на следната екранна снимка. Но сега искате Сума на функция за заместване на Броя на функция наведнъж, как можете да промените изчислението на множество полета на обобщена таблица наведнъж в Excel?
Променете настройките на полето в осевата таблица ръчно една по една
Променете настройките на множество полета в обобщена таблица с VBA код
Променете настройките на полето в осевата таблица ръчно една по една
В Excel можете да промените изчислението на настройките на полето, като промените функцията една по една в Настройки на полето за стойност диалогов прозорец, моля, направете следното:
1. Изберете поле в областта Стойности, за което искате да промените функцията за обобщение в обобщената таблица, и щракнете с десния бутон, за да изберете Настройки на полето за стойност, вижте екранна снимка:
2. Тогава в Настройки на полето за стойност изберете един тип изчисление, което искате да използвате под Обобщаване на стойността по раздел, вижте екранна снимка:
3, И после щракнете върху OK за да затворите този диалогов прозорец и можете да видите, че вашата функция Count е променена на функция Sum, вижте екранната снимка:
4. Повторете горните стъпки, за да промените настройките за изчисление на други полета една по една.
Забележка: Можете също да промените настройките на полето, като щракнете с десния бутон върху една клетка на полето и изберете Обобщете стойностите по и изберете едно изчисление, от което се нуждаете, от контекстните менюта.
Променете настройките на множество полета в обобщена таблица с VBA код
Горният метод ще отнеме много време и ще бъде досаден, ако трябва да се променят много полеви изчисления, тук мога да ви представя код за промяна на множество настройки на полето едновременно.
1. Щракнете върху която и да е клетка във вашата обобщена таблица.
2. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
3. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Променете настройките на множество полета в осевата таблица
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. След това натиснете F5 ключ за изпълнение на този код и всички настройки на полето в избраната от вас обобщена таблица са преобразувани в изчислението на вашите нужди наведнъж, вижте екранните снимки:
|
 |
 |
Забележка: В горния код можете да промените функцията Sum на всякакви други изчисления, като средно, макс., мин., както желаете. Просто трябва да промените Sum в тези скриптове: Public Sub SetDataFieldsToSum() намлява .Функция = xlSum към други функции.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
