Excel VBA将variables传递给透视表参数
嗨，伙计们我想要将一个variables传递给数据透视表的值filter。 我正在试验下面的代码，但它给了我错误。 有什么build议么。 我试图把x varibale放入Value1
Sub Macro1() ' ' Macro1 Macro ' x = "*" + Range("Sheet1!h17").Value + "*" ActiveSheet.PivotTables("PivotTable2").PivoJtFields("Note").ClearAllFilters ActiveSheet.PivotTables("PivotTable2").PivotFields("Note").PivotFilters.Add _ Type:=xlCaptionContains, Value1:=x End Sub 这是一个错字吗？ （PivoJtFields）。 并确保您在数据透视表的表格上，并且表格具有正确的名称。
尝试
x = "*" + Range("Sheet1!h17").Value + "*" Dim PT As PivotTable Set PT = ActiveSheet.PivotTables("PivotTable2") Dim PT_PivotFieldNote As PivotField Set PT_PivotFieldNote = PT.PivotFields("Note") PT_PivotFieldNote.ClearAllFilters PT_PivotFieldNote.PivotFilters.Add xlCaptionContains, Value1:=x