如何表示vba中两个单元格的差异值？

我的目标是做条件格式。 对于范围B2：B21，我需要突出显示不在值D2-C2（平均值减去std dev）和D2 + C2（avg plus std dev）之间的所有值。 我无法得到这个工作，所以我logging它。 但是不是硬编码公式1和公式2中的值（28,40），我想要D2-C2和D2 + C2的值。 任何线索如何做到这一点？

Sub Conditionalformatting() Range("B2:B21").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _ Formula1:="=28", Formula2:="=40" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ColorIndex = xlAutomatic End With Selection.FormatConditions(1).StopIfTrue = False End Sub 

Answer 1

 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _ Formula1:="=$D$2-$C$2", Formula2:="=$D$2+$C$2" 

完整的macros

 Sub ColorMe() Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _ Formula1:="=$D$2-$C$2", Formula2:="=$D$2+$C$2" With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False End Sub 

Answer 2

 formula1=cells(2,4).value-cells(2,3) formula2=cells(2,4).value+cells(2,3) 

这应该做的工作。