Как отфильтровать сводную таблицу на основе определенного значения ячейки в Excel?
Обычно мы фильтруем данные в сводной таблице, выбирая элементы в раскрывающемся списке, как показано на снимке экрана ниже. На самом деле вы можете фильтровать сводную таблицу на основе значения в конкретной ячейке. Метод VBA в этой статье поможет вам решить проблему.
Фильтрация сводной таблицы на основе определенного значения ячейки с кодом VBA
Фильтрация сводной таблицы на основе определенного значения ячейки с кодом VBA
Следующий код VBA может помочь вам отфильтровать сводную таблицу на основе определенного значения ячейки в Excel. Пожалуйста, сделайте следующее.
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:H7")) 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, должны точно соответствовать значениям в раскрывающемся списке «Категория» сводной таблицы.
Статьи по теме:
- Как объединить несколько листов в сводную таблицу в Excel?
- Как создать сводную таблицу из текстового файла в Excel?
- Как привязать фильтр сводной таблицы к определенной ячейке в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!