Макро-фильтрация сводной таблицы через ячейку в Excel

Question

Я хотел бы построить макрос VBA, чтобы иметь ячейку, где я могу ввести строку, запустить макрос, который фильтрует сводную таблицу из другого листа с именем PIVOT.

У меня есть решение через Inputbox (см. Ниже), но я предпочитаю использовать ячейку.

Sub Macro1()

Dim IdentificationNo As String
IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER")
    Sheets("PIVOT").PivotTables("PivotTable1") _
        .PivotFields("Identification #").CurrentPage = IdentificationNo

End Sub

Answer 1

+ Изменить

IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER")

в

IdentificationNo = Worksheets("Sheet1").Range("A1").Value

Это будет использовать значение из Sheet1!A1 в качестве ввода, поэтому измените "Лист1" и "А1" по мере необходимости.