APPY如果在樞軸過濾

在此，不是所有的時間發言，我會選擇12L或03A時，我拉的報告。如何應用只有在這些選項可用時纔會過濾（取消選擇）的if語句。

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group") 
    .Orientation = xlPageField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Item").CurrentPage = "10" 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group"). _ 
    CurrentPage = "(All)" 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group") 
    .PivotItems("03A").Visible = False 
    .PivotItems("12L").Visible = False 
End With 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group"). _ 
    EnableMultiplePageItems = True 
Range("A7").Select 
ActiveSheet.PivotTables("PivotTable1").InnerDetail = "Contract" 
Selection.ShowDetail = True 
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh 
End Sub

來源

2016-01-29 Ayshwarya

我認爲這

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group") 
    .PivotItems("03A").Visible = False 
    .PivotItems("12L").Visible = False 
End With

當「03A」和「12L」不可產生錯誤。您可以添加On Error Resume Next。

On Error Resume Next 'In case of error, go to next line 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group") 
    .PivotItems("03A").Visible = False 
    .PivotItems("12L").Visible = False 
End With 
On Error GoTo 0 'Disable any enabled error handler

來源

2016-01-29 08:50:26

APPY如果在樞軸過濾

回答

相關問題