数据透视表filter使用单独的表单

我有一个数据透视表设置它需要如何，但ID列是相当广泛的，所以我期待有一个macros，可以轻松筛选我想要的数据透视表的ID。 我想要做的是能够运行一个macros来查看我在sheet2上的所有ID并转到sheet1上的透视表，并只显示这些ID。

我真的一直在寻找什么其他类似的话题。 但是，这些问题和解决scheme不适用于我想要做的事情，或者他们在我头上，我甚至没有意识到代码中发生了什么。 我最初的想法是logging一个macros，我将select几个ID来查看代码的样子，然后将macros上的ID更改为sheet2中的ID， 这对我来说不起作用，所以我不确定这是一个好主意还是不好的执行，或者我现在只是偏离基地。 但是这里是我到目前为止的代码：

Sub report_filter_macro() ' ' report_filter_macro Macro ' filter only the IDs desired ActiveSheet.PivotTables("my_pivot").PivotFields("IDs").CurrentPage = _ "(All)" With ActiveSheet.PivotTables("my_pivot").PivotFields("IDs") .PivotItems("000022").Visible = False ' does not show ID 000022 in the pivot table .PivotItems("000011").Visible = False ' does not show ID 000011 in the pivot table End With ActiveSheet.PivotTables("my_pivot").PivotFields("IDs"). _ EnableMultiplePageItems = True ' allows multiple filters End Sub 

谢谢你的帮助。