VBA-基于偏移量值的透视表条件格式

我有一个透视表，我想对其中一列应用条件格式。这应该基于左侧单元格中的值-如果我在普通工作表中手动执行此操作，我将使用偏移公式。不过，我对如何使用VBA和透视表执行此操作有点困惑。在互联网上搜寻代码后，我最终得到了这个，但没有任何效果。我希望对其应用格式的列称为WW volume，位于列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的新手。谢谢：-

根据我录制的宏：RangeE:E.Select Selection.FormatConditions.Add Type:=xlExpression，Formula1:=\u=VALUETEXTOFFSETE1,0，-1,1，我现在找到了一个不错的解决方法，，>0 Selection.FormatConditions Selection.FormatConditions.Count.SetFirstPriority With Selection.FormatConditions1.Interior.PatternColorIndex=xlAutomatic.ThemeColor=xlThemeColorAccent3.TintAndShade=0.599963377788629以Selection.FormatConditions1.StopIfTrue=False结束，现在不必太担心这个问题。也就是说，如果有人有一个更优雅的解决方案，允许我从条件格式中排除小计行和总行，我洗耳恭听。