宏在Excel中通过单元格过滤数据透视表

问题描述：

我想构建一个VBA宏来创建一个单元格，我可以在其中键入一个字符串，从另一个名为PIVOT的表单中启动用于过滤数据透视表的宏。宏在Excel中通过单元格过滤数据透视表

我有一个解决方案通过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

很棒！非常感谢:) –

如果您要使用'PivotTable'工作很多，您应该使用像Dim PTPTl这样的对象作为数据透视表，以及其他数据透视表对象 –

答

变化

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

到

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

，将使用从Sheet1!A1作为输入值，所以改变 “Sheet 1中”，并根据需要 “A1”。

宏在Excel中通过单元格过滤数据透视表

相关推荐