Как да свържа филтъра на Pivot Table към определена клетка в Excel?
Ако искате да свържете филтър на обобщена таблица към определена клетка и да направите обобщената таблица филтрирана въз основа на стойността на клетката, методът в тази статия може да ви помогне.
Свържете филтъра на обобщената таблица към определена клетка с VBA код
Свържете филтъра на обобщената таблица към определена клетка с VBA код
Обобщената таблица, която ще свържете нейната филтърна функция със стойност на клетка, трябва да включва филтърно поле (името на филтърното поле играе важна роля в следния VBA код).
Вземете обобщената таблица по-долу като пример. Филтърното поле в обобщената таблица се извиква категорияи включва две стойности „разходи"А"Продажби”. След като свържете филтъра на обобщената таблица към клетка, стойностите на клетките, които ще приложите към филтърната обобщена таблица, трябва да бъдат „Разходи“ и „Продажби“.
1. Моля, изберете клетката (тук избирам клетка H6), която ще свържете към филтърната функция на обобщената таблица, и въведете една от стойностите на филтъра в клетката предварително.
2. Отворете работния лист, който съдържа обобщената таблица, която ще свържете към клетката. Щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от контекстното меню. Вижте екранна снимка:
3. В Microsoft Visual Basic за приложения прозорец, копирайте под VBA кода в прозореца на кода.
VBA код: Свържете филтъра на обобщената таблица към определена клетка
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
бележки:
4. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.
Сега филтърната функция на обобщената таблица е свързана с клетка H6.
Обновете клетката H6, след което съответните данни в обобщената таблица се филтрират въз основа на съществуващата стойност. Вижте екранна снимка:
Когато променяте стойността на клетката, филтрираните данни в обобщената таблица ще се променят автоматично. Вижте екранна снимка:
Лесно изберете цели редове въз основа на стойността на клетката в дадена колона:
- Изберете конкретни клетки полезност на Kutools за Excel може да ви помогне бързо да изберете цели редове въз основа на стойността на клетката в определена колона в Excel, както е показано на екранната снимка по-долу. След като изберете всички редове въз основа на стойността на клетката, можете ръчно да ги преместите или копирате на ново място, както ви е необходимо в Excel.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Още по темата:
- Как да комбинирате няколко листа в обобщена таблица в Excel?
- Как да създадете обобщена таблица от текстов файл в Excel?
- Как да филтрирате обобщена таблица въз основа на конкретна стойност на клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!