VBA - 基于偏移值的数据透视表上的条件格式

Question

我有一个数据透视表，我想将条件格式应用于其中一列。这应该基于左边单元格中的值 - 如果我在正常工作表中手动执行此操作，我将使用偏移公式。不过，我对于如何使用VBA和数据透视表有点困惑。在互联网搜索代码之后，我最终得到了这个，但它没有任何影响。我希望应用格式的列称为“WW卷”，位于E列中。

 Dim PF As PivotField
    Set PF = ActiveSheet.PivotTables(1).PivotFields("WW volume")
    With PF.DataRange
        .Interior.ColorIndex = 6 'Yellow
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlExpression, Formula1:="=VALUE(TEXT(OFFSET(E1,0,-1)))>0"
        With .FormatConditions(1)
            .Interior.ColorIndex = 3 'red
            .StopIfTrue = True
            .ScopeType = xlDataFieldScope
        End With

    End With

我真的很感激任何想法，我在VBA很新。谢谢:-)