在数据透视表中筛选 – Excel

我无法在Excel中筛选数据透视表。 我试图使用True和False方法，但没有成功，因为它会生成以下错误“无法获得PivotField PivotItems类的属性”（err.number = 1004）。 之后我试着用For Each。 对于每一个我设法改变filter，因为我不改变我的数据透视表的第一个项目。

方法正确 – 错误

Sub TandF() ActiveSheet.PivotTables("Tabela dinâmica2").ClearAllFilters With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Mês") .PivotItems("01/01/2015").Visible = False .PivotItems("02/01/2015").Visible = True End With End Sub 

方法每个

 Function filter(dtIni As String, dtFim As String) As Boolean On Error GoTo e Dim PvtTbl As PivotTable Dim pvtItm As PivotItem dtIni = Format(dtIni, "mm/dd/yyyy") dtFim = Format(dtFim, "mm/dd/yyyy") Set PvtTbl = ActiveSheet.PivotTables("Tabela dinâmica2") ActiveSheet.PivotTables("Tabela dinâmica2").ClearAllFilters For Each pvtItm In PvtTbl.PivotFields("Mês").PivotItems If (pvtItm <> dtIni) And (pvtItm <> dtFim) Then pvtItm.Visible = False End If Next filter = True Exit Function e: MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Erro ao Adicionar Filtros" filter = False End Function