如何解决数据透视表筛选器仅显示空白会导致VBA错误
我已经编码为在数据透视表中创建字段并向其中添加字段,剩下的唯一事情就是为“日期终止”添加过滤器。我添加了过滤器“确定”,但是要过滤,我只需要它显示(空白),并尝试对我一直在线寻找的十几种方法进行变体,请帮助。
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase,"System Report!R1C1:R" & SystemReportLastRow & "C49")
Set pt = pc.CreatePivotTable(Sheets("Top Accounts").Range("A2"))
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sheets("Top Accounts").Activate
Range("A2").Select
Set objField = pt.PivotFields("ACCOUNT_NAME")
objField.Orientation = xlRowField
objField.Subtotals(1) = False
Set objField = pt.PivotFields("LINE_LASTBILLAMT")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0.00 [$kr.-da-DK]"
Set objField = pt.PivotFields("ITEM_SERIAL_NUM")
objField.Orientation = xlDataField
objField.Function = xlCount
objField.NumberFormat = "#,##0"
Set objField = pt.PivotFields("LINE_ACC_AMOUNT")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0.00 [$kr.-da-DK]"
Set objField = pt.PivotFields("ACCOUNT_NAME")
objField.AutoSort _
xlDescending,"Sum of LINE_ACC_AMOUNT"
Set objField = pt.PivotFields("DATE_TERMINATED")
objField.Orientation = xlPageField
objField.Position = 1
PivotField.PivotItems("*").Visible = False
PivotField.PivotItems("(blank)").Visible = True
解决方法
最后找到了可行的解决方案:
将p_i设为PivotItem 与pt.PivotFields(“ DATE_TERMINATED”) .PivotItems(“(空白)”)。Visible = True 对于.PivotItems中的每个p_i 如果p_i.Name “(空白)”然后 p_i.Visible = False 万一 下一个 结尾为
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。