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

Question

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

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

我的代码是这样的：

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

如何引用 PivotFields“类型”中的所有 PivotItems ？？？

我试过类似的东西：

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

但这没有用。