当更改数据透视表的2个报告filter与VBBA Excel崩溃

我有一个数据透视表与2个报告filter，我分别设置他们为“阿什利”和112。 数据表有两个，但不在同一行，所以数据透视表应该返回一个空白或0我想要检索的数据的总和。

如果我如上所述设置这些报表filter一切顺利，但如果我在vba excel崩溃。

这是我的代码

（“TtlGinShiftDT”）.PivotFields（“Gin”）。ClearAllFilters .PivotTables（“TtlGinShiftDT”）.PivotFields（“Gin”）.CurrentPage = CStr（.Cells（NewPTData + 1,3））.PivotTables（“TtlGinShiftDT “）.PivotFields（”Shift“）。ClearAllFilters .PivotTables（”TtlGinShiftDT“）.PivotFields（”Shift“）.CurrentPage = CStr（.Cells（NewPTData + 1，1））

大多数情况下，2个filter会有一些有效的数据，但偶尔也不会，所以直到今天仍然运行良好。

作为一个解决方法，我已经放了一个if语句，然后在代码中引用工作表上的countifs公式（使用filter值）的第4行。

这让我受不了，但似乎不应该如此。 我究竟做错了什么

CH office 2010