通过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中的值作为输入，因此更改＆＃34; Sheet1＆＃34;和＆＃34; A1＆＃34;根据需要。