无法将此代码作为macros运行

任何想法，为什么我无法运行这个代码作为macros？

Sub PivotFilter() Application.ScreenUpdating = False Dim PI As PivotItem With Worksheets("Sheet2").PivotTables("PivotTable2").PivotFields("OrgUnit Code:") .ClearAllFilters 'Refreshing pivot table seems to remove the "set visible property" error Worksheets("Sheet2").PivotTables("PivotTable2").RefreshTable For Each PI In .PivotItems PI.Visible = WorksheetFunction.CountIf(Range("b:b"), PI.Name) > 0 Next PI End With Worksheets("Sheet2").PivotTables("PivotTable1").RefreshTable End Sub 

任何想法这可能是什么原因？

提前谢谢了。

Answer 1

尝试公开

 Public Sub PivotFilter() '... End Sub 

Excel有时候不能/不想在播放button或按f5运行时运行私人潜艇