帶有數據透視表的Excel中的VBA代碼

Question

數據源將經常更改。在我刷新數據透視表後，我有以下代碼來更新成績透視項目字段。有時候4級是可用的，有時不是。基本上，如果4級是可用的，我希望它被選中，如果它不可用，那麼可以選擇所有的字段。出於某種原因，當我運行它時，它停在else行上。有什麼建議麼？

ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").ClearAllFilters 

If IsError(ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").CurrentPage = "4") Then 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").CurrentPage = _ 
    "(All)"  
Else 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").CurrentPage = "4"   
End If 

Answer 1

您不能捕獲PivotField("Grade").CurrentPage誤差IsError。

嘗試下面的代碼：

ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").ClearAllFilters 

On Error Resume Next 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").CurrentPage = "4" 

If Err.Number <> 0 Then 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade").CurrentPage = _ 
    "(All)" 
    On Error GoTo 0 
End If 

注意：如果您使用With語句，你可以清理你的代碼。在您的代碼中，您可以使用With ActiveSheet.PivotTables("PivotTable1").PivotFields("Grade")