通过Access VBA在Excel中添加格式条件

Question

所以目前我的代码中有这些行，

.Range("C2").Formula = "=IF(B2 = """"," & """REQUIRED""" & "," & """""" & ") "
.Range("C3").Formula = "=IF(B3 = """"," & """REQUIRED""" & "," & """""" & ") "

我的目标是为它添加一个条件格式，所以如果它等于范围中的必需= $ C $ 2：$ C $ 3转到背景红色到目前为止我已经看到一些在线代码但它们似乎都没有适用。我修改了一些现有的代码用于我的目的，我在xlExpression“变量未定义”上得到一个错误。任何人都可以帮助我吗？

.Range("C2:C3").Selection.FormatConditions.Delete 
.Range("C2:C3").Selection.FormatConditions.Add TYPE:=xlExpression, Formula1:="=(=$C$2:$C$23 = 'REQUIRED')"

Answer 1

您必须将xlExpression替换为2。