VBA Begginer - 在一个范围内设置多个 PivotItems

编程问答 2022-05-31

问题描述

我正在尝试设置一个范围，以便我可以自动为特定单元格添加背景颜色。我正在编写代码，尚未完成，但我遇到了一些问题。

我可以为所有具有价值的单个单元格着色，并且仅从一种“类型”...我有多种“类型”，我想全部引用它们！！

我的代码是这样的：

Dim ws As Worksheet
Dim pt As Pivottable
Dim rng1 As Range
Dim rng2 As Range
Dim rng As Range

Set ws = ActiveSheet
Set pt = ws.Pivottables("Pivottable14")
Set rng1 = pt.DataBodyRange
Set rng2 = pt.PivotFields("Type").PivotItems("Residential").Datarange

For Each rng In Intersect(rng1,rng2)
If rng.Value > 0 Then
rng.Interior.Color = vbYellow
End If
Next

如何引用数据透视字段“类型”中的所有数据透视项？？？

我尝试了类似的东西：

Set rng2 = pt.PivotFields("Type").PivotItems("(All)").Datarange

但这没有用。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelpivot-tablepivotitemvba