通过 Excel 中的单元格对数据透视表进行宏过滤答案

【问题标题】：Macro filtering pivot table through a cell in Excel通过 Excel 中的单元格对数据透视表进行宏过滤
【发布时间】：2017-05-09 08:26:09
【问题描述】：

我想构建一个 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

【问题讨论】：

效果很好！非常感谢:)
如果你要经常使用PivotTables，你应该使用像Dim PvtTbl as PivotTable这样的对象，以及其他数据透视表对象

标签： excel pivot-table inputbox vba

【解决方案1】：

改变

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

到

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

这将使用来自Sheet1!A1 的值作为输入，因此根据需要更改“Sheet1”和“A1”。

【讨论】：