Question

我需要更改大量条件格式，因此我正在编写VBA子例程。以下代码设置条件格式但结果不正确。我的意思是我去表单，我看到条件格式是正确的。结果不正确。所以公式.8 *（$ L $ 9/10）= 7.92并且应该导致数字＆gt; = 8不是红色，但都是红色。

Sub SetFirst2(ByVal TheRow As Byte, target As Range)
  ' if it is less than .8*total/10
 target.FormatConditions.Add Type:=xlCellValue, _
  Operator:=xlLess, Formula1:="="".8*($L$" & TheRow & "/10)"""
  target.FormatConditions(1).Font.ColorIndex = 3 'Red
End Sub

这就是我所说的方式：

Call SetFirst2(9, ShTheSheet.Range("B9:K9"))

L栏包含以下公式：

=SUM(B9:K9)

Answer 1

您的公式定义中有太多双引号。这应该工作（使用Excel 2010成功测试）：

Formula1:="=.8*($L$" & TheRow & "/10)"

Excel 100 VBA设置条件格式但结果不正确

1 个答案: