我是VBA的新手,我正在尝试编写一个可以创建数据透视表的宏。我需要过滤各种字段,并尝试使用PivotFilters.Add和PivotItems只让某些东西通过......有时它可以工作,但有时它会抛出错误。以下代码可以正常工作:
Sub CreatePivot()
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("CP Monthly Data").Select
Range("A1").Select
Set objTable = Sheet1.PivotTableWizard
objTable.Name = "Resource Requests"
objTable.InGridDropZones = True
objTable.RowAxisLayout xlTabularRow
Set objField = objTable.PivotFields("Company name")
objField.Orientation = xlRowField
objField.Position = 1
Set objField = objTable.PivotFields("Probability Status")
objField.Orientation = xlRowField
objField.Position = 2
objField.PivotItems("X - Lost - 0%").Visible = False
objField.PivotItems("X - On Hold - 0%").Visible = False
objField.AutoSort xlDescending, "Probability Status"
Set objField = objTable.PivotFields("Project")
objField.Orientation = xlRowField
objField.Position = 3
Set objField = objTable.PivotFields("Project manager")
objField.Orientation = xlRowField
objField.Position = 4
Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.AutoSort xlAscending, "Resource name"
Set objField = objTable.PivotFields("June, 2012")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "##"
objField.Caption = "June"
Set objField = objTable.PivotFields("Workgroup Name")
objField.Orientation = xlPageField
objField.PivotItems("ATG").Visible = False
objField.PivotItems("India - ATG").Visible = False
objField.PivotItems("India - Managed Middleware").Visible = False
Application.DisplayAlerts = True
End Sub
“资源名称”字段给我带来了问题。我只需要显示以“* TBD”开头的资源名称,并排除名称中包含“ATG”的资源名称。到目前为止,我尝试了以下内容:
Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.PivotFilters.Add xlCaptionContains, Value1:="TBD"
objField.PivotFilters.Add xlCaptionDoesNotContain, Value1:="ATG"
objField.AutoSort xlAscending, "Resource name"
返回“运行时错误'1004':应用程序定义或对象定义错误
这不完全是我需要的,因为我还需要过滤掉名称中没有“TBD”的那些,但我也尝试过:
Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.PivotItems("*ATG*").Visible = False
objField.AutoSort xlAscending, "Resource name"
返回“运行时错误'1004':无法获取PivotField类的PivotItems属性
我还尝试录制宏并根据我的代码检查结果。结果使用了我尝试过的PivotFilters.Add。记录的宏和我的代码之间的主要区别是使用数据透视表向导,我开始怀疑这是否重要...我是新的,还记得吗?
有关如何解决此问题的任何想法?我正在使用Excel 2010并花了几个小时搜索这个,我尝试过的任何东西都没有用。提前感谢您的帮助!!
答案 0 :(得分:1)
不幸的是,您不能将相同类型的过滤器应用于PT中的一个字段。 This link是一个不错的读物。
要解决您的问题,您可以在上面的帖子中替换此代码块:
Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.AutoSort xlAscending, "Resource name"
使用以下代码:
'1) Filter on any thing that contains `TBD`
Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.PivotFilters.Add xlCaptionContains, Value1:="TBD"
'2) Loop through the items in the field and uncheck anything with `ATG` in the name
Dim pi As PivotItem
Dim i as Integer
For i = 1 To objField.PivotItems.Count
If InStr(1, objField.PivotItems(i), "ATG") <> 0 Then
objField.PivotItems(i).Visible = False
End If
Next
objField.AutoSort xlAscending, "Resource name"