VBA宏数据透视表过滤器错误

在我的电子表格中，我有可变数据;然而，我有一组特定的属性，我想在它们确实出现在当周的数据运行中时进行筛选。如果它们没有出现，我想让数据透视表过滤器跳过它并继续下一步。不幸的是，当我尝试运行我的宏时，我不断收到调试错误。谁能帮忙？VBA宏数据透视表过滤器错误

I.E. 如果“1G1N13S2”不在变量[原始]数据中，它会让我直接进入VBA进行调试，而不是跳过它（无论是错误还是真实）以继续进入后续ID＃。

'PivotTable 
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange). _ 
    CreatePivotTable TableDestination:="", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10 
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) 
    ActiveSheet.Cells(3, 1).Select 

' BCA_Other Macro 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ACTIVITY_ID") 
    .Orientation = xlRowField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("SUM_$"), "Count of SUM_$", xlCount 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of SUM_$") 
    .Caption = "Sum of SUM_$" 
    .Function = xlSum 
    .NumberFormat = "#,##0.00_);[Red](#,##0.00)" 
End With 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("WK_END_DATE") 
    .Orientation = xlColumnField 
    .Position = 1 
End With 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("WK_END_DATE") 
    .PivotItems("(blank)").Visible = False 
End With 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ANALYSIS_TYPE") 
    .Orientation = xlPageField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("PivotTable1").PivotFields("ANALYSIS_TYPE"). _ 
    CurrentPage = "ACT" 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("BUS_UNIT_GL_FROM") 
    .Orientation = xlPageField 
    .Position = 1 
End With 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BUS_UNIT_GL_FROM"). _ 
    CurrentPage = "AV" 

    'Activity ID Filter 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("ACTIVITY_ID") 
    .PivotItems("1G1N13S2").Visible = False 
    .PivotItems("1G1N2SAN").Visible = False 
    .PivotItems("1G1N5ACC").Visible = False 
    .PivotItems("1G1N5SCI").Visible = False 
    .PivotItems("1G1N5SDV").Visible = False 
    .PivotItems("1G1N5SMS").Visible = False 
    .PivotItems("1G1N5SST").Visible = False 
    .PivotItems("1G1N9BAT").Visible = False 
    .PivotItems("1G1N9EBT").Visible = False 
    .PivotItems("1G1N9EPL").Visible = False 
    .PivotItems("E6T66ZAV").Visible = True 
    .PivotItems("E6T66ZB3").Visible = True 
    .PivotItems("E6T66ZB4").Visible = True 
    .PivotItems("E6T66ZB5").Visible = True 
    .PivotItems("E6T66ZCU").Visible = True 
    .PivotItems("E6T66ZDX").Visible = True 
    .PivotItems("E6T66ZE9").Visible = True 
    .PivotItems("E6T66ZIL").Visible = True 
    .PivotItems("E6T66ZIS").Visible = True 
    .PivotItems("E6T66ZIV").Visible = True 
    .PivotItems("E6T66ZIZ").Visible = True 
    .PivotItems("E6T66ZJ6").Visible = True 
    .PivotItems("E6T66ZJ8").Visible = True 
    .PivotItems("E6T66ZJA").Visible = True 
    .PivotItems("EMAD0005").Visible = False 
    .PivotItems("EMADF006").Visible = False 
    .PivotItems("F8800YN5").Visible = True 
    .PivotItems("F8800YNU").Visible = True 
    .PivotItems("F8800YNW").Visible = True 
    .PivotItems("F8800YPM").Visible = True 

End With 

'Add new tabs for Hours and rename tabs to Dollars and Hours 
Sheets("Sheet1").Select 
Sheets("Sheet1").Name = "BCA_Other_Dlrs" 
Sheets("BCA_Other_Dlrs").Select 
Sheets("BCA_Other_Dlrs").Copy Before:=Sheets(1) 
Range("B18").Select 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of SUM_$").Orientation _ 
    = xlHidden 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("SUM_HOURS") 
    .Orientation = xlRowField 
    .Position = 2 
End With 
ActiveSheet.PivotTables("PivotTable1").PivotFields("SUM_HOURS").Orientation = _ 
    xlHidden 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("SUM_HOURS"), "Count of SUM_HOURS", xlCount 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of SUM_HOURS") 
    .Caption = "Sum of SUM_HOURS" 
    .Function = xlSum 
    .NumberFormat = "#,##0.0_);[Red](#,##0.0)"

来源

2014-08-28 K Spence

什么是“调试错误”，它们在哪里出现？ – skrrgwasme 2014-08-28 15:41:01

所以，我已经得到了如何解决这个问题的答案。

On Error Resume Next 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ACTIVITY_ID") 
.PivotItems("1G1N13S2").Visible = False 
.PivotItems("1G1N2SAN").Visible = False 
.PivotItems("1G1N5ACC").Visible = False 
.PivotItems("1G1N5SCI").Visible = False 
.PivotItems("1G1N5SDV").Visible = False 
.PivotItems("E6T66ZJA").Visible = True 
End With 
On Error Goto 0

来源

2014-08-28 19:17:31

VBA宏数据透视表过滤器错误

回答

相关问题