数据透视表小计的VBA条件格式

Question

我仍然对vba很新，并且很喜欢它，但是我在格式化数据透视表方面遇到了问题。

我想突出显示高于或低于某个值的单元格，并通过录制得到以下代码。

Sheets("41 & 41a").Select
Range("B17").Select
ActiveWorkbook.RefreshAll
   ActiveSheet.PivotTables("PivotTable1").PivotFields("Transaction ID"). _
    ShowDetail = True


ActiveSheet.PivotTables("PivotTable1").PivotSelect _
    "'Transaction ID'[All;Total] 'Row Grand Total'", xlDataAndLabel, True
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
    Formula1:="=Instructions!$E$8", Formula2:="=Instructions!$F$8"
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent6
    .TintAndShade = 0.399945066682943
End With

这个代码用于多个工作表。条件格式设置规则几乎完美地工作，但是当数据透视表折叠时它不会显示突出显示的单元格。

在没有宏的数据透视表格式化时不会发生此问题。